与dplyr分组后如何计算新列

Question

在按“团队”为我的Shiny Dashboard分组后，我需要计算每个负载的收入。 有人告诉我我的论点的“类型”（字符）无效

我尝试更改摘要功能的格式。 它在控制台中不起作用，因此我删除了代码的Shiny部分。

 August <- data.frame("Revenue" = c(10,20,30,40), "Volume" = c(2,4,5,7), 
 "Team" = c("Blue","Green","Gold","Purple"))


  x <-   August %>% group_by(Team) %>% summarise(Revenue = sum(Revenue)) / 
 August %>% group_by(Team) %>% summarise(Volume = sum(volume)) %>%

显示“错误：参数的无效'类型'（字符）”，而不是条形图

Answer 1

汇总Revenue和Volume ，然后取其比例。 请注意， summarise是从左到右进行的，因此在summarise语句中定义了“ Revenue和“ Volume之后， RevByVol定义中对它们的引用是指这些新定义，而不是原始的未摘要版本。

August %>% 
  group_by(Team) %>% 
  summarise(Revenue = sum(Revenue), 
    Volume = sum(Volume), 
    RevByVol = Revenue / Volume) %>%
  ungroup 

赠送：

# A tibble: 4 x 4
  Team   Revenue Volume RevByVol
  <fct>    <dbl>  <dbl>    <dbl>
1 Blue        10      2     5   
2 Gold        30      5     6   
3 Green       20      4     5   
4 Purple      40      7     5.71