Question

我最近在R ggplot中创建了一些图，除了我的代码有点混乱之外，其他所有东西都正常工作，因为使用这种样式的每个图都是这样

theme(
    axis.text.x = element_text(size = 8),
    axis.text.y = element_text(size = 8),
    axis.title.x = element_blank(),
    axis.title.y = element_text(size = 11),
    legend.position = "bottom",
    legend.title = element_blank(),
    legend.text = element_text(size=9),
    legend.spacing.x = unit(0.25, 'cm'),
    axis.text.y.right = element_text(hjust = 0),
    plot.title = element_text(size = 15, hjust = 0.5)
  )

是否可以将这段代码重新创建为可以应用于每个图形的函数？

Answer 1

我认为您只能将其用作theme()并将其粘贴到所需的每个图形中。

Answer 2

您可以轻松做到：

my_theme <- function(){
  theme(
    axis.text.x = element_text(size = 8),
    axis.text.y = element_text(size = 8),
    axis.title.x = element_blank(),
    axis.title.y = element_text(size = 11),
    legend.position = "bottom",
    legend.title = element_blank(),
    legend.text = element_text(size=9),
    legend.spacing.x = unit(0.25, 'cm'),
    axis.text.y.right = element_text(hjust = 0),
    plot.title = element_text(size = 15, hjust = 0.5)
  ) 
}

然后，根据情节p，您只需要做

p + my_theme()

ggplot-图形样式功能

2 个答案: