如何將多個數據框合併到一個表中並導出到Excel？

Question

我想合併幾個數據框到一個表中，並導出到Excel。數據框如下生成。

sex <- c("male","female") 
count1 <- c(304,410) 
df.sex <- data.frame(sex,count1) 
df.sex[,"per"] <- df.sex$count1/sum(df.sex$count1) 

agegp <- c("<=24","25-29","30-34","35-39") 
count2 <- c(204,250,125,135) 
df.agegp <- data.frame(agegp,count2) 
df.agegp[,"per"] <- df.agegp$count2/sum(df.agegp$count2) 

df.sex 
sex count1  per 
male 304 0.4257703 
female 410 0.5742297 

df.agegp 
agegp count2  per 
<=24 204 0.2857143 
25-29 250 0.3501401 
30-34 125 0.1750700 
35-39 135 0.1890756 

由於兩個DF的第一列是不同的，我不能rbind他們並導出到Excel。

我想生成一個像下面這樣的表格並將其導出到Excel。

任何人都可以幫忙嗎？

 count percentage 
sex  
male 304  0.4257703 
female 410  0.5742297 
agegp  
<=24 204  0.2857143 
25-29 250  0.3501401 
30-34 125  0.1750700 
35-39 135  0.1890756 

Answer 1

那怎麼樣？

sink(file = "mergedPrinting.csv") 

cat("First Frame:\n") 
write.csv(df.agegp, row.names = F) 

cat("--------\n") 

cat("Second Frame:\n") 
write.csv(df.sex, row.names = F) 

sink() 

Answer 2

有兩個EXCEL導入/導出R-包我知道的，都讓你定義左上角的單元格，在其中開始寫你的data.frame和羯羊使用的標題。

• XLConnect
• xlsx

在你的情況我會寫標籤，計數，百分比，性別，agegp，單值進入細胞，然後寫兩個data.frames與rownames，但沒有列名到正確的位置。

關於如何打開/創建用於寫入的EXCEL文件和用於寫入data.frames的函數，請參閱這兩個包的暈影。