# create data frame
df <- data.frame(x = c(1, 2, 3, 4, 5),
y1 = c(2, 4, 6, 8, 10),
y2 = c(1, 3, 5, 7, 9),
y3 = c(3, 6, 9, 12, 15))
# create ggplot object
p <- ggplot(df, aes(x, y1)) +
geom_line(aes(y = y1, color = "y1"),
size = 1) +
geom_line(aes(y = y2, color = "y2"),
size = 1) +
geom_ribbon(aes(ymin = y2, ymax = y3,
fill = "y3"), alpha = 0.3)
# customize colors and line types
p + scale_color_manual(values = c("y1" = "red",
"y2" = "blue")) +
scale_linetype_manual(values = c("y1" = "solid",
"y2" = "dashed"))
# modify legend
p + guides(fill = guide_legend(override.aes = list(linetype = 0)))
# adjust overall appearance
p + theme(legend.position = "bottom",
legend.title = element_blank(),
legend.text = element_text(size = 12))