我準備了樣本資料。我想根據error bar顏色為這個圖添加一個圖例。我嘗試手動添加圖例，但它不起作用。謝謝你的幫助。
data = data.frame(x = c(5, 10, 15, 20, 25, 30, 35, 40, 50),
Y1 = c(179, 212, 201, 204, 220, 181, 176, 219, 182),
SD1 = c(58, 93, 74, 55, 59 ,56, 53, 62, 62),
Y2 = c(273, 267, 329, 329, 386, 401, 399, 350, 274),
SD2 = c(107, 85, 141, 126, 94, 101, 65, 65, 58))
Y21 = data$Y2/5
SD21 = data$SD2/5
data = cbind(data, Y21, SD21)
ggplot(data=data,aes(x = x ,y=Y1))
geom_errorbar(data=data,aes(ymin=Y1-SD1,ymax=Y1 SD1), colour="orange", width = 0.9, size = 1.5, linetype = "solid")
geom_point(aes(y=Y1), color = "black")
geom_errorbar(data=data,aes(ymin=Y2-SD2,ymax=Y2 SD2),color="blue", width = 0.9, size = 1.5, linetype = "solid")
scale_y_continuous("first y axis", sec.axis = sec_axis(Y2~ .*(5) , name = "second y axis" ))
geom_point(aes(y=Y2), color = "black")
expand_limits(x = 0, y = 0)
uj5u.com熱心網友回復：
您可以通過以下方式在多個幾何圖形中添加圖例
- 為每個 geom設定inside，其中
color = "label"是每個 geom 的唯一標簽；然后aes()"label" - 添加
scale_color_manual()（或scale_linetype_manual()等，取決于審美），并將valuesarg 設定為命名向量，其名稱對應于幾何標簽，值對應于所需的顏色（或線型，或其他）。
ggplot(data = data,aes(x = x, y = Y1))
geom_errorbar(
aes(ymin = Y1 - SD1, ymax = Y1 SD1, color = "Y1"),
width = 0.9,
size = 1.5
)
geom_point(aes(y = Y1), color = "black")
geom_errorbar(
aes(ymin = Y2 - SD2, ymax = Y2 SD2, color = "Y2"),
width = 0.9,
size = 1.5
)
geom_point(aes(y = Y2), color = "black")
scale_y_continuous(
"first y axis",
sec.axis = sec_axis(Y2 ~ .*(5), name = "second y axis")
)
scale_color_manual("legend title", values = c(Y2 = "blue", Y1 = "orange"))
expand_limits(x = 0, y = 0)
uj5u.com熱心網友回復：
通常，如果您發現自己使用手動美學制作了多個相同的幾何圖形，這表明您應該
但是，如果您確實需要或更喜歡使用單獨的幾何圖形，我已經在單獨的答案中描述了如何跨多個幾何圖形生成圖例。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/435061.html
上一篇：熱圖的內部標簽，在Rggplot