R 将与正则表达式匹配的所有列的平均值添加到TIBLE

我对tidyverse还比较陌生，我想学习，所以这个问题特别是关于用tibble的方式做这件事，使用诸如选择、变异之类的东西。我知道如何使用与列索引匹配的数据帧来实现所需的效果

我有一个相当大的tibble，其中包含名为Day1、Day2、…、Day48等列。我想添加每周的平均值列，使用正则表达式假设列名可能更复杂。我该如何做到这一点？

我想：

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

---

如果可能的话，最好给出一个最小的可复制示例。这似乎是Summary_atvars等的问题。这是一个包dplyr函数。在得到最终答案之前，您需要给我们一些示例输入和输出数据，但我相信通过dplyr函数收集和分组变量可能是潜在解决方案的一部分。