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

?

1 2 3 4 5 6 7 8 9 10

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() > pp+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