data.frame की प्रत्येक पंक्ति को दोहराने और प्रत्येक पंक्ति

Question

df <- data.frame(var1=c('a', 'b', 'c'), var2=c('d', 'e', 'f'), freq=1:3) 

क्या ऊपर data.frame के पहले दो स्तंभों का विस्तार करने के लिए सबसे आसान तरीका है अनुकरण की संख्या निर्दिष्ट, ताकि प्रत्येक पंक्ति समय की संख्या प्रकट होता है कॉलम 'freq' में निर्दिष्ट?

दूसरे शब्दों में, इस से जाना:

df 
    var1 var2 freq 
1 a d 1 
2 b e 2 
3 c f 3 

इस के लिए

:

df.expanded 
    var1 var2 
1 a d 
2 b e 
3 b e 
4 c f 
5 c f 
6 c f 

Answer 1

यहाँ एक समाधान:

df.expanded <- df[rep(row.names(df), df$freq), 1:2] 

परिणाम:

var1 var2 
1  a d 
2  b e 
2.1 b e 
3  c f 
3.1 c f 
3.2 c f 

Answer 2

@ neilfws का समाधान data.frame एस के लिए बहुत अच्छा काम करता है, लेकिन data.table के लिए नहीं है क्योंकि उनमें row.names संपत्ति की कमी है। यह दृष्टिकोण दोनों के लिए काम करता है:

df.expanded <- df[rep(seq(nrow(df)), df$freq), 1:2] 

data.table के लिए ही आप और with=F जोड़ने की आवश्यकता होगी वैकल्पिक रूप से निकाल सकते हैं df$:

dt <- data.table(df) 
dt.expanded <- dt[rep(seq(.N), freq), !"freq", with=F] 

Answer 3

उपयोग expandRows()splitstackshape पैकेज से:

library(splitstackshape) 
expandRows(df, "freq") 

सरल वाक्यविन्यास, बहुत तेज़, data.frame या data.table पर काम करता है।

परिणाम:

var1 var2 
1  a d 
2  b e 
2.1 b e 
3  c f 
3.1 c f 
3.2 c f 

Answer 4

मामले में आप, बहुत तेजी से चलाना चाहिए जो बहुत बड़े data.frames मैं इसे एक data.table में परिवर्तित करने की सलाह देते हैं और निम्नलिखित का प्रयोग करेंगे पर यह कार्रवाई क्या करना है:

library(data.table) 
dt <- data.table(df) 
dt.expanded <- dt[ ,list(freq=rep(1,freq)),by=c("var1","var2")] 
dt.expanded[ ,freq := NULL] 
dt.expanded 

देखें कि बहुत तेजी से इस समाधान है:

df <- data.frame(var1=1:2e3, var2=1:2e3, freq=1:2e3) 
system.time(df.exp <- df[rep(row.names(df), df$freq), 1:2]) 
## user system elapsed 
## 4.57 0.00 4.56 
dt <- data.table(df) 
system.time(dt.expanded <- dt[ ,list(freq=rep(1,freq)),by=c("var1","var2")]) 
## user system elapsed 
## 0.05 0.01 0.06 

Answer 5

वर्ष सवाल, tidyverse में नए क्रिया:

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) 

ई