也许你可以做一个通用的e_radar函数。你可以用e_radar_()代替e_radar()

library(echarts4r)
library(tibble)

e_radar_unknown_columns <- function(df = NULL){
  
  radarPlot <- df |>
    e_charts(Construct)
  
  for (i in 2:length(df)){
    radarPlot <- radarPlot |>
      e_radar_(names(df)[i], max = 100)
  }
  
  return(radarPlot)  
}

data_long <- tibble::tibble(
  Construct = c("C", "A", "B"),
  oter = c(10, 50, 100),
  calcu2 = c(50, 90, 5),
  foker = c(15, 35, 75)
)

data_long2 <- tibble::tibble(
  Construct = c("C", "A", "B"),
  radar1 = c(10, 50, 100),
  calcu2 = c(1, 100, 55),
  foker = c(50, 40, 90)
)

data_long3 <- tibble::tibble(
  Construct = letters[1:10],
  name1 = sample(1:100, 10),
  name2 = sample(1:100, 10),
  name3 = sample(1:100, 10),
  name4 = sample(1:100, 10),
  name5 = sample(1:100, 10),
  name6 = sample(1:100, 10),
  name7 = sample(1:100, 10),
  name8 = sample(1:100, 10),
  name9 = sample(1:100, 10)
)

e_radar_unknown_columns(data_long)
e_radar_unknown_columns(data_long2)
e_radar_unknown_columns(data_long3)

字符串