r - 使用theme_bw在ggplot2中居中绘制标题

Question

默认情况下，标题从ggplot 2.2.0开始左对齐。在这篇文章中已经说明了如何使它们再次居中:

Center Plot title in ggplot2

在我的情况下，这也可以很好地工作，但是如果我使用theme_bw，则不能。

dat <- data.frame(
  time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(14.89, 17.23)
)

ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) + 
  geom_bar(colour="black", fill="#DD8888", width=.8, stat="identity") + 
  guides(fill=FALSE) +
  xlab("Time of day") + ylab("Total bill") +
  ggtitle("Average bill for 2 people")+
  theme(plot.title = element_text(hjust = 0.5))+
  theme_bw()

我尝试将主题参数传递给 theme_bw()

theme_bw(plot.title = element_text(hjust = 0.5))

但这也不起作用。

有任何想法吗？非常感谢帮助

Answer 1

您只需要反转theme_bw和theme

ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) + 
  geom_bar(colour="black", fill="#DD8888", width=.8, stat="identity") + 
  guides(fill=FALSE) +
  xlab("Time of day") + ylab("Total bill") +
  ggtitle("Average bill for 2 people") +
  theme_bw() +
  theme(plot.title = element_text(hjust = 0.5))