r - 用线条覆盖堆叠 ggplot2 条形图的每个条形图
问题描述
我有一个堆叠的 ggplot2 条形图,如下所示:
# Example data
data <- data.frame(level = rep(1:3, 3),
values = c(20, 30, 25, 15, 10, 5, 18, 20, 30),
group = as.factor(rep(LETTERS[1:3], each = 3)))
# Draw plot without lines
library("ggplot2")
my_plot <- ggplot(data, aes(x = level, y = values, fill = group)) +
geom_bar(stat = "identity") +
scale_fill_manual(breaks = c("A", "B", "C"),
values = c("forestgreen", "darkgoldenrod1", "brown2"))
my_plot
现在,我想用一定高度的蓝线覆盖这个条形图的每个条形。蓝线也应在图例中表示。
这些行的数据如下所示:
# Data for lines
data_line <- data.frame(level = 1:3,
values = c(25, 40, 10),
group = as.factor("D"))
输出应如下所示(用油漆绘制的图像):
问题:如何将这些数据添加为覆盖线?
解决方案
一种选择使用geom_segment
my_plot +
geom_segment(data = data_line,
aes(x = level - 0.45,
xend = level + 0.45,
y = values,
yend = values,
col = "D"), # 'fake' a legend
size = 2,
inherit.aes = FALSE) +
scale_color_manual(name = NULL,
values = c(D = "#007fff")) +
guides(fill = guide_legend(order = 1),
color = guide_legend(order = 2)) +
theme(legend.margin = margin(t = -1, b = -15)) # trial and error
推荐阅读
- math - 使用 NLP 技术的单词之间的距离
- php - 使用另一个字段作为值将计算字段添加到每个数组元素
- javascript - kurento rtsp2webrtc 演示一直显示微调器而不是流
- android - FFMPEG 音频转换花费了太多时间
- bash - STDIN and STDOUT combining into one
- bash - Command line commands in a shell script
- python - Docker 中的导入
- c# - Getting "Program does not contain a static 'Main' method suitable for an entry point" when building using docker, why?
- python - Django:模板通过表格从多到多显示值
- html - CSS表格格式不规则