R语言 交互式绘图echarts4r包--3D深探

表面

data <- expand.grid(
  x = seq(-3, 3, by = 0.05),
  y = seq(-3, 3, by = 0.05)
) |> 
  dplyr::mutate(z = sin(x * x + y * y) * x / 3.14)

data |> 
  e_charts(x) |> 
  e_surface(y, z, wireframe = list(show = FALSE)) |> 
  e_visual_map(z)

3维柱状图

v <- LETTERS[1:10]
matrix <- data.frame(
  x = sample(v, 300, replace =