所以我有一个包含几个变量的数据框,这些变量是我想转换为数字的字符。这些变量中的每一个都以“sect1”开头。我可以一次轻松完成一个,但我想知道这是否可以一次完成。

我使用以下代码以笨拙的方式完成了此操作。也许有更好的方法?

df=data.frame(sect1q1=as.character(c("1","2","3","4","5")),
sect1q2=as.character(c("2","3","4","7","8")),id=c(22,33,44,55,66),
stringsAsFactors = FALSE)
df1 = sapply(select(df,starts_with("sect1")),as.numeric)
df = select(df,-starts_with("sect1"))
df =cbind(df,df1)

最佳答案

尝试 mutate_each 和(根据@Franks 注释 %<>% 包中的 magrittr 操作符,以便就地修改)

library(magrittr)
df %<>% mutate_each(funs(as.numeric), starts_with("sect1"))
str(df)
# 'data.frame':  5 obs. of  3 variables:
# $ sect1q1: num  1 2 3 4 5
# $ sect1q2: num  2 3 4 7 8
# $ id     : num  22 33 44 55 66

或者,使用 data.table 包,您可以使用 := 运算符就地修改数据
library(data.table)
indx <- grep("^sect1", names(df), value = TRUE)
setDT(df)[, (indx) := lapply(.SD, as.numeric), .SDcols = indx]

关于r - 如何一次转换多个变量的类,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/30924493/

10-11 23:04
查看更多