使用 R studio 編輯表格

Question

門	豐富
擬桿菌門	12
厚壁菌門	4
變形菌門	3
厚壁菌門	21
厚壁菌門	9
擬桿菌門	15
變形菌門	3
擬桿菌門	8
疣微菌	2
擬桿菌門	5

我的問題是我在 R 工作室有一張像上面這樣的桌子。 我想通過在新表中組合 Phylum 列中的相似表並在執行此操作時添加 Abundance 列來編寫此表，但我找不到方法。 樣品 output；

門	豐富
厚壁菌門	34
擬桿菌門	40
變形菌門	6
疣微菌	2

你能幫我找到上面的代碼嗎？ 從現在開始謝謝你。

Answer 1

您可以使用 dplyr

library(dplyr)
df <- data.frame(Phylum = c("Bacteroidetes","Firmicutes","Proteobacteria","Firmicutes","Firmicutes","Bacteroidetes","Proteobacteria","Bacteroidetes","Verrucomicrobia","Bacteroidetes"),
                 Abundance = c(12,4,3,21,9,15,3,8,2,5))

df %>% 
  group_by(Phylum) %>% 
  summarize(Abundance = sum(Abundance)) %>% 
  ungroup()

Answer 2

df <- data.frame(Phylum = c("Bacteroidetes","Firmicutes","Proteobacteria","Firmicutes","Firmicutes","Bacteroidetes","Proteobacteria","Bacteroidetes","Verrucomicrobia","Bacteroidetes"),
                 Abundance = c(12,4,3,21,9,15,3,8,2,5))


df

           Phylum Abundance
1    Bacteroidetes        12
2       Firmicutes         4
3   Proteobacteria         3
4       Firmicutes        21
5       Firmicutes         9
6    Bacteroidetes        15
7   Proteobacteria         3
8    Bacteroidetes         8
9  Verrucomicrobia         2
10   Bacteroidetes         5

aggregate(Abundance~.,df,FUN=sum)

Output：

     Phylum Abundance
1   Bacteroidetes        40
2      Firmicutes        34
3  Proteobacteria         6
4 Verrucomicrobia         2