我有以下代码:
library(ggplot2)
ggplot(data = bayes, aes(x = Order, y = value, fill=key, color=key)) +
geom_rect(aes(xmin = Order, xmax = dplyr::lead(Order), ymin= -Inf, ymax =Inf, colour=Summary),
alpha=0.1) +
geom_line(size=0.5) +
geom_point() +
xlab("Bayesian combination") +
ylab("Bayesian probability") +
theme(legend.position="none") +
ylim(0,1) +
xlim(1,126)
只是为了让您知道我的数据结构:
> str(bayes)
'data.frame': 252 obs. of 5 variables:
$ Summary : chr "1 vs. 6" "1 vs. 6" "1 vs. 6" "1 vs. 6" ...
$ Combination: chr "I1 if I2CP3P4M1M2" "I2 if I1CP3P4M1M2" "C if I1I2P3P4M1M2" "P3 if I1I2CP4M1M2" ...
$ Order : int 126 125 124 123 122 121 120 119 118 117 ...
$ key : chr "Lower_XVIII_UBU" "Lower_XVIII_UBU" "Lower_XVIII_UBU" "Lower_XVIII_UBU" ...
$ value : num 1 0.35 0.93 0.73 0.95 0.32 0.88 0.13 0.93 0.84 ...
我的问题是我无法从geom_rect对象中删除轮廓和边框,从而使图形难以理解。
如您所见,我有5个小组,用5种颜色表示。但是,它们内部有很多子矩形,每个子矩形都有自己的边界。我想删除图表中的所有边框,所以代码中的问题出在哪里?
来自文档的示例:
df <- data.frame(
x = rep(c(2, 5, 7, 9, 12), 2),
y = rep(c(1, 2), each = 5),
z = factor(rep(1:5, each = 2)),
w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)
您正在执行此操作:
ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
geom_rect(aes(color = z), alpha = 0.1)
问题在于,alpha
只能应用于fill
,而不应用于边框(使用设置color
)。解决的办法是通过移除整个边界设置(未映射)color
到NA
:
ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
geom_rect(color = NA, alpha = 0.3)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句