echarts4r 包如何绘制三维彩色气泡图

meeeeeeeeo
我的也是0.4.4，一样的现象，但是官网上类似的例子明明又是能跑出来的……

quakes |>
    dplyr::mutate(color = mag) |>
    e_charts(x = lat) |>
    e_scatter_3d(
        y = long, z = depth,
        size = mag,
        color = mag,
        bind = stations,
        coordinate_system = "cartesian3D",
        name = "Fiji"
    ) |>
    e_x_axis_3d(min = -40, max = -10, name = "纬度") |>
    e_y_axis_3d(min = 165, max = 190, name = "经度") |>
    e_z_axis_3d(name = "深度") |>
    e_visual_map(
        serie = mag,
        type = "continuous",
        inRange = list(color = c('#4B0055', '#009B95', '#FDE333')),
        dimension = 4, # third dimension x = 0, y = 1, z = 2, color = 3, size = 4
        top = 20
    ) |>
    e_visual_map(
        serie = mag,
        type = "continuous",
        inRange = list(symbolSize = c(10, 30)),
        dimension = 3,
        bottom = 10
    ) |>
    e_tooltip() |>
    e_title(text = "斐济及其周边地震活动")

然后我在数据里加了一列color=mag，图就正常了……即使后续的代码里看起来并没有显式用到这个color。

我看不懂，但是我大受震撼.jpg

fenguoerbian Cloud2016
一通debug之后可能发现了问题所在，这里预期的做图数据应该是5列（3个座标，1个颜色，1个大小），但是出问题的图的做图数据只有4列。

整个call的顺序是e_scatter_3d --> e_scatter_3d_ --> .build_data2，其中.build_data2源码是

.build_data2 <- function(data, ...) {
  row.names(data) <- NULL
  data <- data |>
    dplyr::select(...)
  
  data <- unname(data)

  apply(data, 1, function(x) {
    list(value = unlist(x, use.names = FALSE))
  })
}

在e_scatter_3d_ 调用 .build_data2的时候，使用的语句是

data <- .build_data2(e$x$data[[i]], e$x$mapping$x, y, z, color, size)

以楼主原本的代码而言，可以验证此时在e_scatter_3d_中，color和size都是字符串“mag"，于是原数据在后续的dplyr::select中只被提取到了1次。

而我这个莫名其妙的能让图正常的修改，其实就是碰巧我在数据里加了一列叫做color的列，和这里传入的变量名color相同。所以如果在我那个修改里把新增的列叫做color_not_work，那这个图也不会正常生成。

所以这里的核心就是，dplyr::select(...) 中多次选择同一列，结果只会返回1列。而我那个碰巧的做法，实际是这里提到的模糊的名称使用，而在这里恰好起效了。

另外如果.build_data2(data, ...)的...里如果传入的实际上是列名的字符串，那么按照前述链接里的建议的话，为了消除语义中的模糊，可以修改成

dplyr::select(tidyselect::all_of(c(...)))

但是本质上从这里来看，同样的变量被多次选择，只会返回1次，于是做图数据缺了1列。不过消除歧义总是有好处的，比方说在这里，如果原始数据里有"y", "z"这样的列名，那么这里也会优先选取那两列，而不是传入的y,z参数中保存的列名。