汇总函数dplyr

Question

一切都很好吗？

那一周，我花时间写了一个脚本，直到今天早上似乎仍然有效。但是后来我尝试再次运行它，并且恰好在使用dplyr软件包的“汇总”功能的部分中出现了我从未见过的错误。

下面是我使用的代码和控制台上的错误的摘录：

library(tidyverse)

a <- c(1,0,1,1,0,1,1,1,1,0,0)

b <-c(  0.9157101,  
        0.4854955,  
        0.8853174,  
        0.4373646,  
        0.3855175,  
        0.8603407,  
        0.9193342,  
        0.4693117,  
        0.9849855,  
        0.4458159,  
        0.4379776)

c <- c(8,2,7,1,0,6,8,1,9,1,1)

treated_data <- data.frame(Risk = a ,
                           Model_Predicted = b,
                           Grupo = c)

calculo <- treated_data %>% group_by(Grupo) %>% summarise(Quantidade = n(),
                                                          Non_event = sum(Risk),
                                                          Event = n() - sum(Risk))

Console Result:
---------------------------------------------------------
Error in n() : argument "vec" is missing, with no default 
---------------------------------------------------------