引言

我们还可以对图形中的坐标轴进行处理，包括x、y轴对换、设定坐标轴范围、刻度线修改与去除等等。要想对图形玩得转，坐标轴处理精通不可或缺。

坐标轴对换

我们使用coord_flip()函数来对换坐标轴。

library(ggplot2)
library(gcookbook)
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() + coord_flip()

置换x、y轴时有时候会导致某一坐标轴的坐标被逆转。比如说原x轴的数据是从左往右阅读的，在对换后，原来数据会从下往上给呈现。有时这是个问题。如果x是因子，我们可以对其用带参数limits=rev(levels(…))的函数scale_x_discrete()进行修正。

如果是连续变量，我们可以使用函数scale_y_reverse 或者scale_x_reverse来逆转坐标轴。

如果我们想改变分类变量的显示顺序，可以设置scale_x_discrete() or scale_y_discrete()函数就行。

#因子坐标轴
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() + coord_flip() +
scale_x_discrete(limits=rev(levels(PlantGrowth$group)))
#连续变量的逆转
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() + scale_y_reverse()
#改变分类变量顺序
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()+scale_x_discrete(limits=c("trt1","ctrl","trt2"))

设置x,y轴的连续变量范围

我们可以使用xlim()和ylim设置x、y轴的最大最小值。

p <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
p + ylim(0, max(PlantGrowth$weight))
#ylim()是对scale_y_continuous()的快速实现。
#其中breaks用来控制刻度。
p + scale_y_continuous(limits=c(0, 10), breaks=NULL)

设置x、y轴刻度相对比例

我们可以设置x、y轴刻度的相对比例，可以是1:1,即一致的长度。也可以让其中一个轴的刻度变得更长一些，或者说两个刻度线之间的距离更大一些。

sp <- ggplot(marathon, aes(x=Half,y=Full)) + geom_point()
#1:1
sp + coord_fixed() +
scale_y_continuous(breaks=seq(0, 420, 30)) +
scale_x_continuous(breaks=seq(0, 420, 30))
#1:2 x轴刻度长度比y轴刻度长度
sp + coord_fixed(ratio=1/2) +
scale_y_continuous(breaks=seq(0, 420, 30)) +
scale_x_continuous(breaks=seq(0, 420, 15))

设置刻度线的位置

ggplot()函数对处理刻度线位置非常擅长，只要改变刻度的间隔即可（这里的刻度线指的是大刻度线）。

如果坐标轴上变量是连续变量，则不会出现小刻度线。

#连续变量
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() +
scale_y_continuous(breaks=c(4, 4.25, 4.5, 5, 6, 8))
#看到没有，刻度线位置已经按照breaks设置的参数改变了
#如果是离散变量，则使用scale_x_discrete函数
#通过limit函数来控制标签的个数和顺序
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() +
scale_x_discrete(limits=c("trt2", "ctrl"))

去除刻度线、刻度标签和网格线

如果想去除刻度标签，我们使用theme(axis.text.y = element_blank())（如果针对x,参数y改成x即可。

如果想去除刻度线，在theme函数中使用axis.ticks.y = element_blank()，如果x、y轴都想去除axis.ticks.y改成axis.ticks即可。

有时候网格线让整个图画显得复杂，我们也可以对此进行去除。breaks的参数值设为NULL就行了。

p <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
#去除刻度标签
p + theme(axis.text.y = element_blank())
#去除刻度线
p + theme(axis.ticks.y = element_blank(), axis.text.y = element_blank())
#去除网格线
p + scale_y_continuous(breaks=NULL)

改变刻度标签的内容和显示效果

我们不仅可以改变刻度标签的位置，还可以对标签内容进行修改。

hwp <- ggplot(heightweight, aes(x=ageYear, y=heightIn)) +
geom_point()
hwp + scale_y_continuous(breaks=c(50, 56, 60, 66, 72),
labels=c("Tiny", "Really\nshort", "Short",
"Medium", "Tallish"))
#值得注意的是，若标签太长，可以用\n将文本放到下一行进行显示

为了改变刻度标签的显示效果，我们可以在theme函数中设置element_text参数中angle的值。

