在R中使用for循环和ggplot处理promises (rlang)

library(rlang)

# 创建一个包含多个promise的列表
promises <- list(
  promise1 = quo(mean(mtcars$mpg)),
  promise2 = quo(mean(mtcars$hp)),
  promise3 = quo(mean(mtcars$wt))
)

# 使用for循环处理每个promise
for (promise_name in names(promises)) {
  promise <- promises[[promise_name]]
  
  # 强制执行promise并获取结果
  result <- eval_tidy(promise)
  
  # 打印结果
  cat(promise_name, ": ", result, "\n")
}

library(ggplot2)
library(rlang)

# 创建一个包含多个promise的列表
promises <- list(
  promise1 = quo(mean(mtcars$mpg)),
  promise2 = quo(mean(mtcars$hp)),
  promise3 = quo(mean(mtcars$wt))
)

# 使用for循环处理每个promise并绘制图表
for (promise_name in names(promises)) {
  promise <- promises[[promise_name]]
  
  # 强制执行promise并获取结果
  result <- eval_tidy(promise)
  
  # 创建数据框
  df <- data.frame(promise_name = promise_name, result = result)
  
  # 绘制柱状图
  ggplot(df, aes(x = promise_name, y = result)) +
    geom_bar(stat = "identity", fill = "steelblue") +
    labs(x = "Promise", y = "Result") +
    ggtitle("Promises Results")
}