|
@@ -103,6 +103,8 @@ pvplot <- ggplot(filter(partylev, Party %in% names(partycolours)),
|
103
|
103
|
aes(x = Year, y = PV_Prop_Total, colour = Party)) +
|
104
|
104
|
geom_line() + geom_point() +
|
105
|
105
|
scale_colour_manual(values = partycolours) +
|
|
106
|
+ scale_x_continuous("General Election Year",
|
|
107
|
+ breaks = e.years) +
|
106
|
108
|
scale_y_continuous("Party vote proportion", n.breaks = 10,
|
107
|
109
|
expand=c(0,0), limits = c(0, 0.5), labels = scales::percent) +
|
108
|
110
|
labs(title = "Party vote trajectories")
|