使用 stat_summary() 时会抖动折线图中点的位置吗？

debugcn 发表于 Dev

汉斯科特

我在 R 中使用 ggplot2 通过在组级别制作折线图来创建交互图。我注意到当它们的值非常接近时，数据点可能会重叠。

这种重叠问题降低了每个单独数据点的可见性和精度。特别是，该图应用了误差线和导致单个图中更多重叠的交互线。

我想知道在stat_summary()用于创建折线图时是否可以抖动数据点？

这是折线图示例的代码。请注意，我没有在这个例子中添加任何错误栏。

df.test <- data.frame(group=rep(c("DG", "SK"), each=2),
                  dose=rep(c("B", "A"),2),
                  gain=c(1.30, 1.80,0.5, 1.7))

ggplot(data=df.test, aes(x=dose, y=gain, group=group)) +
  stat_summary(fun.y = mean,geom = "point")+  
  stat_summary(fun.y = mean,geom = "line",aes(linetype= group))

包含误差条的预期结果。

任何评论都非常感谢！干杯

帕维尔·查布罗斯

看起来添加position = "jitter"没有按预期工作。但是您可以通过创建一个新变量来手动执行此操作（x_pos在我的示例中）：

library(tidyverse)

df.test %>%
  mutate(
    x_pos = +(dose == 'B'),
    x_pos = if_else(group == 'DG', x_pos - .05, x_pos + .05)
  ) %>%
  ggplot(aes(
    x = x_pos,
    y = gain,
    group = group
  )) +
  stat_summary(
    fun.y = mean,
    geom = "point"
  ) +  
  stat_summary(
    aes(linetype = group),
    fun.y = mean,
    geom = "line"
  ) +
  scale_x_continuous(
    breaks = 0:1,
    labels = c("A", "B")
  ) +
  xlab("dose")

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。