如何在ggplot2图形的x轴上添加两个变量（条形图和散点图）

Question

我正在尝试用散点图绘制条形图，而无法使其成功显示。

我不断收到错误代码---错误：不知道如何在绘图中添加o

$

我希望散点图显示在条形图上，但它并未显示。

Answer 1

根据您的描述，我想您可能一直在追求这样的东西：

library(tidyverse)
#midwest is a dataset included in tidyverse

dat<-midwest %>% group_by(state) %>% summarize(poptotal=sum(poptotal), popwhite=sum(popwhite))


dat$state<-factor(dat$state, levels=dat$state[order(dat$poptotal)])
dat %>% ggplot(aes(state, poptotal))+
    geom_col()+
    geom_point(aes(y=popwhite), color="red")+
    theme_classic()