使用theme_wsj {ggthemes}时,如何使xlab和ylab可见？

Question

您可以在此页面中查看示例.

请注意,在theme_wsj示例中,xlab并ylab没有出现.

这是一个包含标签的非ggthemes图:

ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_point() +
xlab("Hello World: X axis") +
ylab("Hello World: Y axis")

但是,当您添加theme_wsj主题时,它们会消失:

ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_point() +
xlab("Hello World: X axis") +
ylab("Hello World: Y axis") +
theme_wsj()

Answer 1

如果查看源代码,theme_wsj()可以看到轴标题设置为空白

theme_wsj<-function(base_size=12, color="brown", base_family="sans", title_family="Courier") {
    colorhex <- ggthemes_data$wsj$bg[color]
    (theme_foundation()
     + theme(
.....
      axis.title=element_blank()
....

因此,获得xlab和ylab显示的一个解决方案是添加新的主题元素

+theme_wsj()+theme(axis.title=element_text(size=12))