将与正则表达式匹配的所有列的平均值添加到 tibble
Add the mean of all columns matching a regular expression to a tibble
我是 tidyverse 的新手，我想学习，所以这个问题特别是关于使用 select()、mutate() 之类的东西以 tibble 方式进行此操作。我知道如何使用匹配列索引的数据框来达到预期的效果。
我有一个相当大的小标题，其中包含名为 Day1、Day2、...、Day48 等的列。我想使用正则表达式为每周添加平均值列（假设列名可能更复杂）。我将如何实现这一目标？
想通了：
data <- mutate(data, Week1=select(data, matches("^Day[1-7]$")) %>% rowMeans(na.rm=T))
我是 tidyverse 的新手，我想学习，所以这个问题特别是关于使用 select()、mutate() 之类的东西以 tibble 方式进行此操作。我知道如何使用匹配列索引的数据框来达到预期的效果。
我有一个相当大的小标题，其中包含名为 Day1、Day2、...、Day48 等的列。我想使用正则表达式为每周添加平均值列（假设列名可能更复杂）。我将如何实现这一目标？
想通了：
data <- mutate(data, Week1=select(data, matches("^Day[1-7]$")) %>% rowMeans(na.rm=T))