R數據框因子

Question

我想要droplevels數據框（請不要將此問題標記爲重複:)）。 鑑於所有可用的方法只有一個可行。我究竟做錯了什麼？ 實施例：

> df = data.frame(x = (c("a","b","c")),y=c("d","e","f")) 
> class(df$x) 
[1] "factor" 
> levels(df$x) 
[1] "a" "b" "c" 

方法1不工作：

> df1 = droplevels(df) 
> class(df1$x) 
[1] "factor" 
> levels(df1$x) 
[1] "a" "b" "c" 

方法2不工作：

> df2 = as.data.frame(df, stringsAsFactors = FALSE) 
> class(df2$x) 
[1] "factor" 
> levels(df2$x) 
[1] "a" "b" "c" 

方法3不工作：

> df3 = df 
> df3$x = factor(df3$x) 
> class(df3$x) 
[1] "factor" 
> levels(df3$x) 
[1] "a" "b" "c" 

方法4最後工作：

> df4 = df 
> df4$x = as.vector(df4$x) 
> class(df4$x) 
[1] "character" 
> levels(df4$x) 
NULL 

在工作時，我覺得方法4是最不優雅的。你能幫我調試嗎？非常感謝

編輯：以下意見和答案：我想從一個數據幀刪除因子結構，不僅droplevels

Answer 1

「降低水平」是指消除未使用的因子水平，但將對象保留爲類factor。您正在尋找一種方式來所有的因素列轉換爲字符列：

> df2 = data.frame(lapply(df, 
      function(x) if (is.factor(x)) as.character(x) else x), 
       stringsAsFactors = FALSE) 
> lapply(df2, class) 
$x 
[1] "character" 

$y 
[1] "character" 

> df2 
    x y 
1 a d 
2 b e 
3 c f 

Answer 2

我猜你想：

df[] <- lapply(df, as.character) 

這有兩個差異從您的代碼：保留df的數據幀結構和使用lapply的作業LHS上的「[]」。 droplevels函數只能刪除多餘的級別，但不會轉換爲字符向量。 as.character函數沒有data.frame方法。它需要（1）應用於每個因子矢量，而不是用於因子矢量列表。更普遍的功能，要做到這一點（避免試圖在數字矢量脅迫的誤差）是：

makefac2char <- function(v) if(is.factor(v)){as.character(v)} else {v} 
df[] <- lapply(df, makefac2char) 
# To make a new dataframe 
df2 <- lapply(df, makefac2char) 
df2<- data.frame(df2) 

如果你不想破壞性取代「東風」，那麼你需要環繞lapply結果data.frame因爲lapply不保留屬性。如果您使用'stringAsFactors = FALSE'創建了該數據框（或在.Options中設置了該選項），則不需要在數據框架範圍內完成此操作。