0

我有一个看起来很复杂的情节,用 ggplot2 创建;X 轴具有每个点的名称,Y 轴具有它们的值。我用 geom_point 来表示这些。我还为图上的每个点添加了误差线。

现在我叠加了一个图,它仅使用具有不同线型的 geom_hline 来表示此数据中的样本(它与第一个数据框不同,但共享 X 和 Y 轴)。我想展示这些 hlines 上的偏差,并且我正在寻找关于如何描绘 hlines 上的偏差的灵感。

我尝试添加错误栏,但随后它们在 Xaxis 上显示为附加样本,这并不理想。首先这是一个可行的想法吗?

这就是它与 hlines 的外观,误差条在 X 轴上显示为额外的点。 在此处输入图像描述

编辑:代码片段,如果它可以作为尝试类似东西的人的灵感

p <- ggplot(df_sample_dots, aes(x=Names, y=Values), show.legend = TRUE) + geom_point(size=5, aes(color=factor(Names))) +
        geom_errorbar(aes(ymin=Values-dev, ymax=Values+dev), width=.2, position=position_dodge(.9), color="black")

p <- p + geom_hline(aes(yintercept=Values, linetype=Names), data=df_sample_hlines, show.legend = TRUE, color="black") + 
        geom_errorbar(aes(ymin=Values-dev, ymax=Values+dev), data = df_sample_hlines, color="thistle4", width=1, size=1)
4

1 回答 1

1

像这样的东西怎么样:

library(ggplot2)
library(dplyr)

set.seed(12345)

toPlot <-
  data.frame(
    group = factor(sample(LETTERS[1:10],1000,TRUE))
  ) %>%
  mutate(value = rnorm(1000) + 
           as.numeric(group)/10)

basePlot <-
  ggplot(toPlot) +
  stat_summary(aes(x = group
                   , y = value)
               , fun.data = mean_cl_normal) +
  theme_minimal()

basePlot

lineAdd <-
  data.frame(
    x = range(as.numeric(toPlot$group)) + c(-.5,.5)
    , ymax = 1.2
    , ymin = 0.8
  )

basePlot +
  geom_ribbon(
    data = lineAdd
    , mapping = aes(x = x
                    , ymax = ymax
                    , ymin = ymin)
    , col = "light gray"
    , alpha = 0.2
  ) +
  geom_hline(yintercept = 1)

您仍然需要手动添加每一行(并为功能区生成数据),但如果您的输入数据集是一致的,您也可能会自动执行此操作。

在此处输入图像描述

于 2016-07-05T14:37:54.533 回答