復(fù)制每一行數(shù)據(jù).幀，并指定每一行的復(fù)制數(shù)量df <- data.frame(var1=c('a', 'b', 'c'), var2=c('d', 'e', 'f'), freq=1:3)最簡單的方法是展開上面data.framework的前兩列，以便每行顯示列‘freq’中指定的次數(shù)？換句話說，從這一點出發(fā)：df var1 var2 freq1 a d 12 b e 23 c f 3對此：df.expanded var1 var21 a d2 b e3 b e4 c f5 c f6 c f
4 回答
犯罪嫌疑人X
TA貢獻(xiàn)2080條經(jīng)驗 獲得超4個贊
這里有一個解決方案：
df.expanded <- df[rep(row.names(df), df$freq), 1:2]
結(jié)果：
var1 var2
1 a d
2 b e
2.1 b e
3 c f
3.1 c f
3.2 c f
慕尼黑5688855
TA貢獻(xiàn)1848條經(jīng)驗 獲得超2個贊
使用expandRows()從splitstackshape一攬子：
library(splitstackshape)
expandRows(df, "freq")
簡單的語法，非?？?，工作在data.frame或data.table.
結(jié)果：
var1 var2
1 a d
2 b e
2.1 b e
3 c f
3.1 c f
3.2 c f
莫回?zé)o
TA貢獻(xiàn)1865條經(jīng)驗 獲得超7個贊
舊疑問句中的新動詞：
library(tidyr) # version >= 0.8.0
df <- data.frame(var1=c('a', 'b', 'c'), var2=c('d', 'e', 'f'), freq=1:3)
df %>%
uncount(freq)
var1 var2
1 a d
2 b e
2.1 b e
3 c f
3.1 c f
3.2 c f
冉冉說
TA貢獻(xiàn)1877條經(jīng)驗 獲得超1個贊
不是為了data.table因為他們?nèi)鄙?code>row.names財產(chǎn)。這種方法適用于以下兩種情況：
df.expanded?<-?df[rep(seq(nrow(df)),?df$freq),?1:2]
密碼data.table是一點清潔劑：
#?convert?to?data.table?by?referencesetDT(df)df.expanded?<-?df[rep(seq(.N),?freq),?!"freq"]
- 4 回答
- 0 關(guān)注
- 977 瀏覽
添加回答
舉報
0/150
提交
取消