连接R中除最后两列以外的所有列

这不是一个很好的解决方案,但是考虑到您的数据,您可以简单地使用 apply 把你的 data.frame 最后两列通过动态引用列数而关闭。

df = readr::read_table2("DISEASE Gender  Race    Freq    NEWCOL
Salmonellosis   M   RACE_LATINO_HISPANIC    1   NA
Salmonellosis   F   BLACK_AFRICAN_AMERICAN  2   NA
Salmonellosis   M   WHITE   3   NA
Salmonellosis   M   WHITE   4   NA")

df$Concat = apply(df[,1:(ncol(df)-2)],1,paste,collapse=" ")

提德包有一个方便的 unite 执行此合并的函数:

df<-read.table(header = TRUE, text="DISEASE Gender  Race    Freq    NEWCOL
Salmonellosis   M   RACE_LATINO_HISPANIC    1   NA
Salmonellosis   F   BLACK_AFRICAN_AMERICAN  2   NA
Salmonellosis   M   WHITE   3   NA
Salmonellosis   M   WHITE   4   NA")


library(tidyr)
answer<-unite(df, concat, -c("Freq", "NEWCOL"), sep = " ", remove=FALSE)

#or to select by only the number of columns
unite(df, concat, 1:(ncol(df)-2), sep = " ", remove=FALSE)

或者我们可以用 interaction

df$concat <- interaction(df[head(names(df), -2)], sep= " ")

或 paste 从 base R

df$concat <- do.call(paste, df[head(names(df), -2)])