bp <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() +
scale_x_discrete(breaks=c("ctrl", "trt1", "trt2"),
labels=c("Control", "Treatment 1", "Treatment 2"))
#垂直显示
bp + theme(axis.text.x = element_text(angle=90, hjust=1, vjust=.5))
#换个角度显示，angle是控制刻度标签显示的角度
bp + theme(axis.text.x = element_text(angle=30, hjust=1, vjust=1))
#hjust和vjust是为了控制刻度标签在水平方向和垂直方向的位置

改变坐标轴标签内容

刚才改变的是刻度标签，我们有时还想改变各个坐标轴中标签内容。

hwp + xlab("Age in years") + ylab("Height in inches")#hwp在上面例子中已经定义过
#你也可以这么改，两者等价
hwp + labs(x = "Age in years", y = "Height in inches")

我们也可以去除各个坐标轴标签。

hwp+ theme(axis.title.x=element_blank())

改变坐标轴标签的显示效果也同样方便。

hwp + ylab("Height\n(inches)") +
theme(axis.title.y=element_text(angle=90, face="italic", colour="darkred",
size=14))
#这也同样适用于改变刻度线标签的字体、颜色大小。

使用对数坐标轴

我们也可以把坐标轴改变成对数坐标轴形式，使用scale_x_log10() scale_y_log10()。

library(MASS)
p <- ggplot(Animals, aes(x=body, y=brain, label=rownames(Animals))) +
geom_text(size=3)
#只显示标签线
p + scale_x_log10() + scale_y_log10()

书中还介绍了在坐标轴上显示日期和时间的方法，有兴趣的朋友可以翻一翻书本了解下。

R语言ggplot2包之坐标轴相关推荐

[置顶]R语言 ggplot2包
R语言 ggplot2包的学习分析数据要做的第一件事情,就是观察它.对于每个变量,哪些值是最常见的?值域是大是小?是否有异常观测? ggplot2图形之基本语法: ggplot2的核心理念是将绘图 ...
R语言ggplot2包和ggtext包在可视化图像中的指定位置添加文本框（横向文本框、竖向文本框）
R语言ggplot2包和ggtext包在可视化图像中的指定位置添加文本框(横向文本框.竖向文本框) 目录
R语言ggplot2包和lattice包可视化改变x轴和y轴的显示位置实战
R语言ggplot2包和lattice包可视化改变.自定义x轴和y轴的显示位置实战目录 R语言ggplot2包和lattice包可视化改变.自定义x轴和y轴的显示位置实战
R语言ggplot2包以及lattice包可视化方程、函数的曲线实战：function curve
R语言ggplot2包以及lattice包可视化方程.函数的曲线实战:function curve 目录 R语言ggplot2包以及lattice包可视化方程.函数的曲线实战:function cur ...
R语言ggplot2可视化增加坐标轴的刻度数实战：自定义坐标轴刻度粒度、增加坐标轴刻度的粒度、更加精细地表达
R语言ggplot2可视化增加坐标轴的刻度数实战:自定义坐标轴刻度粒度.增加坐标轴刻度的粒度.更加精细地表达目录
R语言ggplot2包旋转（Rotate）可视化图像轴标签实战
R语言ggplot2包旋转(Rotate)可视化图像轴标签实战目录 R语言ggplot2包旋转(Rotate)可视化图像轴标签实战
使用R语言ggplot2包绘制pathway富集分析气泡图（Bubble图）:数据结构及代码
气泡图是在笛卡尔坐标系同加入大小的参数所形成的可以表示三个变量关系的图例.在对基因完成GO/KEGG分析后,使用气泡图可以直观的展示pathway.pvalue.count之间的关系.下面为使用R语言 ...
数据可视化——R语言ggplot2包绘制相关矩阵为热图
数据可视化--R语言ggplot2包绘制相关矩阵为热图概述:R语言软件和数据可视化--ggplot2快速绘制相关矩阵为热图.本文翻译了一篇英文博客,博客原文链接:http://www.sthda.c ...
数据可视化——R语言ggplot2包绘制精美的小提琴图(并箱线图或误差条图组合)
数据可视化--R语言ggplot2包绘制精美的小提琴图(并箱线图或误差条图组合) 概述:R语言使用ggplot2工具包绘制小提琴图.为了使数据表达更加丰富,同时将小提琴图与箱线图和误差条图相结合.另外 ...

R语言ggplot2包之坐标轴

引言