我如何創建一個函數來使用 echarts4r 創建繪圖？

Question

大家好，晚安。 我想知道是否可以創建一個函數來簡化在 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)

Answer 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")