如何编写基于数据框用ggplot生成指定公司股价图的R函数

原代码存在的具体问题 #

• 过滤逻辑硬编码：原代码filter(company_name == "company") 将匹配条件写死为字符串"company"，完全没有引用传入的company参数，无论调用时传什么值，都只会尝试筛选出company_name为字面量"company"的记录，无法命中目标公司。
• 列名不匹配：原代码ggplot中y轴映射写为PRC，但示例数据的价格列名是小写price，大小写不一致会触发列不存在的报错。
• 标题渲染逻辑错误：原代码在普通字符串中直接写{{company}}，这类rlang的非标准评估语法仅支持在tidyverse函数的参数位置生效，放在普通双引号字符串内会被原样输出为文本，不会替换成传入的公司名。
• 调用方式不匹配：原代码调用时写myplotfunction(df, facebook)，未给公司名加引号，R会将无引号的facebook识别为全局环境中的变量，在未定义该变量的场景下会触发“对象找不到”的报错。

可正常运行的实现方案 #

新手友好版本（字符串传参，无复杂语法） #

这个版本逻辑直白，无额外语法记忆成本，可直接兼容基础dplyr与ggplot2的运行环境：

myplotfunction <- function(df, company) {
  df %>%
    # 动态匹配传入的公司名字符串
    filter(company_name == company) %>%
    ggplot(aes(x = date, y = price)) +
    geom_line() +
    # 拼接动态标题文本
    labs(title = paste0("Price Chart: ", company)) +
    theme(plot.title = element_text(hjust = 0.5))
}

# 调用时给公司名加双引号即可生成对应图表
myplotfunction(df, "facebook")

Tidy风格版本（支持无引号传参） #

如果习惯tidyverse函数的调用习惯，希望调用时不用给公司名加引号，可以通过rlang语法捕获传入的参数值，实现和原生tidy函数一致的调用体验：

myplotfunction <- function(df, company) {
  # 捕获传入的参数，转换为对应的字符串值
  company_str <- as_name(enquo(company))
  
  df %>%
    filter(company_name == company_str) %>%
    ggplot(aes(x = date, y = price)) +
    geom_line() +
    labs(title = paste0("Price Chart: ", company_str)) +
    theme(plot.title = element_text(hjust = 0.5))
}

# 调用时无需加引号即可运行
myplotfunction(df, facebook)

关键注意事项 #

• {{}}语法仅在tidyverse函数的参数解析阶段生效，不能直接嵌在普通双引号字符串内部。如果需要在字符串中插入动态变量值，要么用paste0()拼接，要么配合glue包的字符串渲染功能使用。
• 编写filter过滤逻辑时，不要把函数参数用引号包裹成固定文本，否则匹配逻辑会被硬编码，无法接收动态传入的参数值。

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