微调轴勾选文本和标题

 g + geom_histogram(aes(price, fill = cut), binwidth = 500) + 
    labs(x = "Price", y = "Number of diamonds", 
         title = "Distribution of prices \n across Cuts") + 
    theme(plot.title = element_text(colour = "red", face = "italic"),
        axis.title.x = element_text(face="bold", 
                                      colour="darkgreen", size = 12),
      axis.text.x  = element_text(angle = 45, vjust = 0.5, size = 12), 
      axis.title.y = element_text(face="bold", 
                                  colour="darkblue", size = 12),
      axis.text.y  = element_text(size = 12, colour = "brown"))

https://i.stack.imgur.com/H0vC1.jpg