r - 如何更改 patchwork 中 tag_levels 的颜色和大小

标签 r

我们想使用拼凑来更改标签的颜色和大小,但没有发生任何变化

library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
p3 <- ggplot(mtcars) + geom_bar(aes(gear)) + facet_wrap(~cyl)
# Add title, etc. to a patchwork
p1 + p2 + plot_annotation('This is a title', caption = 'made with patchwork')
# Change styling of patchwork elements
p1 + p2 +
  plot_annotation(
    title = 'This is a title',
    caption = 'made with patchwork',
    theme = theme(plot.title = element_text(size = 16,color="red"))
  )
# Add tags to plots
p1 / (p2 | p3) +
  plot_annotation(tag_levels = 'A',theme = theme(plot.tag = element_text(color = "red")))

最佳答案

随着网站中描述的“&”合成,它似乎工作得很好。

p1 / (p2 | p3) +
  plot_annotation(tag_levels = 'A') &
  theme(plot.tag = element_text(color = "red"))

enter image description here

关于r - 如何更改 patchwork 中 tag_levels 的颜色和大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68857890/

相关文章:

r - 在 ifelse 语句中联合

r - 为什么此 dplyr() 分组代码在 base R 中有效,但在 Shiny 中运行时却无效?

r - 在 R 中将 NA 设置为 0

使用 tidyr reshape data.frame

r - 修复 lme4 中的方差值

r - R 中的捷克语编码

r - ggraph - 根据频率增加节点大小

r - 复制过程的结果错误

R: kable_as_image 找不到 Ghostscript

从 R : Unexpected token in expression or statement 运行 powershell 命令