r - 使用 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))