根据由不同列分组的列的总和创建百分比列？

Question

我正在争夺一个庞大的数据集，而我的R技能非常新。我真的在努力理解术语和过程，但发现这是一项斗争，因为R条件对我来说通常没有意义。很抱歉这是一个愚蠢的问题。

我在不同地面覆盖百分比的不同地点有植物物种的数据。我想创建一个新的列支撑罩，该柱子将每个物种覆盖物的比例占特定地点所有物种总覆盖率的百分比。这与按场地区域计算覆盖率的百分比略有不同，因为它无视裸露的地面而没有植被。这是一个仅使用一个站点的简单计算，但是我有一百多个站点，需要对按位置进行分组的物种进行计算。所需的列输出是支撑杆。

SPECIES   SITE  COVER   PROP-COVER(%)
1           1   10         7.7
2           1   20         15.4
3           1   10         7.7
4           1   20         15.4
5           1   30         23.1
6           1   40         30.8
2           2   20         22.2
3           2   50
5           2   10
6           2   10
1           3   5
2           3   25
3           3   40
5           3   10

我已经查看了循环并重复一遍，但看不到论点应该去了哪里。我进行的每次尝试都返回无效。

以下是我尝试过的一些示例，我确定这些东西是完全宽广的，但是我无法弄清楚从哪里开始或知道是否可能。

a<- for (i in data1$COVER) {
  sum(data1$COVER[data1$SITE=="i"],na.rm = TRUE)
}
a
NULL

当涉及“循环”等工作方式时，我有一个重大的脑部障碍，没有任何阅读似乎有所帮助，但是也许我想做的事情是不可能的吗？ :(

非常感谢您的查看。

Answer 1

在基本R中：

merge(df, prop.table(xtabs(COVER~SPECIES+SITE, df), 2)*100)

   SPECIES SITE COVER      Freq
1        1    1    10  7.692308
2        1    3     5  6.250000
3        2    1    20 15.384615
4        2    2    20 22.222222
5        2    3    25 31.250000
6        3    1    10  7.692308
7        3    2    50 55.555556
8        3    3    40 50.000000
9        4    1    20 15.384615
10       5    1    30 23.076923
11       5    2    10 11.111111
12       5    3    10 12.500000
13       6    1    40 30.769231
14       6    2    10 11.111111

在整理中，您可以做：

df %>%
   group_by(SITE) %>%
   mutate(n = proportions(COVER) * 100)

# A tibble: 14 x 4
# Groups:   SITE [3]
   SPECIES  SITE COVER     n
     <int> <int> <int> <dbl>
 1       1     1    10  7.69
 2       2     1    20 15.4 
 3       3     1    10  7.69
 4       4     1    20 15.4 
 5       5     1    30 23.1 
 6       6     1    40 30.8 
 7       2     2    20 22.2 
 8       3     2    50 55.6 
 9       5     2    10 11.1 
10       6     2    10 11.1 
11       1     3     5  6.25
12       2     3    25 31.2 
13       3     3    40 50   
14       5     3    10 12.5 

也可以将代码写为n = cover/sum（cover），甚至n = prop.table（cover）