如何创建一个使用 echarts4r 创建绘图的函数？答案

【问题标题】：How I can create a function for create a plot with echarts4r?如何创建一个使用 echarts4r 创建绘图的函数？
【发布时间】：2021-12-13 07:36:28
【问题描述】：

大家好，晚安。我想知道是否可以创建一个函数来简化在 r 中使用 Echarts4r 创建图表的过程。我正在尝试，但我收到错误 Error: Can't subset columns that don't exist.。任何人都知道我该如何解决它？我使用的代码如下：

library(echarts4r)

graf_func <- function(dataframe, vary, varx){
  
  grafico <- base |> 
    e_charts(vary) |> 
    e_bar(varx) |> 
    e_tooltip(trigger = "axis")
  
  return(grafico)
  
}

df <- data.frame(
  var1 = runif(10, min = 100, max = 200),
  var2 = runif(10, min = 10, max = 200)
)


graf_func(dataframe = df, vary = var1, varx = var2)

【问题讨论】：

标签： r function echarts

【解决方案1】：

使用函数e_charts_ 和e_bar_ 并将列名作为字符传递。

library(echarts4r)

graf_func <- function(dataframe, vary, varx){
  
  grafico <- dataframe |> 
    e_charts_(vary) |> 
    e_bar_(varx) |> 
    e_tooltip(trigger = "axis")
  
  return(grafico)
  
}

df <- data.frame(
  var1 = runif(10, min = 100, max = 200),
  var2 = runif(10, min = 10, max = 200)
)


graf_func(dataframe = df, vary = "var1", varx = "var2")

【讨论】：