gg.gap包—截断Y轴小能手

简介: 截断Y轴往往是我们作柱形图时候,当有一组数据的分布过大或者过小时候需要用到,不截断的话值小的变量信息往往会被掩盖,图片也会不美观,今天介绍俩个方便截断Y轴方法供大家参考。

gg.gap

这个包已经发布在Cran上了,可以直接install.packages('gg.gap')进行安装,这里给出包的文档地址以供学习。

a75753791d4a6823fe218e0be3b8ea8.png

这个包的Description中提到ggplot2图中定义Y轴不是很容易,gg.gap()函数可以执行此操作,我们就来一探究竟。使用前我们先通过?gg.gap了解一下该函数。简单使用如下:

a43686c13e97b59bef11c48dc64be30.png

参数并不算多,我们来简单看一下:

参数 作用
plot 'ggplot2'图形
ylim y轴数值的限制
segments 设置一段的间隔。如果你想给出多段间隔,请使用list()将它们连接起来。
tick_width 设置每个分段的刻度。
rel_heights 设置分段的相对高度,默认为1和0。
vjust 垂直调整,默认为0
........ ?gg.gap自行了解吧

示例

我们来看下文档中给的例子,是用了mtcars数据集示范。

先来个简单的柱形图


data(mtcars)
library(ggplot2)
p<-ggplot(data = mtcars, aes(x = gear, fill = gear)) +
  geom_bar() +
  ggtitle("Number of Cars by Gear") +
  xlab("Gears")
p

10bb21c850db4600bd4965229d41501.png

先切一刀

通过设置segment=c(5,10)可以轻松将Y中从5到10处截断


library(gg.gap)# 加载包
gg.gap(plot=p,
       segments=c(5,10),
       ylim=c(0,50))

d381ecd9a8b10421dfe6b4bc246746f.png

再来一刀

切俩段时候注意使用list函数包含俩段的范围,这里还用到tick_width = c(1,0.5,10),它的作用可以设置每个分段的刻度范围,如下图切分后的三个图,Y轴的数值范围就分别变为1,0.5,10了。


gg.gap(plot=p,
       segments=list(c(2.5,4),c(5,10)),
       tick_width = c(1,0.5,10),
       ylim=c(0,50))

e89d846eb6a2f9d6d0b54062222aa4e.png

设置相对高度

rel_heights参数可以设置Y轴片段的相对高度,用时自己调节数值至理想的样子即可。


gg.gap(plot=p,
       segments=list(c(2.5,4),c(5,10)),
       tick_width = c(1,0.5,10),
       rel_heights=c(0.2,0,0.2,0,1),
       ylim=c(0,50))

e7805a2628edf59069745da829bd56f.png

其他

  1. 我们可以设置scale_y_continuous(trans = 'reverse')将Y轴数值进行反转,从上往下数值由小到大,也是一种不错的选择。


#reversed y-axis
p<-ggplot(data = mtcars, aes(x = gear, fill = gear)) +
  geom_bar() +
  ggtitle("Number of Cars by Gear") +
  xlab("Gears")+
  scale_y_continuous(trans = 'reverse')
p
#single segments and missing tick_width
gg.gap(plot=p,
       segments=c(10,5),
       ylim=c(15,0))

820f5f45919f1060f4206e04a63db20.png

  1. 在看文档时候,看到作者在新版本v1.3中增添了一个add_legend函数可以去增加图例。
library(ggplot2)
mtcars$gear <- factor(mtcars$gear)
bp <- ggplot(data = mtcars, aes(x = gear, fill = gear)) +
 geom_bar() +
 ggtitle("Number of Cars by Gear") +
 xlab("Gears")
gg.gap(plot = bp,
 ylim = c(0,16),
 segments = c(6,8))
add.legend(plot = bp,
 margin = c(top=1,right=1,bottom=1,left=460))

以上就是gg.gap包截断Y轴的基本使用了,更多参数细节可以去看源文档,不多内容也就俩三页。

另一种思路(coord_cartesian函数)

其实Y轴截断是俩个范围的内的图形进行组合,再调整比例的设置,想起来之前看到一个帖子用到了coord_cartesian函数,再利用ggpubr包中的ggarrange进行俩个图形的拼接也可以实现目的,我们还以上面的柱形图举例:


library(ggpubr)
p1<-ggplot(data = mtcars, aes(x = gear, fill = gear)) +
  geom_bar() +
  xlab("Gears")+
  coord_cartesian(ylim = c(0,5))
p2<-ggplot(data = mtcars, aes(x = gear, fill = gear)) +
  geom_bar() +
  ggtitle("Number of Cars by Gear")+
  labs(x=NULL,y=NULL,fill=NULL) +
  theme(axis.text.x = element_blank(),axis.ticks.x = element_blank()) +     #去掉X轴和X轴的文字
  coord_cartesian(ylim = c(10,50))
p1
p2
#拼起来
ggarrange(p2,p1,heights=c(1/5, 4/5),ncol = 1, nrow = 2,common.legend = TRUE,legend="right",align = "v")

575a5433b69e7d3bd5663eceb1e50bd.png

相关文章
|
5月前
|
存储 机器学习/深度学习 关系型数据库
求求你不要再用offset和limit了
求求你不要再用offset和limit了
36 1
|
6月前
|
Python
python输入位置的坐标(即经纬度),计算两点的距离结果保留两位
python输入位置的坐标(即经纬度),计算两点的距离结果保留两位
|
6月前
【每日一题Day162】LC1637两点之间不包含任何点的最宽垂直区域 | 排序
【每日一题Day162】LC1637两点之间不包含任何点的最宽垂直区域 | 排序
126 0
|
6月前
|
数据可视化
使用 ggbreak 包进行 Y 轴多次截断
使用 ggbreak 包进行 Y 轴多次截断
195 0
|
存储 Python
python 如何实现数组的间隔排列:每一行比前一行间隔一个位置排列。
最近,在处理一些数据时,由于数据是按照每小时进行采样的,为了保持周期的完整性,需要将同一时刻对应的数据进行平均处理。
python 如何实现数组的间隔排列:每一行比前一行间隔一个位置排列。
python去除sst季节性空间分布图中,0°经线处出现的白线
近日,在处理sst月均数据时,绘制出季节性的空间分布图时,发现:绘出的图像在0°出现一条白线,经过查询将问题已经解决。
python去除sst季节性空间分布图中,0°经线处出现的白线
|
Python
【Excel自动化办公Part2】:向某个格子里写入内容、append()插入行、在表格中插入公式、插入行和列、删除行和列、移动格子
【Excel自动化办公Part2】:向某个格子里写入内容、append()插入行、在表格中插入公式、插入行和列、删除行和列、移动格子
224 0
【Excel自动化办公Part2】:向某个格子里写入内容、append()插入行、在表格中插入公式、插入行和列、删除行和列、移动格子
|
编解码
PTA 1066 图像过滤 (15 分)
图像过滤是把图像中不重要的像素都染成背景色,使得重要部分被凸显出来。
98 0
|
索引 Python
python 如何将nc文件中的经度从从0-360更改为-180到180,并按照坐标排序
python 如何将nc文件中的经度从从0-360更改为-180到180,并按照坐标排序
【CCCC】L3-025 那就别担心了 (30分),dfs搜索起点到终点的路径条数。
【CCCC】L3-025 那就别担心了 (30分),dfs搜索起点到终点的路径条数。
147 0