这个问题的核心是R中data.frame索引的规则差异——当你用数值作为索引时，R会默认把它当成列的位置序号，而不是列名匹配。你的data.frame只有2列，用数值2021去索引自然会报“未定义列”的错误。

下面是几种快速解决的方法：

方法1：将数值变量转换为字符型 #

因为你的列名本质是字符串（即使看起来是数字，check.names=FALSE让R保留了原始的字符型列名），所以把变量转成字符后再匹配列名就可以了：

asd <- data.frame(`2021`=rnorm(3), `2`=head(letters,3), check.names=FALSE)
x = 2021

# 转换为字符
x_char <- as.character(x)
asd[x_char]

输出会符合你的预期：

2021
1  1.5570860
2 -0.8807877
3 -0.7627930

方法2：直接在引用时转换类型 #

如果不想额外创建变量，可以在索引的时候直接转换：

# 返回数据框格式
asd[, as.character(x)]

# 返回向量格式（如果只需要单列值）
asd[[as.character(x)]]

方法3：一开始就定义字符型变量 #

如果可以提前确定变量用途，直接把x定义为字符串：

x = "2021"
asd[x]

补充说明 #

为什么原始代码会报错？因为asd[x]中x是数值2021，R会尝试选取第2021列，但你的data.frame只有2列，所以触发了undefined columns selected错误。只有当索引值是字符时，R才会去匹配列名。

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