使用tidyr收集功能

Question

我花了很多时间尝试将特定数据帧转换为长格式。数据框如下所示： 。

我使用以下代码生成它：

wide <-
panel2 %>%
select(Panelist, Income, Age, Education) %>% filter(Panelist < 1100500)
wide

我的目标是将数据框转换为：

有没有人可以帮我解决这个问题？我迷失了该怎么做......