例如,我有一个既有整数列又有因子列的data.frame。
data <- data.frame(
a = 1:5,
b = factor(c("a", "b", "c", "d", "e")),
c = factor(c("f", "g", "h", "i", "j")))`
我想将b和c因数列转换为字符,同时将a列保持为整数。
我尝试了以下代码:
sapply(data, function(x) {if_else(is.factor(x), as.character(x), x)})
它没有得到结果,而是引发了一个错误:
错误:
true
长度必须为1(长度为condition
),而不是5
我知道这可以通过dplyr中的mutate_if函数完成。但是我仍然想知道为什么我的代码不适用于这种情况。
非常感谢您的任何建议!
你可以试试:
library(tidyverse)
d <- data.frame(a = 1:5,
b = factor(c("a", "b", "c", "d", "e")),
c = factor(c("f", "g", "h", "i", "j")))
d %>% glimpse()
Observations: 5
Variables: 3
$ a <int> 1, 2, 3, 4, 5
$ b <fctr> a, b, c, d, e
$ c <fctr> f, g, h, i, j
d %>%
mutate_if(is.factor, as.character) %>%
glimpse()
Observations: 5
Variables: 3
$ a <int> 1, 2, 3, 4, 5
$ b <chr> "a", "b", "c", "d", "e"
$ c <chr> "f", "g", "h", "i", "j"
使用base R,您可以尝试
d[] <- lapply(d, function(x) if(is.factor(x)) as.character(x) else x)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句