将与正则表达式匹配的所有列的平均值相加

Question

我对tidyverse相当陌生，我想学习，所以这个问题专门针对使用诸如select（），mutate（）之类的东西以这种方式进行的。我知道如何通过与列索引匹配的数据帧来达到预期的效果。

我有一个很大的小标题，其中包含名为Day1，Day2，...，Day48等的列。我想使用正则表达式添加每周的平均值列（假设列名可能更复杂）。我将如何实现？

Answer 1

想通了：

data <- mutate(data, Week1=select(data, matches("^Day[1-7]$")) %>% rowMeans(na.rm=T))