[问题] 如何将两变量用/合并

楼主: yaohwei (笨笨的)   2015-03-17 18:49:55
各位高手大家好!
[软件熟悉度]:
入门(写过其他程式,只是对语法不熟悉)
[问题描述]
主要是手边的data要作格式转换
例如
id x1_1 x1_2 x2_1 x2_2 x3_1 x3_2 x4_1 x4_2
1 1 2 1 1 2 2 1 2
2 1 1 2 1 1 2 2 2
3 1 1 1 2 1 1 2 1
...
500 1 1 1 1 2 2 2 2
格式想转变成
id x1 x2 x3 x4
1 1/2 1/1 2/2 1/2
2 1/1 2/1 1/2 2/2
3 1/1 1/2 1/1 2/1
...
500 1/1 1/1 2/2 2/2
以上,小弟在此先谢谢各位高手
作者: celestialgod (天)   2015-03-17 19:09:00
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出来即可
作者: swedrf0112 (M)   2015-03-17 19:13:00
t(apply(data,1,function(x)paste0(x[seq(1,length(x),2)],"/",x[seq(2,length(x),2)])))data放你的资料~~
作者: celestialgod (天)   2015-03-17 19:24:00
s大,第一个seq应该从3开始,而非1,第一个是id。
作者: swedrf0112 (M)   2015-03-17 19:33:00
3Q!! 没看到 修改一下 第一个seq(2,length(x),2)第二个seq(3,length(x),2)
作者: andrew43 (讨厌有好心推文后删文者)   2015-03-17 20:41:00
亲爱的板友,如果要推多次连续code,建议直接回文喔。
楼主: yaohwei (笨笨的)   2015-03-18 08:53:00
谢谢各位,成功了

Links booklink

Contact Us: admin [ a t ] ucptt.com