如何使用条件运算符(>)在R语言中筛选大于X1994的列？

首先，你代码里的b <- dat$1994>[dat$Country.Name == "India"]存在语法错误，而且这不是筛选列的正确方式。要筛选标题为X1995至X2020的列，你需要先对列名做条件筛选，再提取对应的列。

步骤1：筛选目标列名 #

先获取数据集的所有列名，然后筛选出名称大于"X1994"的列（列名是X1995、X1996...X2020，字符串比较会按字典序生效）：

# 获取所有列名
col_names <- colnames(dat)
# 筛选出大于"X1994"的列，同时限制列名格式为X+4位数字，避免误选其他列
target_cols <- col_names[col_names > "X1994" & grepl("^X\\d{4}$", col_names)]

步骤2：提取目标列 #

用筛选出的列名提取数据，如果只需要India的行，再结合行筛选：

# 提取所有行的目标列
dat_target <- dat[, target_cols]

# 只提取India对应的行数据
dat_india_target <- dat[dat$Country.Name == "India", target_cols]

完整修正后的代码示例 #

library(readr)
dat <- read.csv("per_capita.csv")
head(dat)

# 获取并筛选目标列名
col_names <- colnames(dat)
target_cols <- col_names[col_names > "X1994" & grepl("^X\\d{4}$", col_names)]

# 提取India的目标列数据并格式化输出
dat_india_target <- dat[dat$Country.Name == "India", target_cols]
format(dat_india_target, scientific = F, big.mark = ',')

说明 #

• 字符串比较col_names > "X1994"按字典序匹配，X1995到X2020都会满足条件
• grepl("^X\\d{4}$", col_names)是额外校验，确保列名是X开头加4位数字的格式，避免误选其他类似名称的列
• 批量提取列用dat[, target_cols]，而非$符号（$仅能提取单个列）

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