我正在嘗試在不修改資料集的情況下將手動圖例添加到繪圖中，因為資料集和標記均值、中位數等的線是不同的概念。
存在解決修改資料問題的方法，例如
uj5u.com熱心網友回復：
如果你想擁有一個傳奇，那么你必須在美學上進行映射。否則scale_color/fill_manual將無效：
vec <- c(rep(1, 100), rep(2, 100), rep(3, 80), rep(4, 70), rep(5, 60))
tbl <- data.frame(value = vec)
mean_vec <- mean(vec)
cols <- c(
"Frequency" = "grey",
"mean" = "blue"
)
library(ggplot2)
ggplot(tbl)
aes(x = value)
geom_histogram(aes(fill = "Frequency"), binwidth = 1)
geom_vline(aes(color = "mean", xintercept = mean_vec), size = 1)
theme_minimal()
scale_color_manual(values = "blue")
scale_fill_manual(name = "Test", values = "grey")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/462763.html
上一篇：將族注釋添加到r中geom_bar旁邊的ggtree
下一篇：從ggplot置信區間中提取值