我正在尝试将列名字符串拆分为单独的列,但我面临的问题是行具有逻辑值。有一些帖子在行中使用字符串拆分列,但我找不到任何具有逻辑值的帖子。
我的 data.frame 看起来像这样:
mydf <- data.frame (author = c("N1", "N2", "N3"),
Aa..Ab = c(T, T, F),
BB = c(T, F, T),
Ca...Cb = c(F, F, T))
结果应该是这样的
mydfnew <- data.frame (author = c("N1", "N2", "N3"),
Aa = c(T, T, F),
Ab = c(T, T, F),
BB = c(T, F, T),
Ca = c(F, F, T),
Cb = c(F, F, T))
我试图调整拆分列和名称的代码(列和名称中的拆分字符)如下:
splitCol <- function(dataframe, splitVars=names(dataframe)){
split.DF <- dataframe[,splitVars]
keep.DF <- dataframe[, !names(dataframe) %in% c(splitVars)]
X <- function(x)matrix(unlist(rep(x)), byrow=TRUE)
newdf <- as.data.frame(do.call(cbind, suppressWarnings(lapply(split.DF, X))) )
names(newdf) <- paste(rep(names(split.DF), each=2), c(".a", ".b"), sep="")
data.frame(keep.DF,newdf)
}
打电话时
splitCol(mydf)
我得到错误:
名称错误(newdf) <- paste(rep(names(split.DF), each = 2), c(".a", : 'names' 属性 [8] 必须与向量 [4] 的长度相同]