按另一列的值分组时列的条件和

Question

我试着把庞德拉和ESTADO==1，然后按AGLOMERADO分组

new <- recorte %>% group_by(AGLOMERADO) %>%
                        summarise(TOTocupied=sum(recorte[recorte$ESTADO==1,"PONDERA"]))

和是正确工作的，但我无法得到按AGLOMERADO分组的结果，它为每个AGLOMERADO返回相同的结果：

AGLOMERADO  TOTocupied
1           100
2           100
3           100

我做错了什么？

Answer 1

不要在$管道中使用dplyr。另外，由于我们正在使用管道，因此不需要再次引用dataframe。

你可以试试-

library(dplyr)

new <- recorte %>% 
         group_by(AGLOMERADO)%>%
         summarise(TOTocupied = sum(PONDERA[ESTADO==1], na.rm = TRUE))