R中Plotly自定义函数传参绘制环形图的问题

为什么第一段代码无法生成图表？ #

你的代码失效主要是两个关键问题导致的：

1. 参数处理逻辑错配：你调用函数时传入的是字符串形式的列名（比如"person"），但enquo()是用来捕获裸变量名（不带引号的person）的工具。这就导致labvar_temp和summvar_temp并没有指向数据框里的实际列，而是变成了包含字符串的表达式，plot_ly根本找不到对应的数据。
2. plot_ly的映射语法错误：在plot_ly()里写~labvar_temp时，它不会自动解析你捕获的表达式，反而把labvar_temp这个对象本身当成了要映射的变量——相当于你让它用一个叫labvar_temp的列来绘图，但你的数据里根本没有这个列，自然出不了图。

而第二段代码能运行，只是因为你把values硬编码成了~msgcount，plot_ly能直接找到数据里的msgcount列；至于labels部分其实也存在同样的参数错配问题，只是可能你的测试数据刚好让它看起来正常而已。

正确的实现方式 #

根据你的使用习惯（传入字符串列名），这里有两种最简洁的修正方案：

方案1：使用.data代词（推荐，tidyverse官方推荐写法）

新版本的dplyr和plot_ly支持用.data[[列名字符串]]的方式直接引用列，不需要额外处理符号，代码更直观：

library(plotly)
library(dplyr)

function_ringchart <- function(dataset, labvar, summvar){
  p <- plot_ly(data = dataset, 
               labels = ~.data[[labvar]],  # 直接用字符串引用列
               values = ~.data[[summvar]],
               type = "pie", 
               hole = 0.6)
  p
}

# 调用方式不变，传入字符串参数
function_ringchart(df, "person","msgcount")

方案2：用sym()+!!解析字符串

如果你用的是旧版本的包，可以把字符串转换成符号对象，再用!!（强制解析操作符）让plot_ly识别对应的列：

function_ringchart <- function(dataset, labvar, summvar){
  # 将字符串转为符号对象
  lab_sym <- sym(labvar)
  sum_sym <- sym(summvar)
  
  p <- plot_ly(data = dataset, 
               labels = ~!!lab_sym,  # 强制解析符号对应的列
               values = ~!!sum_sym,
               type = "pie", 
               hole = 0.6)
  p
}

function_ringchart(df, "person","msgcount")

额外选项：传入裸变量名（tidyverse风格）

如果你愿意在调用函数时去掉引号，直接传入裸变量名，可以用enquo()配合!!来实现，这也是tidyverse的常用写法：

function_ringchart <- function(dataset, labvar, summvar){
  # 捕获裸变量名的表达式
  lab_quosure <- enquo(labvar)
  sum_quosure <- enquo(summvar)
  
  p <- plot_ly(data = dataset, 
               labels = ~!!lab_quosure,
               values = ~!!sum_quosure,
               type = "pie", 
               hole = 0.6)
  p
}

# 调用时不用加引号，直接传变量名
function_ringchart(df, person, msgcount)

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