我试着用折线图来比较奥巴马第一年的支持率和特朗普第一年的支持率。
这里的问题是,我使用了两个不同的年份:奥巴马(2009)和特朗普(2017)。似乎想不出怎么解决这个问题...
rating_comparison %>%
ggplot(aes(endDate, rating, group = 1)) +
geom_line(data = filter(rating_comparison,
endDate > "2017-01-28",
type == "Overall.A")) +
geom_line(data = filter(rating_comparison,
president == "Obama" &
endDate > "2009-01-25" &
endDate < "2010-01-24",
type == "Overall.A"))

https://stackoverflow.com/questions/47802809
复制相似问题