在堆叠的bar_plot顶部绘制一条线
在堆叠的bar_plot顶部绘制一条线
提问于 2019-08-20 04:00:28
我想在堆叠的bar_plots上画一条线(或点)。由于我没有可以引用的真实数据点(只有精确值，而不是它们的总和)，我不知道如何添加这样的行。代码生成了这个图：
我想添加这条黑线(我的实际数据不是线性的)：
library(tidyverse)
##Create some fake data
data3 <- tibble(
year = 1991:2020,
One = c(31:60),
Two = c(21:50),
Three = c(11:40)
)
##Gather the variables to create a long dataset
new_data3 <- data3 %>%
gather(model, value, -year)
##plot the data
ggplot(new_data3, aes(x = year, y = value, fill=model)) +
geom_bar(stat = "identity",position = "stack")回答 2
Stack Overflow用户
回答已采纳
发布于 2019-08-20 04:16:44
您可以将stat_summary和sum用于汇总函数：
ggplot(new_data3, aes(year, value)) +
geom_col(aes(fill = model)) +
stat_summary(geom = "line", fun.y = sum, group = 1, size = 2)结果：
Stack Overflow用户
发布于 2019-08-20 04:12:45
您可以通过year获取sum，并使用新的geom_line绘制它
library(dplyr)
library(ggplot2)
newdata4 <- new_data3 %>%
group_by(year) %>%
summarise(total = sum(value))
ggplot(new_data3, aes(x = year, y = value, fill=model)) +
geom_bar(stat = "identity",position = "stack") +
geom_line(aes(year, total, fill = ""), data = newdata4, size = 2)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/57566548
复制
![[SSH]如何敲一条线](https://ask.qcloudimg.com/http-save/yehe-8223537/ac86230c18eaf725a72e52275955a271.png)
相似问题
在字段顶部绘制一条线
在iframe顶部堆叠div
使用android mp图表在堆叠条形图的顶部绘制标签
在顶部堆叠2个div
Html文本在div顶部堆叠，而不是垂直堆叠
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
