Question

您可以在this page中看到示例。

请注意，在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))

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

1 个答案: