Re: [問題] 一筆資料轉多筆
我只有普通版的
library(dplyr)
tmp <- data.frame(id=c(1,2,3), start_y=c(100,101,101), start_s=c(1,2,2),
end_y=c(102,103,101), end_s=c(2,1,2), stringsAsFactors=F)
myfun <- function(v){
v <- as.vector(v)
out <- data.frame(id=v[1], year=rep(seq(v[2], v[4]), each=2),
s=c(1,2), stringsAsFactors=F)
if(v[3]==2) out <- out[-1,]
if(v[5]==1) out <- out[-nrow(out),]
return(out)
}
tmp2 <- apply(tmp,1,myfun)
#out <- do.call("rbind", tmp2)
out <- bind_rows(tmp2)
out
※ 引述《criky (立業成家)》之銘言:
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情,但是我不知道要怎麼用R 寫出來)
: [軟體熟悉度]:
: 新手(沒寫過程式,R 是我的第一次)
: [問題敘述]:
: 若我有資料欄位如下:
:
: id start_y start_s end_y end_s
: 1 100 1 102 2
: 2 101 2 103 1
: 3 101 2 101 2
: year:
: 如何轉成下面的樣子:
: id year s
: 1 100 1
: 1 100 2
: 1 101 1
: 1 101 2
: 1 102 1
: 1 102 2
: 2 101 2
: 2 102 1
: 2 102 2
: 2 103 1
: 3 101 2 (只有一筆)
: 謝謝回答~
: [程式範例]:
:
:
: [環境敘述]:
:
: 請提供 sessionInfo() 的輸出結果,
: 裡面含有所有你使用的作業系統、R 的版本和套件版本資訊,
: 讓版友更容易找出錯誤
:
: [關鍵字]:
:
: 選擇性,也許未來有用
:
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.73.105
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1480663852.A.EC0.html
※ 編輯: memphis (140.109.73.105), 12/02/2016 15:31:42
→
12/02 15:35, , 1F
12/02 15:35, 1F
→
12/02 15:49, , 2F
12/02 15:49, 2F
推
12/02 15:53, , 3F
12/02 15:53, 3F
→
12/02 15:53, , 4F
12/02 15:53, 4F
→
12/02 15:54, , 5F
12/02 15:54, 5F
→
12/02 15:54, , 6F
12/02 15:54, 6F
→
12/02 16:08, , 7F
12/02 16:08, 7F
→
12/02 16:38, , 8F
12/02 16:38, 8F
推
12/02 20:01, , 9F
12/02 20:01, 9F
→
12/02 20:04, , 10F
12/02 20:04, 10F
→
12/02 20:05, , 11F
12/02 20:05, 11F
→
12/02 20:47, , 12F
12/02 20:47, 12F
→
12/02 20:48, , 13F
12/02 20:48, 13F
→
12/02 20:48, , 14F
12/02 20:48, 14F
推
12/03 12:02, , 15F
12/03 12:02, 15F
→
12/03 12:03, , 16F
12/03 12:03, 16F
→
12/03 12:04, , 17F
12/03 12:04, 17F
→
12/03 12:05, , 18F
12/03 12:05, 18F
→
12/03 12:06, , 19F
12/03 12:06, 19F
→
12/03 12:06, , 20F
12/03 12:06, 20F
討論串 (同標題文章)