如何通过另一个data.frame的指定参数对数据框进行子集化？

我先把你的示例代码补全并修正（原始代码里的数值是字符串格式，转置后列名也不够直观），然后给出几种实用的实现方式：

首先，调整数据结构让它更便于后续操作：

# 创建原始数据：物种作为行名，参数作为列（数值型）
raw_data <- data.frame(
  B = c(0.5, 3, 0, 0, 5, 0, 15),
  C = c(0, 0, 3, 15, 15, 0, 0),
  D = c(0.5, 0.5, 0.5, 0, 0, 0, 0),
  E = c(37.5, 37.5, 0.5, 62.5, 0.5, 0.5, 1),
  row.names = c("ABI", "BET", "ALN", "SPH", "PTI", "DIC", "PTD")
)
# 转置后得到「参数为行、物种为列」的df1
df1 <- t(raw_data)

# 假设df2是包含你要保留的物种列表的data.frame（指定参数列）
df2 <- data.frame(selected_species = c("ABI", "PTI", "DIC"))

基础R实现方式 #

场景1：保留df1中指定物种对应的列 #

# 提取df2里的目标物种名称
target_species <- df2$selected_species
# 子集化df1，只保留匹配的列
df1_subset <- df1[, colnames(df1) %in% target_species]

场景2：若df1是「物种为行、参数为列」的原始结构 #

# 未转置的原始df1
df1 <- data.frame(
  species = c("ABI", "BET", "ALN", "SPH", "PTI", "DIC", "PTD"),
  B = c(0.5, 3, 0, 0, 5, 0, 15),
  C = c(0, 0, 3, 15, 15, 0, 0),
  D = c(0.5, 0.5, 0.5, 0, 0, 0, 0),
  E = c(37.5, 37.5, 0.5, 62.5, 0.5, 0.5, 1)
)
# 保留指定物种的行
df1_subset <- df1[df1$species %in% df2$selected_species, ]

dplyr包简化实现 #

如果你习惯tidyverse风格的代码，dplyr会让操作更简洁直观：

library(dplyr)

# 列子集化（物种为列的情况）
df1_subset <- df1 %>% select(all_of(df2$selected_species))

# 行子集化（物种为行的情况）
df1_subset <- df1 %>% filter(species %in% df2$selected_species)

额外提示：处理匹配异常 #

如果df2里包含df1不存在的物种名称，用intersect()可以确保只保留实际存在的条目，避免报错：

safe_selected <- intersect(df2$selected_species, colnames(df1))
df1_subset <- df1[, safe_selected]

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