R 为什么我不能在图形中显示x轴标签？

这是数据（不是最可读的形式）：

这就是我正在运行的：

library("dplyr")
library("ggplot2")
temp<-results%>%group_by(bfi)%>%summarize(means=mean(alcohol),sems=sd(alcohol)/sqrt(length(alcohol)))
 f<-ggplot(temp,aes(x=factor(bfi),y=means))+geom_bar(stat="identity", color="black",fill=c("cyan4","azure3","aquamarine","azure4"))+geom_errorbar(aes(ymax=means+sems, ymin=means-sems), width=.1)
 f

f<-f+ggtitle("Alcohol Usage  by Personality Trait")+
labs(x="Personality Trait", y="Alcohol Usage")+
scale_x_discrete(breaks=c("open","extra","con","agree"),labels=c("Openness","Extraversion","Conscientiousness","Agreeableness"))+
theme(plot.title=element_text(size=15,face="bold",vjust=.5))+
theme(axis.title.x=element_text(size=12,face="bold",vjust=-.25))+
theme(axis.title.y=element_text(size=12,face="bold",vjust=1))+
theme(axis.text.x=element_text(size=10,face="bold",color="black"))+
theme(axis.text.y=element_text(size=10,face="bold",color="black")) +   
coord_cartesian(ylim=c(min(temp$means)-2*max(temp$sems),max(temp$means)+2*max(temp$sems)))+
theme(panel.border=element_blank(), axis.line=element_line())+
theme(panel.grid.major.x=element_blank())+
theme(panel.grid.major.y=element_line(color="darkgrey"))+
theme(panel.grid.minor.y=element_blank())
f

库（“dplyr”）
图书馆（“ggplot2”）
temp%组（bfi）%>%总结（平均值=平均值（酒精），sems=标准偏差（酒精）/sqrt（长度（酒精）））
f尝试将
breaks
参数删除到
scale\u x\u discrete
：

f + ggtitle("Alcohol Usage  by Personality Trait")+
  labs(x="Personality Trait", y="Alcohol Usage")+
  scale_x_discrete(
    # breaks=c("open","extra","con","agree"),
    labels=c("Openness","Extraversion","Conscientiousness","Agreeableness")
  ) +
  theme(
    plot.title=element_text(size=15,face="bold",vjust=.5),
    axis.title.x=element_text(size=12,face="bold",vjust=-.25),
    axis.title.y=element_text(size=12,face="bold",vjust=1),
    axis.text.x=element_text(size=10,face="bold",color="black"),
    axis.text.y=element_text(size=10,face="bold",color="black"),
    panel.border=element_blank(), axis.line=element_line(),
    panel.grid.major.x=element_blank(),
    panel.grid.major.y=element_line(color="darkgrey"),
    panel.grid.minor.y=element_blank()
  ) +
  coord_cartesian(ylim=c(min(temp$means)-2*max(temp$sems),max(temp$means)+2*max(temp$sems)))

除了删除
scale\u x\u discrete
的
breaks
参数外，我还在一次调用
theme（）
中指定了所有
主题
元素。这使您的代码更具可读性。
谢谢。这解决了我的问题。我也很感谢你对“主题”的建议。非常有用。
f + ggtitle("Alcohol Usage  by Personality Trait")+
  labs(x="Personality Trait", y="Alcohol Usage")+
  scale_x_discrete(
    # breaks=c("open","extra","con","agree"),
    labels=c("Openness","Extraversion","Conscientiousness","Agreeableness")
  ) +
  theme(
    plot.title=element_text(size=15,face="bold",vjust=.5),
    axis.title.x=element_text(size=12,face="bold",vjust=-.25),
    axis.title.y=element_text(size=12,face="bold",vjust=1),
    axis.text.x=element_text(size=10,face="bold",color="black"),
    axis.text.y=element_text(size=10,face="bold",color="black"),
    panel.border=element_blank(), axis.line=element_line(),
    panel.grid.major.x=element_blank(),
    panel.grid.major.y=element_line(color="darkgrey"),
    panel.grid.minor.y=element_blank()
  ) +
  coord_cartesian(ylim=c(min(temp$means)-2*max(temp$sems),max(temp$means)+2*max(temp$sems)))