r - Dplyr - 选择一列是否存在，如果存在则汇总

Question

如果使用 dplyr 中的“contains”，我可以检查特定列是否存在。如果它不存在，我很难评估表达式的摘要。

这是我的代码片段:

  df <- Prod%>%
      group_by(Entity)%>%
      select(Entity,`Cum.Oil`,`Cum.Gas`,contains("EUR")%>%
      summarise(Oil = mean(`Cum.Oil`), Gas = mean(`Cum.Gas`), EUR=mean(EUR))

如果 EUR 列不存在，如何忽略汇总表达式中的“EUR”表达式？

Answer 1

像这样的东西应该可以工作:

df <- Prod%>%
      group_by(Entity)%>%
      summarise(across(any_of(c('Cum.Oil', 'Cum.Gas', 'Eur')), ~mean(.x), 
                .names = '{.col %>% str_remove("Cum.")}' )

不过，如果没有一些 reprex 就无法测试。

提示:您还可以在 select 语句中使用 any_of:

df <- Prod%>%
      group_by(Entity)%>%
      select(any_of(c('Entity', 'Cum.Oil', 'Cum.Gas', "EUR"))