美文网首页收入即学习R
gg.gap包—截断Y轴小能手

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

作者: 凯凯何_Boy | 来源:发表于2020-09-28 13:54 被阅读0次

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

gg.gap

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

image-20200928095904604

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

image-20200928102714787

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

参数 作用
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
image-20200928101928940

先切一刀

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

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

再来一刀

切俩段时候注意使用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))
image-20200928102930287

设置相对高度

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))
image-20200928104556074

其他

  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))

image-20200928105220799
  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))
    
    image-20200928105523712

以上就是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")
image-20200928110535086

相关文章

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

    截断Y轴往往是我们作柱形图时候,当有一组数据的分布过大或者过小时候需要用到,不截断的话值小的变量信息往往会被掩盖,...

  • R语言:ggplot绘图的Y轴截断和拼接

    导读 记录一个产生Y轴截断ggplot绘图的方法。先用coord_cartesian根据Y轴把图截断成上下两份,接...

  • R可视化:ggplot截断y坐标图 gg.gap

    在画图的时候,某些分组的value偏大,可视化的时候需要对y轴的数值进行截断处理。因为常使用ggplot2包作图,...

  • ggplot2 + 截断y轴

    利用patchwork可以做出坐标轴截断的样子。

  • 如何将柱状图y轴截断

    Hello,大家好,最近碰到做图需要将y轴截断,当然很多工具都可以实现这个目的,比如excel, origin,在...

  • JIGplot开发 - 笛卡尔坐标系 - 坐标轴转换

    写在前面 进行转换 原始图片 X轴-翻转 X轴-翻转,Y轴-翻转 X轴与Y轴调换 X轴与Y轴调换 Y轴翻转 X轴与...

  • 如何绘制截断Y轴的柱形图

    在绘制柱形图的时候, 我们经常会遇到Y轴部分数据范围很广的情况。有些数值很大,但是有些有非常小,不在一个尺度范围内...

  • 基于R语言绘制坐标轴截断图

    画图时经常遇到不同组的数据大小相差很大,大数据就会掩盖小数据的变化规律,这时候可以对Y轴进行截断,从而可以在不同层...

  • R:gggplot绘制箱线图2021-08-28

    加载包 读取数据 表格抬头,使用Family作为X轴,AT%作为Y轴,%在R里面容易引起歧义识别不了抬头所以我去掉...

  • Android-传感器-方向

    使用方向传感器,定位手机y轴方向(y轴与北方夹角0-360度) y轴: 手机长边方向x轴:手机短边方向z轴:与手机...

网友评论

    本文标题:gg.gap包—截断Y轴小能手

    本文链接:https://www.haomeiwen.com/subject/tujjlktx.html