如何在R中按sensor_name列值前缀拆分DataFrame为多个子DataFrame？

嗨，我来帮你搞定这个问题～你之前的代码是用来筛选列名带指定前缀的列，而你的需求是根据行里sensor_name列的前缀拆分数据框，方向有点偏，咱们调整一下思路就好啦！

先明确场景 #

假设你的数据框temp_df长这样（包含sensor_name、时间戳和其他数据列）：

temp_df <- data.frame(
  sensor_name = c("RI_001", "RI_002", "AI_001", "AI_002", "FI_001"),
  time_stamp = c("2024-01-01", "2024-01-02", "2024-01-01", "2024-01-02", "2024-01-01"),
  reading = c(12.3, 14.5, 22.1, 23.8, 56.7)
)

方法一：手动拆分（适合少数前缀的情况） #

如果只有RI_、AI_这几个前缀，直接用简单的筛选就能生成独立数据框：

用Base R的subset函数

# 提取sensor_name以"RI_"开头的所有行，生成RI_df
RI_df <- subset(temp_df, grepl("^RI_", sensor_name))
# 同理生成AI_df
AI_df <- subset(temp_df, grepl("^AI_", sensor_name))

这里的grepl("^RI_", sensor_name)是正则表达式匹配：^表示字符串开头，所以只会精准匹配以"RI_"开头的sensor_name值。

用tidyverse的dplyr包（更符合现代R风格）

如果你习惯用dplyr的管道语法，代码会更清爽：

library(dplyr)

RI_df <- temp_df %>% filter(grepl("^RI_", sensor_name))
AI_df <- temp_df %>% filter(grepl("^AI_", sensor_name))

方法二：批量拆分（前缀多的时候更高效） #

如果有很多前缀（比如还要处理FI_、TI_等），可以一次性批量拆分并自动生成对应的数据框：

# 第一步：定义需要匹配的前缀列表
target_prefixes <- c("RI_", "AI_", "FI_")

# 第二步：批量拆分，得到一个包含所有子数据框的列表
split_dfs <- lapply(target_prefixes, function(prefix) {
  subset(temp_df, grepl(paste0("^", prefix), sensor_name))
})

# 第三步：给列表里的每个元素命名（对应最终的DataFrame名字）
names(split_dfs) <- c("RI_df", "AI_df", "FI_df")

# 第四步：把列表里的每个数据框放到全局环境，直接就能用RI_df调用了
list2env(split_dfs, envir = .GlobalEnv)

为什么你之前的代码没用？ #

你之前写的select(starts_with(.x))是用来筛选列名以指定前缀开头的列（比如如果有RI_col1、RI_col2这样的列，会被选中），但你的需求是筛选行，所以要用filter（或subset）结合grepl来匹配行的sensor_name值才行～

内容的提问来源于stack exchange，提问作者MargS