r - 在 dplyr mutate 中对具有特定模式的变量求和

Question

我有一个包含多个变量的 data.frame，我需要根据它们名称中的模式对它们进行求和。更具体地说，我有总和为 1 的股票，不包括我需要找出的可能的残差。为此，我正在使用 dplyr。

示例数据框:

 df <- data.frame(year = c(2000, 2001, 2002),
             aShare = c(.1,.2,.3),
             bShare = c(.3,.4,.5))

我试过像这样使用 ends_with 函数:

tmp <- df %>% mutate(otherShare = 1 - sum(ends_with("Share")))

但它不会产生所需的结果:

TMP <- df %>% mutate(otherShare = 1 - (aShare + bShare))

Answer 1

以 R 为基数

df$x <-1- rowSums(df[colnames(df)[grepl("Share",colnames(df))]])

用半双螺旋 :P

df$x = (1-df %>% select(ends_with("Share")) %>% rowSums())