我正在创建一个堆积条形图,显示多年来样本的参与者偏好的变化。虽然完成了这一部分,但我想在条形图上绘制一条线图,查看从上一年开始变化的样本百分比。
我目前已经绘制了两个单独的堆叠条形图,但认为它们看起来更好融合成一个。
我的数据如下:
ID Year Party Change
1 2010 Labour NA
1 2011 Labour No Change
1 2012 Con Change
1 2013 Con No Change
2 2010 Con No Change
2 2011 Con No Change
2 2012 Con No Change
2 2013 Con No Change
... etc.
这些是我已经绘制的图表。
library(dplyr)
library(ggplot2)
df %>%
group_by(Change) %>%
filter(Year != 2010) %>%
ggplot(aes(fill = Change, y = ID, x= Year)) +
geom_bar(stat="identity", position = "fill") +
xlab("Year") +
ylab("% of Sample")
ggplot(df, aes(fill = PolParty, y = pidp, x = wave)) +
geom_bar(stat="identity", position = "fill") +
xlab("Year") +
ylab("% of Sample") +
理想情况下,我希望以线图的形式将第一个图形覆盖在第二个图形上。轴是相同的,所以我认为这不会是一个问题,但我不知道如何将堆积的条形图转换为折线图。
通过完整的数据集,我们可以得到更准确地反映问题的答案;但作为一个快速而肮脏的解决方案,您需要使用类似下面的代码。
我改变了名字,以便更清楚地发生了什么。我假设df
实际上有你提到的所有变量。可能最好将相关变量分成两个独立的数据帧,然后分别将它们传递给每个geom_
。
library(dplyr)
library(ggplot2)
data <- "ID Year Party Changed_seats
1 2010 Labour NA
1 2011 Labour No_Change
1 2012 Con Change
1 2013 Con No_Change
2 2010 Con No_Change
2 2011 Con No_Change
2 2012 Con No_Change
2 2013 Con No_Change
3 2014 Con No_Change
3 2015 Con Change
3 2016 Con Change
3 2017 Con No_Change
4 2014 Con No_Change
4 2015 Con Change
4 2016 Con Change
4 2017 Con No_Change"
df <- read.table(text = data, header = TRUE)
seat_changes_df <- df %>%
select(Year, Changed_seats) %>%
mutate(Year = as.factor(Year)) %>%
group_by(Year) %>%
mutate(Prop_change = sum(Changed_seats == "Change")/n())
ggplot() +
geom_line(data = seat_changes_df, aes(x = Year, y = Prop_change), group = 1) +
scale_y_continuous(labels = scales::percent) +
xlab("Year") +
ylab("Seats changed")
#> Warning: Removed 2 rows containing missing values (geom_path).