R学习手记

Mon, 31 Mar 2025 20:59:57 +0800

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

Mark定义

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

排版控制

拼好图-patchwork[Mark: U]

简要

安装与导入

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

%% 安装 %%
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')`

函数定义

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
)

plot_annotation(
  title = waiver(),
  subtitle = waiver(),
  caption = waiver(),
  tag_levels = waiver(),
  tag_prefix = waiver(),
  tag_suffix = waiver(),
  tag_sep = waiver(),
  theme = waiver()
)

SNP Visualize - 绘制漂亮的SNP图

Fri, 28 Mar 2025 15:52:03 +0800

关于这个工具

这是一个用于可视化SNP的工具包。

仅支持VCF文件！

有些代码需要重写，但它们可以使用，只是对我来说不够干净和美观。

示例图

使用方法

见 Github仓库

R on DoubleCat's Blog

R学习手记

Mark定义

排版控制

拼好图-patchwork[Mark: U]

简要

函数定义

SNP Visualize - 绘制漂亮的SNP图

关于这个工具

示例图

使用方法