如何在ggplot的aes()中通过年份变量传递计算式？

问题场景 #

用ggplot绘制矢量数据时，直接在aes(fill)中写运算式100*v_2000/p_2000能正常运行，但通过年份变量拼接字符串后，用rlang::sym()解析却报错，错误提示找不到对象100*v_2000/p_2000。

错误原因 #

rlang::sym()只能解析单个变量名，无法处理包含运算逻辑的表达式字符串。它会把整个100*v_2000/p_2000当成一个不存在的列名，自然会触发报错。

解决方案 #

方法1：用parse_expr()解析运算表达式字符串

用rlang::parse_expr()替代sym()，它可以把包含运算的字符串解析成可执行的R表达式：

yr = 2000
expr_str = paste0("100*v_", yr, "/p_", yr)
ggplot() +
  geom_spatvector(data=vec, aes(fill = !!rlang::parse_expr(expr_str)), color="black") +
  labs(title="Title", fill="")

方法2：提前在数据中计算目标列（更推荐）

先在矢量数据中生成对应年份的计算列，再直接调用列名，逻辑更清晰，也方便后续复用：

yr = 2000
# 生成计算列
vec[[paste0("ratio_", yr)]] = 100 * vec[[paste0("v_", yr)]] / vec[[paste0("p_", yr)]]
# 绘图
ggplot() +
  geom_spatvector(data=vec, aes(fill = !!rlang::sym(paste0("ratio_", yr))), color="black") +
  labs(title="Title", fill="")

内容的提问来源于stack exchange，提问作者San-Diego-WX