R学习手记

⚠由于技术原因，该篇文章的部分内容被损毁，静待恢复

Mark定义

Mark标识	定义
F	已完成
OD	已过时，需要更新
U	未完成
P	计划中

排版控制

拼好图-patchwork[Mark: U]

简要

安装与导入

patchwork就是这么一个拼图包 ~~拼好图~~

1
2
3
4
5
6
%% 安装 %%
install.packages("patchwork")

%% 导入 %%
library(ggplot2)
library(patchwork)

多"图"拼接

1
bind <- p1 + p2

1
bind <- p1 + p2 + p3 + p4

1
bind <- p1 + p2 + p3 + p4 + plot_layout(nrow = 3, byrow = FALSE)

1
bind <- (p1 | p2) / p3

1
2
bind <- (p1 | p2)
bind <- bind / p3

1
bind <- (p1 | p2) / p3

需要更新：

添加注释

1
bind <- ((p1 | p2) / p3) + plot_annotation(title = 'Title')

1
bind <- ((p1 | p2) / p3) + plot_annotation(tag_levels = 'A')

函数定义

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
plot_layout(
  ncol = waiver(), #定义网格尺寸，下同
  nrow = waiver(),
  byrow = waiver(), #矩阵或FALSE
  widths = waiver(), #匹配尺寸用宽高，NA/-1null有特殊
  heights = waiver(),
  guides = waiver(),
  tag_level = waiver(),
  design = waiver(),
  axes = waiver(),
  axis_titles = axes
)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
plot_annotation(
  title = waiver(),
  subtitle = waiver(),
  caption = waiver(),
  tag_levels = waiver(),
  tag_prefix = waiver(),
  tag_suffix = waiver(),
  tag_sep = waiver(),
  theme = waiver()
)