Cara mengkonversi faktor bilangan bulat\numerik tanpa kehilangan informasi?

Ketika saya mengubah faktor numerik atau integer, saya mendapatkan tingkat dasar kode, bukan nilai-nilai dalam angka.

f <- factor(sample(runif(5), 20, replace = TRUE))
##  [1] 0.0248644019011408 0.0248644019011408 0.179684827337041 
##  [4] 0.0284090070053935 0.363644931698218  0.363644931698218 
##  [7] 0.179684827337041  0.249704354675487  0.249704354675487 
## [10] 0.0248644019011408 0.249704354675487  0.0284090070053935
## [13] 0.179684827337041  0.0248644019011408 0.179684827337041 
## [16] 0.363644931698218  0.249704354675487  0.363644931698218 
## [19] 0.179684827337041  0.0284090070053935
## 5 Levels: 0.0248644019011408 0.0284090070053935 ... 0.363644931698218

as.numeric(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

as.integer(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

Aku harus resor untuk paste untuk mendapatkan nilai-nilai yang nyata:

as.numeric(paste(f))
##  [1] 0.02486440 0.02486440 0.17968483 0.02840901 0.36364493 0.36364493
##  [7] 0.17968483 0.24970435 0.24970435 0.02486440 0.24970435 0.02840901
## [13] 0.17968483 0.02486440 0.17968483 0.36364493 0.24970435 0.36364493
## [19] 0.17968483 0.02840901

Apakah ada cara yang lebih baik untuk mengkonversi faktor numerik?

Jaap
Pertanyaan edit 1 April 2018 в 11:06
Pemrograman
casting r r-faq
5 Agustus 2010 в 6:53
59 tayangan
Mengomentari pertanyaan (2)
Larutan

Lihat bagian Peringatan dari ?faktor:

khususnya, sebagai.numerik diterapkan untuk faktor ini tidak berarti, dan mungkin terjadi secara implisit paksaan. Untuk mengubah faktor f untuk sekitar aslinya numerik nilai-nilai, sebagai.numerik(tingkat(f))[f] adalah direkomendasikan dan sedikit lebih efisien daripada sebagai.numerik(seperti.karakter(f)).

FAQ di R memiliki saran yang sama.

Mengapa sebagai.numerik(tingkat(f))[f] lebih efisien dari.numerik(seperti.karakter(f))?

sebagai.numerik(seperti.karakter(f)) lebih efektif sebagai.numerik(tingkat(f)[f]), sehingga anda melakukan konversi numerik pada panjang (x) nilai-nilai, bukan pada nlevels(x) nilai-nilai. Perbedaan kecepatan akan menjadi yang paling jelas untuk panjang vektor dengan beberapa tingkat. Jika nilai-nilai sebagian besar adalah unik, tidak ada't akan banyak perbedaan dalam kecepatan. Namun anda melakukan konversi, operasi ini mungkin menjadi hambatan dalam kode anda, jadi don't khawatir terlalu banyak tentang hal itu.

Beberapa timing

library(microbenchmark)
microbenchmark(
  as.numeric(levels(f))[f],
  as.numeric(levels(f)[f]),
  as.numeric(as.character(f)),
  paste0(x),
  paste(x),
  times = 1e5
)
## Unit: microseconds
##                         expr   min    lq      mean median     uq      max neval
##     as.numeric(levels(f))[f] 3.982 5.120  6.088624  5.405  5.974 1981.418 1e+05
##     as.numeric(levels(f)[f]) 5.973 7.111  8.352032  7.396  8.250 4256.380 1e+05
##  as.numeric(as.character(f)) 6.827 8.249  9.628264  8.534  9.671 1983.694 1e+05
##                    paste0(x) 7.964 9.387 11.026351  9.956 10.810 2911.257 1e+05
##                     paste(x) 7.965 9.387 11.127308  9.956 11.093 2419.458 1e+05
Jaap
Jawaban edit 17 Januari 2016 в 7:51
Komentar (6)

R memiliki jumlah (undocumented) kenyamanan fungsi untuk mengkonversi faktor-faktor:

  • as.karakter.faktor
  • as.data.frame.faktor
  • as.Tanggal.faktor
  • as.daftar.faktor
  • as.vektor.faktor
  • ...

Tapi mengganggu, tidak ada yang lebih untuk menangani faktor -> numerik konversi. Sebagai perpanjangan dari Joshua Ulrich's jawaban, saya akan menyarankan untuk mengatasi kelalaian ini dengan definisi anda sendiri idiomatik fungsi:


as.numeric.factor
MrLore
Jawaban edit 4 Juni 2014 в 6:19
Komentar (6)

Cara yang paling mudah adalah dengan menggunakan unfactor fungsi dari paket varhandle

unfactor(your_factor_variable)

Contoh ini dapat menjadi awal yang cepat:

x  "numeric"

x  "factor"

library(varhandle)
x  "numeric"
Mehrad Mahmoudian
Jawaban edit 25 Januari 2016 в 9:14
Komentar (8)

Catatan: ini jawaban tertentu yang tidak untuk mengkonversi angka-dihargai faktor numerik, itu adalah untuk mengkonversi kategoris faktor untuk mereka sesuai tingkat angka.

Setiap jawaban dalam posting ini gagal untuk menghasilkan hasil bagi saya , NAs mendapatkan dihasilkan.


y2
Axeman
Jawaban edit 3 Maret 2019 в 9:54
Komentar (6)

Hal ini dimungkinkan hanya dalam kasus ketika faktor label sesuai dengan nilai-nilai asli. Saya akan menjelaskannya dengan contoh.

Asumsikan data vektor x:


x
Komentar (0)

Anda dapat menggunakan hablar::mengkonversi jika anda memiliki data frame. Sintaks adalah mudah:

Contoh df


library(hablar)
library(dplyr)

df
Komentar (0)

terlambat untuk permainan, secara tidak sengaja, saya menemukan trimws() dapat mengkonversi faktor(3:5) untuk c("3","4","5"). Kemudian anda dapat menyebut sebagai.numerik(). Yaitu:

as.numeric(trimws(x_factor_var))
Komentar (2)