[問題] 如何將兩變數用/合併

作者: 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