mutate_(df, .dots = paste0("x", 1:4, "_", 1,"+x", 1:4, "_", 2))df是你的data.framemutate_ 先library(dplyr)mutate_(x, .dots = paste0("paste(x", 1:4,"_", 1, ",x", 1:4, "_", 2, ",sep='/')"))x是你的data.frame前三推打太快,忘记改成你要你的格式,抱歉mutate_之后 再重新命名跟选你需要的column出来即可
t(apply(data,1,function(x)paste0(x[seq(1,length(x),2)],"/",x[seq(2,length(x),2)])))data放你的资料~~
3Q!! 没看到 修改一下 第一个seq(2,length(x),2)第二个seq(3,length(x),2)