关于在ggplot2 (geom_hline)中添加/更改颜色
关于在ggplot2 (geom_hline)中添加/更改颜色
提问于 2022-01-12 04:25:13
data %>% ggplot() +
geom_hline(aes(yintercept=Trial, col=Participant2)) +
scale_color_discrete(name="NI-1", labels=c("False Alarm", "Hit", "Miss")) +
theme_minimal()是否有方法为上面代码行中的标签分配下列颜色？
假警报-红色
打白
蓝小姐。
谢谢!
回答 1
Stack Overflow用户
发布于 2022-01-12 12:42:36
我们可以使用scale_colour_manual()并为离散变量的各个级别分配自定义颜色和标签。
这里，我使用来自iris的数据作为示例数据，iris$Species作为离散变量。
library(ggplot2)
# axis labels
xl <- "Sepal Length"; yl <- "Sepal Width"
# custom colours
my_colours <- c('blue4', 'darkorange', '#00b0a6')
my_colours <- setNames(my_colours, unique(iris$Species))
# custom labels
my_labels <- c('species 1', 'species 2', 'species 3')
# median Sepal.Width per Species
medians_SW <- sapply(split(iris, iris$Species), \(x) median(x$Sepal.Width))
# plot
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
geom_point(size = 2, alpha = 0.8) +
geom_hline(aes(yintercept = medians_SW[1]), color = my_colours[1],
linetype = 2, size = 0.8, alpha = 0.8) +
geom_hline(aes(yintercept = medians_SW[2]), color = my_colours[2],
linetype = 2, size = 0.8, alpha = 0.8) +
geom_hline(aes(yintercept = medians_SW[3]), color = my_colours[3],
linetype = 2, size = 0.8, alpha = 0.8) +
xlab(xl) + ylab(yl) + theme_minimal() +
scale_colour_manual(name = 'Species',
breaks = unique(iris$Species),
values = my_colours,
labels = my_labels)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/70676301
复制相关文章
相似问题
腾讯云开发者
