https://mp.weixin.qq.com/s/weDjiYK4tOaeENI6vzJFEw
- coord_cartesian()+拼接
可通過函數(shù)coord_cartesian()在圖中截取特定坐標(biāo)軸區(qū)間的某一區(qū)域器仗，該函數(shù)對x軸或y軸均適用伏穆，給定坐標(biāo)刻度范圍即可截取橄妆。
dat <- read.delim('abundance.txt', stringsAsFactors = FALSE)
#使用 ggplot2 繪制相對豐度的柱形圖
#此處僅為演示爱榔，未進(jìn)行詳細(xì)的作圖參數(shù)設(shè)置
library(ggplot2)
p <- ggplot(dat, aes(taxonomy, value.mean, fill = group)) +
geom_col(position = position_dodge(width=0.8)) +
geom_errorbar(aes(ymin = value.mean - value.sd, ymax = value.mean + value.sd), width = 0.5, position=position_dodge(.8)) +
labs(x = NULL, y = NULL) +
theme(axis.text.x = element_text(angle = 45, hjust = 1), legend.title = element_blank())
#使用 coord_cartesian() 分割作圖結(jié)果
#分別分割 y = c(0, 4)虾攻、c(4, 20)又官、c(60, 90) 區(qū)間
split1 <- p + coord_cartesian(ylim = c(0, 4)) +
theme(legend.position='none')
split2 <- p + coord_cartesian(ylim = c(4, 20)) +
theme(axis.text.x = element_blank(), axis.ticks.x = element_blank(), legend.position = 'none')
split3 <- p + coord_cartesian(ylim = c(60, 90)) +
theme(axis.text.x = element_blank(), axis.ticks.x = element_blank(), legend.position = c(0.95, 0.7))
#也可使用 grid 包烫沙，組合上述分割結(jié)果，獲得截?cái)嘧鴺?biāo)軸的形式
library(grid)
#注：通過在 viewport() 中指定坐標(biāo)放置圖片魂那，實(shí)現(xiàn)圖片對齊效果
#x 和 y 分別用于指定所放置子圖在畫板中的坐標(biāo)蛾号，坐標(biāo)取值范圍為 0~1，并使用 just 給定坐標(biāo)起始位置
#width 和 height 用于指定所放置子圖在畫板中的高度和寬度
#這部分的數(shù)值可能比較難以調(diào)整涯雅，需要多加嘗試
grid.newpage()
plot_site1 <- viewport(x = 0, y = 0, width = 1, height = 0.5, just = c('left', 'bottom'))
plot_site2 <- viewport(x = 0, y = 0.5, width = 1, height = 0.25, just = c('left', 'bottom'))
plot_site3 <- viewport(x = 0, y = 0.75, width = 1, height = 0.25, just = c('left', 'bottom'))
print(split1, vp = plot_site1)
print(split2, vp = plot_site2)
print(split3, vp = plot_site3)
#也可以使用aplot包
library(aplot)
split3/split2/split1
- 使用ggbreak包
#使用 ggbreak 截?cái)嘧鴺?biāo)軸
#對于 x 軸使用 scale_x_break()鲜结，對于 y 軸使用 scale_y_break()
#參數(shù)中，breaks 用于截?cái)嘧鴺?biāo)軸活逆，scales 用于縮放分割比例
#使用scale_y_continuous定義“斷點(diǎn)”之前的標(biāo)簽精刷；
#使用ticklabels參數(shù)自定義“斷點(diǎn)”之后的標(biāo)簽；
library(ggbreak)
#截成兩段
p + scale_y_break(breaks = c(15, 65), scales = 0.5, ticklabels = c(70, 80))
#截成三段
p + scale_y_break(breaks = c(15, 50)) + scale_y_break(breaks = c(65, 70))
#此外蔗候，ggbreak 對分面圖也有效
p +
facet_wrap(~group, ncol = 3) +
scale_y_break(breaks = c(15, 65), scales = 0.5, ticklabels = c(70, 80)) +
theme(legend.position = 'none')
- 使用gg.gap包實(shí)現(xiàn)截?cái)嘧鴺?biāo)軸
#使用 gg.gap 截?cái)嘧鴺?biāo)軸
#在 gg.gap() 中指定 ggplot2 的作圖對象怒允，并添加參數(shù)截?cái)嘧鴺?biāo)軸
#參數(shù)中，segments 用于截?cái)嘧鴺?biāo)軸锈遥，rel_heights 縮放截圖纫事，tick_width 用于重新指定顯示的刻度軸標(biāo)簽長度，ylim 指定刻度軸范圍
library(gg.gap)
#截成兩段
gg.gap(plot = p, segments = c(15, 65), rel_heights = c(0.7, 0, 0.2), tick_width = c(5, 10), ylim = c(0, 90))
#截成三段
gg.gap(plot = p, segments = list(c(15, 50), c(65, 70)), rel_heights = c(0.4, 0, 0.1, 0, 0.1), tick_width = c(5, 10, 10), ylim = c(0, 90))