Question

我有一个堆积的条形图，类似于下面的示例。

我想在每个条形图上添加一组或两组水平线（指定颜色和线条类型），每个条形图的值不同，并将这些添加到图例中。

Titanic.df <- as.data.frame(Titanic)

Titanic.ag <- aggregate( Freq ~ Sex + Class + Age, data=Titanic.df, sum, subset = Survived == "Yes")

bars <- rep(c(0.5, NA, 0.7, NA, 0.6, NA, 0.9, NA), 2)

ggplot(Titanic.ag, aes(x = Class, y = Freq, fill = Sex)) + 
  geom_bar(position = "fill", stat = "identity") + 
  facet_grid(~Age) +
  geom_errorbar(aes(y = bars, ymin = bars, ymax = bars,  col = "Ref1")) + 
  scale_fill_manual(values = c("darkgreen", "darkblue") ) + 
  labs(col = "Reference",
       fill= "",
       y = "Proportion",
       x = "Class")

我已尝试在几个问题上使用geom_errorbar（），但我遇到两件事：

如果我为误差线添加一个值向量，那么ggplot需要与数据帧中的长度相同（例如Titanic.ag中的16），但堆叠时只有8个柱。这就是为什么我在上面的bars中使用了NA。还有其他选择吗？

更重要的是，我想控制颜色和线条类型，但如果我将它们添加到geom_bar（），我就会失去我的传奇。 e.g。

  geom_errorbar(aes(y = bars, ymin=bars, ymax=bars,  col = "Ref1"), col = "red", linetype = 2)

geom_segment（）是另类吗？

编辑错别字，澄清了不同的horziontal线值。

Answer 1

我不完全确定你需要这个但是。通过单独的geom_abline来电，您可以轻松自定义每一行。

ggplot(Titanic.ag, aes(x = Class, y = Freq, fill = Sex)) + 
  geom_bar(position = "fill", stat = "identity") + 
  facet_grid(~Age) +
  geom_abline(slope=0, intercept=0.5,  col = "red",lty=2) +
  geom_abline(slope=0, intercept=0.75,  col = "lightblue",lty=2) +
  scale_fill_manual(values = c("darkgreen", "darkblue") ) + 
  labs(col = "Reference",
       fill= "",
       y = "Proportion",
       x = "Class")

制作此情节

此外，也许this可能有助于标签。

<强>更新

好的，现在我明白了...使用相同方法的快速近似将是使用多个条形向量和错误条调用。这有点令人筋疲力尽，但可能会工作，data.frame可能无法正常工作，因为您希望每个栏都可以多次自定义。此外，考虑到NA被删除，因此它们不能像人们想的那样工作......也许使用高于1的数字并将ylim调整为1以便他们不会显示

bars1 <- rep(c(0.5, NA, 0.7, NA, 0.6, NA, 0.9, NA), 2)
bars2 <- rep(c(NA, 0.9, 0.1, 0.1, NA, NA, NA, 0.5), 2)
bars3 <- rep(c(0.1, NA, NA, NA, NA, NA, NA, 0.1), 2)

ggplot(Titanic.ag, aes(x = Class, y = Freq, fill = Sex)) + 
  geom_bar(position = "fill", stat = "identity") + 
  facet_grid(~Age) +
  geom_errorbar(aes(y = bars1, ymin = bars1, ymax = bars1), color="Orange",lty=2) + 
  geom_errorbar(aes(y=bars2,ymin=bars2,ymax=bars2),color="White",lty=2)+
  geom_errorbar(aes(y=bars3,ymin=bars3,ymax=bars3),color="Purple",lty=2)+
  scale_fill_manual(values = c("darkgreen", "darkblue") ) + 
  labs(col = "Reference",
       fill= "",
       y = "Proportion",
       x = "Class")

Answer 2

上面的答案并没有产生一个传奇。它确实改变了线型和颜色，但我也在原始问题中展示了这一点。经过一番搜索，我找到了添加图例的方法，所以我已经发布了这里。

library(ggplot2)

Titanic.df <- as.data.frame(Titanic)

Titanic.ag <- aggregate( Freq ~ Sex + Class + Age, data=Titanic.df, sum, subset = Survived == "Yes")

bars <- rep(c(0.5, NA, 0.7, NA, 0.6, NA, 0.9, NA), 2)

ggplot(Titanic.ag, aes(x = Class, y = Freq, fill = Sex)) + 
  geom_bar(position = "fill", stat = "identity") + 
  facet_grid(~Age) +
  geom_errorbar(aes(y = bars, ymin = bars, ymax = bars,  col = "Ref1"), linetype = 2, size = 1) + 
  scale_fill_manual(values = c("darkgreen", "darkblue") ) + 

  scale_colour_manual(name='', values=c("Ref1" = "darkred"), guide ="legend") +
  guides(col = guide_legend(override.aes = list(linetype=2), title = "Reference")) + 

  labs(fill= "",
       y = "Proportion",
       x = "Class")

这可以适用于添加更多geom_errorbar（）。

由于geom_errorbar() y ymin，ymax和subprocess.Popen的{{1}}向量中的NAs的工作回合，我仍然收到警告，这会更复杂方面，但它的工作原理。

将水平线添加到R中ggplot2中的堆积条形图中，并在图例中显示

2 个答案: