Konversi format kolom data.frame dari karakter ke faktor

Saya ingin mengubah format (kelas) dari beberapa kolom objek data.frame saya ( mydf) dari charactor ke faktor .

Saya tidak ingin melakukan ini ketika saya membaca file teks dengan read.table()fungsi.

Bantuan apa pun akan dihargai.

Hai, selamat datang di dunia R.

mtcars  #look at this built in data set
str(mtcars) #allows you to see the classes of the variables (all numeric)

#one approach it to index with the $ sign and the as.factor function
mtcars$am <- as.factor(mtcars$am)
#another approach
mtcars[, 'cyl'] <- as.factor(mtcars[, 'cyl'])
str(mtcars)  # now look at the classes

Ini juga berfungsi untuk karakter, tanggal, bilangan bulat dan kelas lainnya

Karena Anda baru mengenal R, saya sarankan Anda melihat kedua situs web ini:

Manual rujukan: http://cran.r-project.org/manuals.html

R Kartu referensi: http://cran.r-project.org/doc/contrib/Short-refcard.pdf

# To do it for all names
df[] <- lapply( df, factor) # the "[]" keeps the dataframe structure
 col_names <- names(df)
# do do it for some names in a vector named 'col_names'
df[col_names] <- lapply(df[col_names] , factor)

Penjelasan. Semua dataframe adalah daftar dan hasil yang [digunakan dengan argumen bernilai banyak juga daftar, jadi perulangan daftar adalah tugas lapply. Tugas di atas akan membuat satu set daftar yang fungsi data.frame.[<-harus berhasil masuk kembali ke dalam kerangka data,df

Strategi lain adalah dengan mengonversi hanya kolom-kolom di mana jumlah item unik kurang dari beberapa kriteria, katakanlah lebih sedikit dari log jumlah baris sebagai contoh:

cols.to.factor <- sapply( df, function(col) length(unique(col)) < log10(length(col)) )
df[ cols.to.factor] <- lapply(df[ cols.to.factor] , factor)

Anda dapat menggunakan dplyr::mutate_if()untuk mengonversi semua kolom karakter atau dplyr::mutate_at()untuk memilih kolom karakter bernama ke faktor:

library(dplyr)

# all character columns to factor:
df <- mutate_if(df, is.character, as.factor)

# select character columns 'char1', 'char2', etc. to factor:
df <- mutate_at(df, vars(char1, char2), as.factor)

Jika Anda ingin mengubah semua variabel karakter di data.frame menjadi faktor setelah Anda memuat data, Anda bisa melakukannya seperti ini, ke data.frame bernama dat:

character_vars <- lapply(dat, class) == "character"
dat[, character_vars] <- lapply(dat[, character_vars], as.factor)

Ini menciptakan vektor yang mengidentifikasi kolom mana dari kelas character, lalu berlaku as.factoruntuk kolom tersebut.

Contoh data:

dat <- data.frame(var1 = c("a", "b"),
                  var2 = c("hi", "low"),
                  var3 = c(0, 0.1),
                  stringsAsFactors = FALSE
                  )

Cara singkat lain yang bisa Anda gunakan adalah pipa ( %<>%) dari paket magrittr . Ini mengubah karakter kolom MyColumn untuk faktor.

library(magrittr)

mydf$mycolumn %<>% factor

Saya sudah melakukannya dengan fungsi. Dalam hal ini saya hanya akan mengubah variabel karakter menjadi faktor:

for (i in 1:ncol(data)){
    if(is.character(data[,i])){
        data[,i]=factor(data[,i])
    }
}