表具有多個因變量

Question

如何創建一個表具有以下數據：

初始數據表：

完表結果：

這裏將是容易輸入到R的代碼（我將在操作期間從csv文件中讀取）：

Date = c(20170101,20170101,20170102,20170102,20170102,20170102,20170103) 
Person = c("Adam","Adam","Adam","Ben","Ben","Ben","Ben") 
Fruit = c("Apple", "Pear","Bananna","Blueberry","Cherry","Grape","Grape") 
z= data.frame(Date,Person,Fruit) 

Answer 1

的tapply()功能可以使用c函數值安排成一個矩陣對象。值獲得封裝在名單：

with(z, tapply(Fruit, list(Person,Date), FUN=c)) 

    20170101 20170102 20170103 
Adam Character,2 "Bananna" NULL  
Ben NULL  Character,3 "Grape" 

然後，您可以顯示矩陣對象與奉迎：

library(pander) 
panderOptions('keep.line.breaks', TRUE) 
mytable <- with(z, tapply(Fruit, list(Person,Date), FUN=c)) 
pandoc.table(mytable, style="multiline") 

---------------------------------------------------------- 
    &nbsp; 20170101   20170102   20170103 
---------- ----------- ------------------------ ---------- 
**Adam** Apple, Pear   Bananna    NULL 

**Ben**  NULL  Blueberry, Cherry, Grape Grape 
---------------------------------------------------------- 

如果你想分離的「細胞」行，你可以使用樣式=「網格」。然後，輸出看起來像：

+----------+-------------+--------------------------+------------+ 
| Person | 20170101 |   20170102   | 20170103 | 
+==========+=============+==========================+============+ 
| Adam | Apple, Pear |   Bananna   |   | 
+----------+-------------+--------------------------+------------+ 
| Ben |    | Blueberry, Cherry, Grape | Grape | 
+----------+-------------+--------------------------+------------+ 

如果使用paste0與崩潰，你可以刪除逗號並使用換行來代替：

mytable <- with(z, tapply(Fruit, list(Person,Date), FUN=paste0, collapse="\n")) 

矩陣的結構是現在不同了，每個條目是一個長度爲1的字符值，但隨後會顯示在一個pandoc表中，每個Fruit顯示在一行上：

pandoc.table(mytable, style="multiline") # or style ="grid" as above 
#------------ 
------------------------------------------- 
      20170101 20170102 20170103 
---------- ---------- ---------- ---------- 
**Adam** Apple  Bananna  NA  
       Pear       

**Ben**  NA  Blueberry Grape 
         Cherry    
         Grape    
-------------------------------------------