在R语言中按特定数字开头分组数据：提取指定月份的a、l列数据

针对你需要从行名为「月份-年份」格式的data.frame中提取1月、3月的a列和l列数据的需求，这里提供两种实用的R方案，你可以根据自己的习惯选择：

方案1：基础R实现 #

不需要额外安装包，用原生函数就能轻松搞定：

步骤1：从行名提取月份信息 #

首先我们从行名里拆分出月份数字，方便后续筛选：

# 通过正则表达式提取"-"前的月份数字
data$month <- as.integer(sub("-.*", "", rownames(data)))

步骤2：筛选并提取目标数据 #

根据月份筛选行，再提取对应的列到指定变量：

# 提取1月的a列（保留行名和data.frame结构）
january_a <- data[data$month == 1, "a", drop = FALSE]
# 提取1月的l列
january_l <- data[data$month == 1, "l", drop = FALSE]

# 提取3月的a列
march_a <- data[data$month == 3, "a", drop = FALSE]
# 提取3月的l列
march_l <- data[data$month == 3, "l", drop = FALSE]

方案2：dplyr tidyverse风格实现 #

如果你习惯用tidyverse的语法，这个方案更简洁直观：

步骤1：加载包并添加月份列 #

library(dplyr)
library(stringr)

# 给数据添加月份列（从行名提取）
data <- data %>%
  mutate(month = as.integer(str_extract(rownames(.), "^\\d+")))

步骤2：筛选提取数据 #

用管道语法一步完成筛选和列选择：

# 提取1月的a列
january_a <- data %>% filter(month == 1) %>% select(a)
# 提取1月的l列
january_l <- data %>% filter(month == 1) %>% select(l)

# 提取3月的a列
march_a <- data %>% filter(month == 3) %>% select(a)
# 提取3月的l列
march_l <- data %>% filter(month == 3) %>% select(l)

验证结果 #

运行代码后，你会得到和示例完全匹配的结果：
比如january_a的输出：

a
1-2006 3.498939
1-2007 14.801777
1-2008 6.893728

march_l的输出：

l
3-2015 0.7685706
3-2016 0.6225338
3-2017 0.9562201
3-2018 1.1006459

小提示 #

• 基础R方案中的drop = FALSE和dplyr方案中的select()，都是为了保留行名和data.frame结构；如果只需要纯数值向量，可以去掉drop = FALSE，或者用pull()替代select()；
• 正则表达式"-.*"和"^\\d+"都是用来匹配行名中的月份部分，如果你的行名格式有变化，只需要调整正则表达式即可适配。

内容的提问来源于stack exchange，提问作者Hüsamettin Tayşi