使用纵向面板数据的ggplot中的折线图

Question

我有一个纵向面板数据集，其中包含关于某人在特定年份居住在哪里的信息，他的职业，以及一个表明此人是否搬家的虚拟变量。

现在，我尝试在ggplot中创建一个折线图，以可视化这些移动如何随着时间的推移而波动。我想计算一下每年搬家的比例。但是，我不确定如何按年份对所有个体进行分组，也不确定是否包含表示某人是否移动的虚拟对象。此外，我想看看这些移动波动在不同职业之间是如何不同的。

数据集如下所示：

df <- tibble(id = rep(1:5, each = 5),
             year = rep(2010:2014, 5),
             moved = c(1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1),
             occupation = c('carpenter','carpenter', 'carpenter', 'carpenter', 'carpenter', 'cleaner',
                            'cleaner', 'cleaner', 'cleaner', 'cleaner', 'mechanic', 'mechanic',
                            'mechanic', 'mechanic', 'mechanic', 'carpenter', 'carpenter', 'carpenter',
                            'carpenter', 'carpenter', 'cleaner', 'mechanic', 'carpenter', 'cleaner',
                            'cleaner'))

将非常感谢您的帮助！

Answer 1

也许是这样的？因此，您通过将占领指定为颜色来对其进行分组，然后在每个点上使用stat_summary计算比例(均值)，并使用一条线将它们连接起来：

ggplot(df,aes(x=year,y=moved,col=occupation)) + 
stat_summary(fun=mean,geom="point") + 
stat_summary(fun=mean,geom="line",alpha=0.7,linetype="dashed")

​

​