如何解析字符串参数更新ggplot的theme()？Shiny应用开发需求

问题背景 #

需要开发一个Shiny应用，允许用户输入类似panel.grid.minor = element_line(colour = 'red')的字符串，以此动态更新ggplot的主题样式。尝试使用parse_expr()和eval_tidy()实现时发现无效，需要修正方法。

原始绘图代码：

library(ggplot2)
library(rlang)
theme_set(theme_dark())
ggplot(mpg, aes(displ, hwy, colour = class))+
  geom_point()

尝试的无效代码：

library(ggplot2)
library(rlang)
theme_set(theme_dark())

x <- "panel.grid.minor = element_line(colour = 'red')"

theme_update(eval_tidy(parse_expr(x)))
ggplot(mpg, aes(displ, hwy, colour = class)) +
  geom_point()

解决方法 #

问题出在theme_update()需要接收命名参数，而原代码中eval_tidy(parse_expr(x))仅返回了element_line对象，没有将其作为panel.grid.minor参数传递给theme_update()。可以通过以下两种方式修正：

方法1：构造完整的theme_update调用表达式 #

将用户输入的字符串拼接成theme_update(...)的完整表达式，再直接求值：

library(ggplot2)
library(rlang)

theme_set(theme_dark())

x <- "panel.grid.minor = element_line(colour = 'red')"

# 拼接并执行完整的theme_update调用
eval(parse_expr(paste0("theme_update(", x, ")")))

ggplot(mpg, aes(displ, hwy, colour = class)) +
  geom_point()

方法2：将字符串解析为参数列表，用do.call调用 #

先把用户输入的字符串解析成参数列表，再通过do.call传递给theme_update()：

library(ggplot2)
library(rlang)

theme_set(theme_dark())

x <- "panel.grid.minor = element_line(colour = 'red')"

# 解析为参数列表
theme_params <- eval(parse_expr(paste0("list(", x, ")")))
# 调用theme_update
do.call(theme_update, theme_params)

ggplot(mpg, aes(displ, hwy, colour = class)) +
  geom_point()

两种方法都能正确将用户输入的主题设置传递给theme_update()，实现动态修改ggplot主题的效果。

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