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中设置了该选项），则不需要在数据框架范围内完成此操作。