在R中通过使用函数传递变量

Question

我正在尝试通过一个函数使用plotly 创建一个环形图，以便我可以更改变量。

以下代码返回无图表，但也没有错误：

library(plotly)
library(dplyr)

function_ringchart<- function(dataset, labvar, summvar){
summvar_temp <- enquo(summvar)
labvar_temp <- enquo(labvar)
p<- plot_ly(data = dataset, labels = ~labvar_temp, values = ~summvar_temp , type ="pie",hole = 0.6)
p
}

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

以下代码可以正常工作并且返回正确的图表（不改变值变量）：

function_ringchart<- function(dataset, labvar){
#summvar_temp <- enquo(summvar)
labvar_temp <- enquo(labvar)
p<- plot_ly(data = dataset, labels = ~labvar_temp, values = ~msgcount, type ="pie",hole = 0.6)
p
}

function_ringchart(df, "person")

想知道第一组代码不起作用的原因是什么，或者如何正确使用plot_ly 的values =~ 组件的变量输入？

Answer 1

也许是这样的？

function_ringchart<- function(dataset, labvar, summvar){ 
  plot_ly(data = dataset, labels = dataset[,labvar])[[1]],
              values = dataset[,summvar])[[1]], type ="pie",
              hole = 0.6) 

} 
function_ringchart(economics, labvar = "date",  summvar = "pop")

如果数据在 tibble 中，它显然不会渲染任何内容，因此您必须使用 dataset[,summvar])[[1]] 获取值，或者您也可以转换为矩阵。