Chuyển đổi định dạng cột data.frame từ ký tự sang yếu tố

Tôi muốn thay đổi định dạng (lớp) của một số cột của đối tượng data.frame ( mydf) của tôi từ charactor thành yếu tố .

Tôi không muốn làm điều này khi tôi đang đọc tệp văn bản theo read.table()chức năng.

Bất kỳ trợ giúp sẽ được đánh giá cao.

Chào mừng đến với thế giới của 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

Điều này cũng hoạt động cho nhân vật, ngày, số nguyên và các lớp khác

Vì bạn chưa quen với R nên tôi khuyên bạn nên xem hai trang web này:

Hướng dẫn tham khảo R: http://cran.r-project.org/manuals.html

R Thẻ tham khảo: 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)

Giải trình. Tất cả các tệp dữ liệu là danh sách và kết quả [được sử dụng với nhiều đối số có giá trị là danh sách tương tự, do đó, việc lặp qua danh sách là nhiệm vụ của lapply. Nhiệm vụ trên sẽ tạo ra một tập hợp các danh sách mà hàm data.frame.[<-sẽ thành công trở lại vào khung dữ liệu,df

Một chiến lược khác là chỉ chuyển đổi các cột trong đó số lượng mục duy nhất ít hơn một số tiêu chí, giả sử ít hơn nhật ký của số lượng hàng làm ví dụ:

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

Bạn có thể sử dụng dplyr::mutate_if()để chuyển đổi tất cả các cột ký tự hoặc dplyr::mutate_at()để chọn các cột ký tự được đặt tên thành các yếu tố:

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)

Nếu bạn muốn thay đổi tất cả các biến ký tự trong data.frame của mình thành các yếu tố sau khi bạn đã tải dữ liệu của mình, bạn có thể làm như thế này, thành data.frame được gọi là dat:

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

Điều này tạo ra một vectơ xác định các cột nào thuộc lớp character, sau đó áp dụng as.factorcho các cột đó.

Dữ liệu mẫu:

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

Một cách ngắn khác bạn có thể sử dụng là một đường ống ( %<>%) từ gói magrittr . Nó chuyển đổi cột ký tự mycolumn thành một yếu tố.

library(magrittr)

mydf$mycolumn %<>% factor

Tôi đã làm điều đó với một chức năng. Trong trường hợp này tôi sẽ chỉ chuyển đổi các biến ký tự thành yếu tố:

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