Y轴截断图by ggprism
Y轴截断图by ggprism
介绍
- ggplot2绘制Y轴截断图by ggprism
加载R包
knitr::opts_chunk$set(message = FALSE, warning = FALSE)
library(tidyverse)
library(ggprism)
library(patchwork)
rm(list = ls())
options(stringsAsFactors = F)
options(future.globals.maxSize = 10000 * 1024^2)
Importing data
tg <- ToothGrowth
tg[2, "len"] <- tg[2, "len"] * 100
head(tg)
原始图
ggplot(tg, aes(x = factor(dose), y = len)) +
geom_jitter(aes(shape = factor(dose)), width = 0.2, size = 2) +
scale_shape_prism() +
