# Visualization ggplot(df, aes(x = date, y = value)) + geom_line(aes(color = variable, linetype = variable)) + scale_color_manual(values = c("darkred", "steelblue"))