腳本之家服務(wù)器常用軟件

快捷導(dǎo)航

R語言ggplot2包之坐標(biāo)軸詳解

更新時(shí)間：2021年04月17日 14:57:38 作者：zx403413599

這篇文章主要介紹了R語言ggplot2包之坐標(biāo)軸詳解，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

引言

我們還可以對(duì)圖形中的坐標(biāo)軸進(jìn)行處理，包括x、y軸對(duì)換、設(shè)定坐標(biāo)軸范圍、刻度線修改與去除等等。要想對(duì)圖形玩得轉(zhuǎn)，坐標(biāo)軸處理精通不可或缺。

坐標(biāo)軸對(duì)換

我們使用coord_flip()函數(shù)來對(duì)換坐標(biāo)軸。

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軸時(shí)有時(shí)候會(huì)導(dǎo)致某一坐標(biāo)軸的坐標(biāo)被逆轉(zhuǎn)。比如說原x軸的數(shù)據(jù)是從左往右閱讀的，在對(duì)換后，原來數(shù)據(jù)會(huì)從下往上給呈現(xiàn)。有時(shí)這是個(gè)問題。如果x是因子，我們可以對(duì)其用帶參數(shù)limits=rev(levels(…))的函數(shù)scale_x_discrete()進(jìn)行修正。

如果是連續(xù)變量，我們可以使用函數(shù)scale_y_reverse 或者scale_x_reverse來逆轉(zhuǎn)坐標(biāo)軸。

如果我們想改變分類變量的顯示順序，可以設(shè)置scale_x_discrete() or scale_y_discrete()函數(shù)就行。

#因子坐標(biāo)軸
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() + coord_flip() +
scale_x_discrete(limits=rev(levels(PlantGrowth$group)))
#連續(xù)變量的逆轉(zhuǎn)
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"))

設(shè)置x,y軸的連續(xù)變量范圍

我們可以使用xlim()和ylim設(shè)置x、y軸的最大最小值。

p <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
p + ylim(0, max(PlantGrowth$weight))
#ylim()是對(duì)scale_y_continuous()的快速實(shí)現(xiàn)。
#其中breaks用來控制刻度。
p + scale_y_continuous(limits=c(0, 10), breaks=NULL)

設(shè)置x、y軸刻度相對(duì)比例

我們可以設(shè)置x、y軸刻度的相對(duì)比例，可以是1:1,即一致的長度。也可以讓其中一個(gè)軸的刻度變得更長一些，或者說兩個(gè)刻度線之間的距離更大一些。

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

設(shè)置刻度線的位置

ggplot()函數(shù)對(duì)處理刻度線位置非常擅長，只要改變刻度的間隔即可（這里的刻度線指的是大刻度線）。

如果坐標(biāo)軸上變量是連續(xù)變量，則不會(huì)出現(xiàn)小刻度線。

#連續(xù)變量
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() +
scale_y_continuous(breaks=c(4, 4.25, 4.5, 5, 6, 8))
#看到?jīng)]有，刻度線位置已經(jīng)按照breaks設(shè)置的參數(shù)改變了
#如果是離散變量，則使用scale_x_discrete函數(shù)
#通過limit函數(shù)來控制標(biāo)簽的個(gè)數(shù)和順序
ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot() +
scale_x_discrete(limits=c("trt2", "ctrl"))

去除刻度線、刻度標(biāo)簽和網(wǎng)格線

如果想去除刻度標(biāo)簽，我們使用theme(axis.text.y = element_blank())（如果針對(duì)x,參數(shù)y改成x即可。

如果想去除刻度線，在theme函數(shù)中使用axis.ticks.y = element_blank()，如果x、y軸都想去除axis.ticks.y改成axis.ticks即可。

有時(shí)候網(wǎng)格線讓整個(gè)圖畫顯得復(fù)雜，我們也可以對(duì)此進(jìn)行去除。breaks的參數(shù)值設(shè)為NULL就行了。

p <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
#去除刻度標(biāo)簽
p + theme(axis.text.y = element_blank())
#去除刻度線
p + theme(axis.ticks.y = element_blank(), axis.text.y = element_blank())
#去除網(wǎng)格線
p + scale_y_continuous(breaks=NULL)

改變刻度標(biāo)簽的內(nèi)容和顯示效果

我們不僅可以改變刻度標(biāo)簽的位置，還可以對(duì)標(biāo)簽內(nèi)容進(jìn)行修改。

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"))
#值得注意的是，若標(biāo)簽太長，可以用\n將文本放到下一行進(jìn)行顯示

為了改變刻度標(biāo)簽的顯示效果，我們可以在theme函數(shù)中設(shè)置element_text參數(shù)中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))
#換個(gè)角度顯示，angle是控制刻度標(biāo)簽顯示的角度
bp + theme(axis.text.x = element_text(angle=30, hjust=1, vjust=1))
#hjust和vjust是為了控制刻度標(biāo)簽在水平方向和垂直方向的位置

改變坐標(biāo)軸標(biāo)簽內(nèi)容

剛才改變的是刻度標(biāo)簽，我們有時(shí)還想改變各個(gè)坐標(biāo)軸中標(biāo)簽內(nèi)容。

hwp + xlab("Age in years") + ylab("Height in inches")#hwp在上面例子中已經(jīng)定義過
#你也可以這么改，兩者等價(jià)
hwp + labs(x = "Age in years", y = "Height in inches")

我們也可以去除各個(gè)坐標(biāo)軸標(biāo)簽。

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

改變坐標(biāo)軸標(biāo)簽的顯示效果也同樣方便。

hwp + ylab("Height\n(inches)") +
theme(axis.title.y=element_text(angle=90, face="italic", colour="darkred",
size=14))
#這也同樣適用于改變刻度線標(biāo)簽的字體、顏色大小。

使用對(duì)數(shù)坐標(biāo)軸

我們也可以把坐標(biāo)軸改變成對(duì)數(shù)坐標(biāo)軸形式，使用scale_x_log10() scale_y_log10()。

library(MASS)
p <- ggplot(Animals, aes(x=body, y=brain, label=rownames(Animals))) +
geom_text(size=3)
#只顯示標(biāo)簽線
p + scale_x_log10() + scale_y_log10()