सीएसवी फाइलों को अलग-अलग

Question

के साथ अलग करने के लिए डेटा.फ्रेम की सूची लिखें। सवाल यह सब कहता है - मैं डेटा.फ्रेम से भरा एक सूची वस्तु लेना चाहता हूं और प्रत्येक डेटा.फ्रेम को एक अलग .csv फ़ाइल में लिखना चाहता हूं जहां नाम का नाम .csv फ़ाइल सूची ऑब्जेक्ट के नाम से मेल खाती है।

यहां एक पुन: उत्पन्न उदाहरण और कोड जो मैंने अभी तक लिखा है।

df <- data.frame(
    var1 = sample(1:10, 6, replace = TRUE) 
    , var2 = sample(LETTERS[1:2], 6, replace = TRUE) 
    , theday = c(1,1,2,2,3,3) 
) 

df.daily <- split(df, df$theday) #Split into separate days 

lapply(df.daily, function(x){write.table(x, file = paste(names(x), ".csv", sep = ""), row.names = FALSE, sep = ",")}) 

और यहाँ त्रुटि संदेश आर बाहर थूक

Error: Results must have one or more dimensions. 
In addition: Warning messages: 
1: In if (file == "") file <- stdout() else if (is.character(file)) { : 
    the condition has length > 1 and only the first element will be used 

मैं यहाँ क्या याद आ रही है के शीर्ष है?

Answer 1

इस प्रयास करें:

sapply(names(df.daily), 
function (x) write.table(df.daily[[x]], file=paste(x, "txt", sep=".")) ) 

आप नाम दिखाई देगा ("1", "2", "3") बाहर एक के बाद एक थूक, लेकिन NULLs सबूत हैं कि पक्ष डिस्क फ़ाइलों को लिखने का प्रभाव किया गया था। (संपादित करें: परिवर्तित कर दिया [] [[]] करने के लिए।)

Answer 2

योग्य कुछ बातें:

laply प्रदर्शन एक सूची पर कार्रवाई। आप जो खोज रहे हैं वह d_ply है। और आपको इसे दिन में तोड़ना नहीं है, आप plyr को अपने लिए ऐसा कर सकते हैं। साथ ही, मैं नाम (x) का उपयोग नहीं करता क्योंकि यह डेटा.फ्रेम के सभी कॉलम नाम देता है।

d_ply(df, .(theday), function(x) write.csv(x, file=paste(x$theday,".csv",sep=""),row.names=F)) 

Answer 3

आप mapply इस्तेमाल कर सकते हैं:

mapply(
    write.table, 
    x=df.daily, file=paste(names(df.daily), "txt", sep="."), 
    MoreArgs=list(row.names=FALSE, sep=",") 
) 

वहाँ thread about similar problem on plyr mailing list है।