在ggplot2中居中打印标题

在ggplot2中居中打印标题

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

# Add title, narrower bars, fill color, and change axis labels
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")

从ggplot 2.2.0开始，标题默认为左对齐。通过将以下内容添加到图中，标题可以居中:

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

但是，如果你创造了许多情节，到处添加这条线可能会很繁琐。用户也可以使用以下命令更改ggplot的默认行为