如何解决如何在条形图中的误差条和条形之间进行颜色叠加?
我有一个带有误差条的条形图,我想为条形图和误差条使用相同的颜色。但是,这意味着我看不到误差条的底部。
library(ggplot2)
library(tibble)
my_df <-
tibble::tribble(~response,~estimate,~lower_ci,~upper_ci,"little_bit",0.353477,0.255625,0.451747,"no",0.307639,0.250436,0.375393,"very",0.338883,0.301007,0.37572310)
## compare this:
ggplot(my_df,aes(x = reorder(response,-estimate),y = estimate)) +
geom_bar(stat = "identity",width = 0.9,fill = "#6EB3FF") +
geom_errorbar(aes(ymin = lower_ci,ymax = upper_ci),width = 0.1,size = 3.5)
## with this:
ggplot(my_df,size = 3.5,color = "#6EB3FF")
我的视觉想法是使用叠加
有没有办法使用 ggplot
实现这种叠加?
解决方法
一个简单的 alpha 就可以了。
请注意,技术上有不同的颜色。另一种选择是使用颜色修改包,例如 shades
或 colorspaces
。请参阅下面带有 colorspaces
的一个选项。当您想更改整个调色板时,shades
很酷。
library(ggplot2)
library(tibble)
my_df <-
tibble::tribble(~response,~estimate,~lower_ci,~upper_ci,"little_bit",0.353477,0.255625,0.451747,"no",0.307639,0.250436,0.375393,"very",0.338883,0.301007,0.37572310)
# super easy,just make the bars mor transparent - not quite your desired look
ggplot(my_df,aes(x = reorder(response,-estimate),y = estimate)) +
geom_bar(stat = "identity",width = 0.9,fill = "#6EB3FF",alpha = 0.7) +
geom_errorbar(aes(ymin = lower_ci,ymax = upper_ci),width = 0.1,size = 3.5,color = "#6EB3FF")
## darkening the color,and adding some alpha for your desired effect
ggplot(my_df,fill = "#6EB3FF") +
geom_errorbar(aes(ymin = lower_ci,color = colorspace::darken("#6EB3FF"),alpha = 0.7)
,
也许,您应该再次用稍微深一点的颜色绘制误差线的下半部分。
ggplot(my_df,color = "#6EB3FF") +
geom_errorbar(aes(ymin = lower_ci,ymax = estimate-0.004),color="#3ba8ff")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。