不是您问题的完整解决方案......但我目前能想到的最好的解决方案:
要在 ggplot 中获得图例,您必须在美学上进行映射,即,而不是将颜色设置为参数,您必须在 上color
或fill
内部进行映射aes()
。为此,您可以使用占位符或标签,例如fill="SS"
在geom_rect
.
要获得正确的颜色,您可以使用scale_color/fill_manual
. 使用标签可以很容易地分配正确的颜色。
接下来,要正确设置图例的样式,您可以使用guide_legend
它的参数override.aes
来设置颜色图例的形状和线型。
默认情况下,color
和fill
图例之间有一些间距,但是可以在theme()
vialegend.spacing
和中删除legend.margin
。
最后一部分是为图例标签着色。这可以通过ggtext
通过主题选项legend.text = element_markdown()
允许使用 HTML 和 CSS 设置图例条目样式的包来实现。
不幸的是,我无法弄清楚如何在你的gradeHat
.
library(data.table)
library(ggplot2)
blue <- "#4472C4"
green <- "#548235"
red <- "#C55A11"
redblood <- "#C00000"
DT <- data.table(student = c("Jane", "Sam", "Tim", "Kate", "Claire"),
grade = c(10, 14, 8, 9, 19))
b0 <- 13
DT[, gradeHat := b0]
DT[, e := grade - gradeHat]
DT[, SS := sum(e**2)]
DT[, id := 1:nrow(DT)]
DT[, xmin := id]
DT[, xmax := id + abs(e)/20*3]
DT[, ymin := min(grade, gradeHat), id]
DT[, ymax := max(grade, gradeHat), id]
DT[, student := factor(student, levels = student)]
ggplot(DT) +
geom_segment(aes(x = student, xend = student, y = grade, yend = gradeHat, color = "error"),
, size = 1.3) +
geom_rect(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = "SS"), alpha = .4) +
geom_hline(yintercept = b0, color = green, alpha = .7, size = 1, linetype = "dashed") +
geom_point(aes(student, grade, color = "grade"), size = 4) +
geom_point(aes(student, gradeHat, color = "gradeHat"), size = 4) +
scale_color_manual(breaks = c("grade", "gradeHat", "error"),
values = c(grade = blue, gradeHat = green, error = red),
labels = c(grade = glue::glue("<span style = 'color: {blue};'>grade</span>"),
gradeHat = glue::glue("<span style = 'color: {green};'>gradeHat</span>"),
error = glue::glue("<span style = 'color: {red};'>error</span>"))) +
scale_fill_manual(values = c(SS = redblood), labels = c(SS = glue::glue("<span style = 'color: #C0000066; '>SS</span>"))) +
guides(color = guide_legend(order = 1, override.aes = list(shape = c(16, 16, NA), linetype = c("blank", "dashed", "solid")))) +
scale_y_continuous(breaks = 0:20, limits = c(0, 20)) +
coord_fixed(.15) +
theme_classic() +
theme(legend.position = "bottom",
legend.spacing = unit(0, "pt"),
legend.margin = margin(r = 0, l = 0),
legend.text = ggtext::element_markdown()) +
labs(color = NULL, fill = NULL)
![](https://i.imgur.com/rAADKM6.png)