YuLabSMU 截断部分坐标轴 留些空白

library(ggplot2)
library(ggbreak)
set.seed(2019-01-19)
rnorm(5)
rnorm(5)+4
d<-data.frame(x=1:20,y=c(rnorm(5)+4,rnorm(5)+20,rnorm(5)+5,rnorm(5)+22))


p1<-ggplot(d,aes(y,x))+geom_col(orientation="y")

 

 

p1+scale_x_break(c(7,17))

 

 

p1+scale_x_break(c(7,17),space = 1)

 

 

> p1+scale_x_break(c(7,17),space = 0) #会减小

 

 

> p1+scale_x_break(c(7,17),space = -1)

 

 

> p<-ggplot(d,aes(x,y))+geom_col()
> p

 

 

p+scale_y_cut(breaks = c(7,18),which = c(1,3),scales=c(3,0.5),space=.5)

 

 

　　

注：

set.seed() 设置随机数种子，产生特定的伪随机序列，让模拟可以重复出现

rnorm(n,mean=0,sd=1)  产生n个服从随机正态分布的数。默认mean=0,sd=1

geom_col 相比geom_bar柱状图不同是 ：

　　geom_bar的y是x的计数

　　geom_col的y是x的值

scale_x_break()  设置x轴上的axis break断点 

　　如p1+scale_x_break(c(7,17),space = 1) space 设置间隙大小，默认是0.1。但不能取消间隙

scale_y_cut(breaks=c(7, 18), which=c(1, 3), scales=c(3, 0.5), space=.5) 

　　breaks 要被剪掉的向量区间

　　which 产生子图subplots的位置，从左到右或从上到下

　　scales 子图的相对宽度或高度

　　space 切之后子图之间的空白空间，默认是0.1cm