配置环境

• 基础编程环境

示例

• 加载依赖

require(ggplot2)
require(ggpubr)
require(tidyverse)
require(RColorBrewer)
options(repr.plot.width=6, repr.plot.height=12)
RColorBrewer::display.brewer.all(type = "all")

• 读入数据

data <- iris
data  %>% summary

• 选择数据

df <- data
yName <- 'Petal.Length'
ylim <- c(1, 7)
xName <- 'Petal.Width'
subName <- 'Species'

• 绘图

options(repr.plot.width=6, repr.plot.height=5)
ggscatter(
    data = df[c(xName, yName, subName)] %>% na.omit(),
    x = xName,
    y = yName,
    conf.int = T,
    cor.coef = T,
    cor.method = 'pearson',
    color = subName,
    size = 2, 
    alpha = 0.5
  ) +
scale_color_manual(values = RColorBrewer::brewer.pal(3, "Dark2")) + 
stat_smooth(method = 'lm', se = T, color = 'grey') + 
lims(y = ylim) + theme_bw() + 
theme(panel.grid = element_blank(), legend.position = "right")