如何按年份计算分组的负值

Question

我有一个价格数据集，其中第一列是年份，其余列是地区。我正在尝试按地区逐年计算负值的数量。

我尝试使用dplyr依次使用group_by(year)和summarise_at()，但是我无法弄清楚要使用的确切代码。

Neg_Count <- select (BaseCase, Year, 'Hub1': 'Hub15')
Neg_Count <- Neg_Count %>%
  group_by(Year) %>%

最好的方法是什么？

Answer 1

我们可以使用summarise_at。创建逻辑向量并获取sum

library(dplyr)
Neg_Count %>%
      group_by(Year) %>%
       summarise_at(vars(starts_with("Hub")), ~ sum(. < 0))