我有一个简单的图,其中无法使用scale_linetype_manual根据图中的线型更改图例中的线型。
生成图的代码是:
library(ggplot2)
x_1 <- rep(0:6, each = 2)
pdf_1 <- c(0,0.05,0.05,0.1,0.1,0.15,0.15,0.3,0.3,0.25,0.25,0.15,0.15,0)
x_2 <- rep(3:9, each = 2)
pdf_2 <- c(0,0.05,0.05,0.1,0.1,0.15,0.15,0.3,0.3,0.25,0.25,0.15,0.15,0)
data_1 <- data.frame(x_1, pdf_1,x_2,pdf_2)
ggplot()+
geom_line(data=data_1,aes(x=x_1, y=pdf_1, color="Forecaster_1"),linetype='solid',size=1)+
geom_line(data=data_1,aes(x=x_2, y=pdf_2, color="Forecaster_2"),linetype='dashed',size=1)+
labs(x = "x") +
labs(y = "PDF") +
scale_colour_manual(values = c('Forecaster_1' = 'cornflowerblue', 'Forecaster_2' = 'coral2')) +
scale_linetype_manual(values = c('Forecaster_1' = 'solid', 'Forecaster_2' = 'dashed'))
我希望有人帮我解决这个问题。
答案 0 :(得分:3)
如果您将线型映射为具有美学风格,然后确保为两个指南使用相同的名称,那会更好。例如
ggplot()+
geom_line(data=data_1,aes(x=x_1, y=pdf_1, color="Forecaster_1", linetype='Forecaster_1'),size=1)+
geom_line(data=data_1,aes(x=x_2, y=pdf_2, color="Forecaster_2", linetype='Forecaster_2'),size=1)+
labs(x = "x") +
labs(y = "PDF") +
scale_colour_manual("Line", values = c('Forecaster_1' = 'cornflowerblue', 'Forecaster_2' = 'coral2')) +
scale_linetype_manual("Line", values = c('Forecaster_1' = 'solid', 'Forecaster_2' = 'dashed'))
答案 1 :(得分:0)
您可以像这样覆盖默认图例:
ggplot() +
geom_line(
data = data_1,
aes(
x = x_1,
y = pdf_1,
color = "Forecaster_1"
),
linetype = 'solid',
size = 1
) +
geom_line(
data = data_1,
aes(
x = x_2,
y = pdf_2,
color = "Forecaster_2"
),
linetype = 'dashed',
size = 1
) +
labs(x = "x") +
labs(y = "PDF") +
scale_colour_manual(
values = c('Forecaster_1' = 'cornflowerblue', 'Forecaster_2' = 'coral2'),
guide = guide_legend(
override.aes = list(
linetype = c("solid", "dotted")
)
)
)
linetype
可以替换为here中列出的任何值。