從分組的小標題中求和一個 col

Question

我有以下數據框：

library(tidyverse)
datasetmax <- data.frame(pearl = c('new','new','recurrent','recurrent','new'),
                         jam = c(10,20,30,40,50), 
                         dog = c(1,2,3,1,2),
                         stringsAsFactors = FALSE)

我將數據框分組為一個摘要：

datasetmax %>% 
  mutate(temple = ifelse(pearl == 'new', jam * 0.1, jam * 0.2)) %>% 
  group_by(pearl) %>% summarise(plus = sum(temple), weight = sum(jam*dog)/sum(dog))

我想要列權重（兩個值）的總和，應該是 62.5

我嘗試了以下代碼：

datasetmax %>% 
  mutate(temple = ifelse(pearl == 'new', jam * 0.1, jam * 0.2)) %>% 
  group_by(pearl) %>% summarise(plus = sum(temple), weight = sum(jam*dog)/sum(dog)) %>% colSums(plus)

但它告訴我“加號”列不存在。 為什么？ 你能幫我一把嗎？ 謝謝你。

Answer 1

像這樣：

datasetmax %>% 
  mutate(temple = ifelse(pearl == 'new', jam * 0.1, jam * 0.2)) %>% 
  group_by(pearl) %>% summarise(plus = sum(temple), weight = sum(jam*dog)/sum(dog)) %>% 
  select(weight) %>% sum()