13

melt.data.frame 的默认行为是返回“因子”类中的“变量”列。这是一个例子：

> head(airquality)

  ozone solar.r wind temp month day
1    41     190  7.4   67     5   1
2    36     118  8.0   72     5   2
3    12     149 12.6   74     5   3
4    18     313 11.5   62     5   4
5    NA      NA 14.3   56     5   5
6    28      NA 14.9   66     5   6

> x = melt(head(airquality))
Using  as id variables

> head(x)
  variable value
1    ozone    41
2    ozone    36
3    ozone    12
4    ozone    18
5    ozone    NA
6    ozone    28

> class(x$variable)
[1] "factor"

问题是是否有任何参数可以将类从因子更改为字符？我试过options(stringsAsFactors = FALSE)了，但它不工作。

4

2 回答 2

5

我不相信melt.data.frame. 但是，如果您检查代码，则不难更改。我们可以定义一个新函数melt.df来替换相关行，快速检查用户是否设置了stringsAsFactors = FALSE：

if (getOption("stringsAsFactors")){
    df[[variable_name]] <- factor(df[[variable_name]], 
                                   unique(df[[variable_name]]))
}
else{
   df[[variable_name]] <- as.character(factor(df[[variable_name]],         
                                   unique(df[[variable_name]])))
}

我在您的简单示例中检查了这一点，它按预期工作，但我没有更普遍地检查它，所以要小心。我不相信这种修改在其他情况下不会产生令人惊讶的行为。

于 2011-09-14T21:44:07.257 回答
5

如今，随着大多数用户转向“tidyverse”或“data.table”来重塑数据，您的选择有所改进。

在“tidyverse”中，默认行为是保持熔融变量为characters：

library(tidyverse)
airquality %>% gather(var, val, everything()) %>% str()
# 'data.frame': 918 obs. of  2 variables:
#  $ var: chr  "Ozone" "Ozone" "Ozone" "Ozone" ...
#  $ val: num  41 36 12 18 NA 28 23 19 8 NA ...

在 的“data.table”实现中melt，添加了一些新参数，其中之一是variable.factor可以设置为FALSE. 我相信，它TRUE默认设置为与melt.

library(data.table)
str(melt(as.data.table(airquality), variable.factor = FALSE))
# Classes ‘data.table’ and 'data.frame':    36 obs. of  2 variables:
#  $ variable: chr  "Ozone" "Ozone" "Ozone" "Ozone" ...
#  $ value   : num  41 36 12 18 NA 28 190 118 149 313 ...
#  - attr(*, ".internal.selfref")=<externalptr>
于 2017-12-14T08:42:21.700 回答