.csv फ़ाइलों के रूप में निर्यात करने से पहले दो डेटाफ्रेम में शामिल हों

Question

मैं एक बड़ी प्रश्नावली पर काम कर रहा हूं - और मैं विभिन्न प्रश्नों (जैसे डीएफ 1 और डीएफ 2) के लिए सारांश आवृत्ति सारणी का उत्पादन करता हूं।

write.csv(df1 ,file="df2.csv") 

हालांकि, के रूप में मेरे प्रश्नावली कई सवाल और इसलिए dataframes है, मैं सोच रहा था अगर वहाँ आर में करने के लिए एक तरीका है:

a<-c(1:5) 
b<-c(4,3,2,1,1) 
Percent<-c(40,30,20,10,10) 
df1<-data.frame(a,b,Percent) 
c<-c(1,1,5,2,1) 
Percent<-c(10,10,50,20,10) 
df2<-data.frame(a,c,Percent) 
rm(a,b,c,Percent) 

मैं सामान्य रूप से निम्न आदेश का उपयोग कर csv फ़ाइलें के रूप में dataframes निर्यात विभिन्न डेटाफ्रेम गठबंधन करें (उन्हें अलग करने वाली रेखा के साथ कहें), और इन्हें एक सीएसवी (और फिर अंत में एक्सेल में खोलें) में निर्यात करें? जब मैं एक्सेल खोलता हूं, तो मेरे पास मेरे सभी प्रश्न डेटाफ्रेम के साथ केवल एक फ़ाइल होगी, एक दूसरे के नीचे। यह एक सीएसवी फ़ाइल अलग-अलग फाइलों की तुलना में बहुत आसान होगी जो मुझे परिणाम देखने के लिए खोलने के लिए खोलना है।

अग्रिम में बहुत धन्यवाद।

Answer 1

यदि आपका अंतिम लक्ष्य एक्सेल स्प्रेडशीट है, तो मैं सीधे एक एक्सएलएस फ़ाइल लिखने के लिए आर में उपलब्ध कुछ टूल्स देखता हूं। निजी तौर पर, मैं XLConnect पैकेज का उपयोग करता हूं, लेकिन xlsx और कई पैकेजों में चारों ओर तैरने वाले कई write.xls फ़ंक्शंस भी हैं।

मैं XLConnect पसंद करने के लिए होता है, क्योंकि यह सिर्फ इस तरह की परिस्थितियों में कुछ उपयोगी vectorization के लिए अनुमति देता है:

require(XLConnect) 

#Put your data frames in a single list 
# I added two more copies for illustration 
dfs <- list(df1,df2,df1,df2) 

#Create the xls file and a sheet 
# Note that XLConnect doesn't seem to do tilde expansion! 
wb <- loadWorkbook("/Users/jorane/Desktop/so.xls",create = TRUE) 
createSheet(wb,"Survey") 

#Starting row for each data frame 
# Note the +1 to get a gap between each 
n <- length(dfs) 
rows <- cumsum(c(1,sapply(dfs[1:(n-1)],nrow) + 1)) 

#Write the file 
writeWorksheet(wb,dfs,"Survey",startRow = rows,startCol = 1,header = FALSE) 
#If you don't call saveWorkbook, nothing will happen 
saveWorkbook(wb) 

मैं के बाद से अन्यथा यह प्रत्येक डेटा फ्रेम के लिए स्तंभ शीर्ष लेख लिखेंगे header = FALSE निर्दिष्ट। लेकिन अंत में xls फ़ाइल में शीर्ष पर एक पंक्ति जोड़ना बहुत अधिक काम नहीं है।

Answer 2

के रूप में जेम्स ने टिप्पणी की, आप

merge(df1, df2, by="a") 

इस्तेमाल कर सकते हैं लेकिन यह है कि डेटा क्षैतिज गठबंधन होगा। आप उन्हें गठबंधन करने के लिए चाहते हैं, तो खड़ी आप rbind इस्तेमाल कर सकते हैं:

rbind(df1, df2, df3,...) 

(नोट: स्तंभ नाम rbind के लिए मैच के लिए काम करने की जरूरत)।