R 转换要在ggplot条形图中使用的数据帧

我有一个看起来像这样的数据框：

df <- data.frame(
  Region = rep(1:14, each=112),
  Job = rpois(112*14, 0.7)
)

---

df绝对没有必要进行所有的子集设置，然后将所有内容重新组合在一起

df
中的数据格式已经正确，您只需执行以下操作：

库（ggplot2）
df
dplyr:：count（df，Region，Job）
正如Shah所建议的那样，dplyr包非常适合这种转换，您可以使用管道将它们组合起来：df%>%groupby（Region，Jobs）%>%summary（Freq=n（））是的，谢谢，我没有意识到ggplot是这样工作的！
DF1 = data.frame(table(subset(df, Region == 1)$Jobs))
DF2 = data.frame(table(subset(df, Region == 2)$Jobs)) 
.
.
.
DF14 = data.frame(table(subset(df, Region == 14)$Jobs))

df1 <- do.call("rbind", list(DF1, DF2, ... ,DF14))

df1$Region <- c(rep('Region 1',nrow(DF1)),
                rep('Region 2',nrow(DF2)),
                            .
                            .
                            .
                rep('Region 14',nrow(DF14))  )