我需要重複n次數據幀的同一行,並將行綁定到新的數據幀。R:需要用R中的apply函數編寫相同的代碼
我可以很容易地使用for循環,但它有更多的計算時間。有人可以幫助我這樣做使用任何應用功能。
下面是我的代碼原型。
testdata<-data.table(v1=sample(1000),v2=sample(1000),v3=sample(1000),v4=as.integer(runif(1000,1,10)))## Sample data
testdata1<-data.table(v1=NA,v2=NA,v3=NA,v4=NA)##creating empty data frame
for(i in 1:nrow(testdata)){
temp<-testdata[i,][rep(seq_len(nrow(testdata[i,])), each=testdata$v4[i]),]
testdata1<-rbind(temp,testdata1)
}
'nrow(TESTDATA [我])'...這沒有意義,我演示。它總是會返回'1',不是嗎? –
是的,因爲我在每一行循環它將只返回1. – PPC