使用R中的管道按变量汇总

Question

我想使用管道函数并根据费率汇总每种化合物的损害。

我的代码如下

MyData1=data.frame(Compound = c("c1","c1","c2","c2", "c3"), Damage= c(7,7,8,9,10), Rate = c(8,8,8,8,8))

MyData1 %>% filter(Rate == 8.000) %>%
  group_by(Compound) %>%
  summarize(mean_damage = mean(Damage, na.rm = TRUE))

不幸的是，它返回一个值。我希望以给定的比率获得每种化合物的平均损坏。因此，输出将有3行，每个化合物一行，在单独的列中每行平均损坏。

谢谢。