R 这个图叫什么?如何使用ggplot2绘制?

R 这个图叫什么?如何使用ggplot2绘制?,r,plot,ggplot2,scatter,R,Plot,Ggplot2,Scatter,考虑一个类似顶部的图: 我想重新创建这种图(曲线散点图),它指示样本通过围绕中间带的曲线的扩散。到目前为止,我的搜索还没有成功 有谁知道: 这个情节叫什么 如何使用ggplot2创建此绘图 是否可以使用geom_point()绘制每个分类变量具有等距点的散点图 原始资料来源:是否只是对其他离散点进行排序和分隔?你可以相当容易地制作你自己的几何图形(参见)/也许类似的东西 StatSlide <- ggproto("StatSlide", Stat, compute_group = f

考虑一个类似顶部的图:

我想重新创建这种图(曲线散点图),它指示样本通过围绕中间带的曲线的扩散。到目前为止,我的搜索还没有成功

有谁知道:

  • 这个情节叫什么
  • 如何使用
    ggplot2
    创建此绘图
  • 是否可以使用
    geom_point()
    绘制每个分类变量具有等距点的散点图

  • 原始资料来源:

    是否只是对其他离散点进行排序和分隔?你可以相当容易地制作你自己的几何图形(参见)/也许类似的东西

    StatSlide <- ggproto("StatSlide", Stat,
      compute_group = function(data, scales) {
        data$y <- sort(data$y)
        data$x <- data$x + seq( -.4, .4, length.out = nrow(data))
        data
      },
      required_aes = c("x", "y")
    )
    
    stat_slide <- function(mapping = NULL, data = NULL, geom = "point",
                           position = "identity", na.rm = FALSE, show.legend = NA, 
                           inherit.aes = TRUE, ...) {
      layer(
        stat = StatSlide, data = data, mapping = mapping, geom = geom, 
        position = position, show.legend = show.legend, inherit.aes = inherit.aes,
        params = list(na.rm = na.rm, ...)
      )
    }
    
    # test it out
    ggplot(mpg) + 
      stat_slide(aes(drv, displ, color=drv))
    
    StatSlide