当没有ID时，如何将两列组合成一个长列？

Question

我有两列在不同的数据框架(每个数据帧只是1列，每列有2000行)与职业信息。我只想将这两列堆叠成1,000行长的列，这样我就可以获取百分比，并绘制一个百分比条形图。

本质上，我想用这样的数据帧：

Occupation1

Lobbyist
Government Employee
Government Employee
Lobbyist
Teacher
Teacher

Occupation2

Lawyer
Government Employee
Lobbyist
Teacher
Teacher

我希望得到这样的结果：

Occupation

Lobbyist
Government Employee
Government Employee
Lobbyist
Teacher
Teacher
Lawyer
Government Employee
Lobbyist
Teacher
Teacher

Answer 1

您只需使用rbind()绑定行，使用setNames()更改每个行的名称：

rbind(
  setNames(df1, "Occupation"),
  setNames(df2, "Occupation")
)

Answer 2

在base R中只需使用unlist

unlist(c(df1$Occupation1, df2$Occupation2))
 [1] "Lobbyist"            "Government Employee" "Government Employee" "Lobbyist"            "Teacher"             "Teacher"             "Lawyer"             
 [8] "Government Employee" "Lobbyist"            "Teacher"             "Teacher"

在dplyr中，使用bind_rows并对齐列名：

bind_rows(df1 %>% rename(Occupation = Occupation1), 
          df2 %>% rename(Occupation = Occupation2))
            Occupation
1             Lobbyist
2  Government Employee
3  Government Employee
4             Lobbyist
5              Teacher
6              Teacher
7               Lawyer
8  Government Employee
9             Lobbyist
10             Teacher
11             Teacher