這個R tutorial描述如何使用ggplot2包修改x和y軸刻度。同樣，該文包含如何執行軸轉換（對數化，開方等）和日期轉換。

準備資料

使用ToothGrowth：

# Convert dose column dose from a numeric to a factor variableToothGrowth$dose <- as.factor(ToothGrowth$dose)
head(ToothGrowth)##    len supp dose## 1  4.2   VC  0.5## 2 11.5   VC  0.5## 3  7.3   VC  0.5## 4  5.8   VC  0.5## 5  6.4   VC  0.5## 6 10.0   VC  0.5

請確保 dose 變數變為因子型別。

示例圖

library(ggplot2)# Box plot bp <- ggplot(ToothGrowth, aes(x=dose, y=len)) + geom_boxplot()
bp# scatter plotsp<-ggplot(cars, aes(x = speed, y = dist)) + geom_point()
sp

img

改變x和y軸刻度

下面是一些設定刻度的函式：

xlim() 和 ylim()
expand_limits()
scale_x_continuous() 和scale_y_continuous()

使用xlim()和ylim()函式

想要改變連續軸的範圍，可以使用xlim()和ylim()函式：

# x axis limitssp + xlim(min, max)# y axis limitssp + ylim(min, max)

min和max是每個軸的最小值和最大值。

# Box plot : change y axis rangebp + ylim(0,50)# scatter plots : change x and y limitssp + xlim(5, 40)+ylim(0, 150)

img

使用expand_limts()函式

注意，函式 expand_limits() 可以用於：

快速設定在x和y軸在 (0,0) 處的截距項
改變x和y軸範圍

# set the intercept of x and y axis at (0,0)sp + expand_limits(x=0, y=0)# change the axis limitssp + expand_limits(x=c(0,30), y=c(0, 150))

img

使用scale_xx()函式

也可以使用函式scale_x_continuous() 和scale_y_continuous()分別改變x和y軸的刻度範圍。 t

函式簡單的形式如下：

scale_x_continuous(name, breaks, labels, limits, trans)
scale_y_continuous(name, breaks, labels, limits, trans)

name：x或y軸標籤
breaks：控制引導元素的刻度（軸刻度，網格線等），可以使用
- NULL : 隱藏所有刻度
- waiver() : 預設刻度
- 一個字串或數值向量指定顯示的刻度
標籤：刻度值標籤，可以使用下面的值：
- NULL 沒標籤
- waiver() 預設標籤
- character vector 指定標籤
limits：指定刻度範圍
trans：軸轉換，可以使用 “log2”, “log10”, …

下面是示例：

# Change x and y axis labels, and limitssp + scale_x_continuous(name="Speed of cars", limits=c(0, 30)) +
  scale_y_continuous(name="Stopping distance", limits=c(0, 150))

img

軸轉換

對數化和開方轉換

內建轉換函式：

scale_x_log10(), scale_y_log10() : for log10 transformation
scale_x_sqrt(), scale_y_sqrt() : for sqrt transformation
scale_x_reverse(), scale_y_reverse() : to reverse coordinates
coord_trans(x =“log10”, y=“log10”) : possible values for x and y are “log2”, “log10”, “sqrt”, …
scale_x_continuous(trans=‘log2’), scale_y_continuous(trans=‘log2’) : another allowed value for the argument trans is ‘log10’

使用示例：

# Default scatter plotsp <- ggplot(cars, aes(x = speed, y = dist)) + geom_point()
sp# Log transformation using scale_xx()# possible values for trans : 'log2', 'log10','sqrt'sp + scale_x_continuous(trans='log2') +
  scale_y_continuous(trans='log2')# Sqrt transformationsp + scale_y_sqrt()# Reverse coordinatessp + scale_y_reverse()

img

函式coord_trans()也可以用於軸座標轉換

# Possible values for x and y : "log2", "log10", "sqrt", ...sp + coord_trans(x="log2", y="log2")

img

格式化軸刻度標籤

這需要載入scales包：

# Log2 scaling of the y axis (with visually-equal spacing)library(scales)
sp + scale_y_continuous(trans = log2_trans())# show exponentssp + scale_y_continuous(trans = log2_trans(),
    breaks = trans_breaks("log2", function(x) 2^x),
    labels = trans_format("log2", math_format(2^.x)))

img

Note that many transformation functions are available using the scales package : log10_trans(), sqrt_trans(), etc. Use help(trans_new) for a full list.

格式化刻度標籤：

library(scales)# Percentsp + scale_y_continuous(labels = percent)# dollarsp + scale_y_continuous(labels = dollar)# scientificsp + scale_y_continuous(labels = scientific)

img

顯示對數化刻度標記

可以使用函式annotation_logticks()新增對數化刻度標記。

Note that, these tick marks make sense only for base 10

使用MASS包動物資料：

library(MASS)
head(Animals)##                     body brain## Mountain beaver     1.35   8.1## Cow               465.00 423.0## Grey wolf          36.33 119.5## Goat               27.66 115.0## Guinea pig          1.04   5.5## Dipliodocus     11700.00  50.0

執行示例：

library(MASS) # to access Animals data setslibrary(scales) # to access break formatting functions# x and y axis are transformed and formattedp2 <- ggplot(Animals, aes(x = body, y = brain)) + geom_point() +
     scale_x_log10(breaks = trans_breaks("log10", function(x) 10^x),              labels = trans_format("log10", math_format(10^.x))) +     scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
              labels = trans_format("log10", math_format(10^.x))) +     theme_bw()# log-log plot without log tick marksp2# Show log tick marksp2 + annotation_logticks()

img

Note that, default log ticks are on bottom and left.

設定顯示的位置

# Log ticks on left and rightp2 + annotation_logticks(sides="lr")# All sidesp2+annotation_logticks(sides="trbl")

字母含義：

t : for top
r : for right
b : for bottom
l : for left
the combination of t, r, b and l

格式化日期軸

使用函式 scale_x_date() 和 scale_y_date()

樣例資料

建立時間序列資料

df <- data.frame(
  date = seq(Sys.Date(), len=100, by="1 day")[sample(100, 50)],
  price = runif(50)
)
df <- df[order(df$date), ]
head(df)##          date      price## 33 2016-09-21 0.07245190## 3  2016-09-23 0.51772443## 23 2016-09-25 0.05758921## 43 2016-09-26 0.99389551## 45 2016-09-27 0.94858770## 29 2016-09-28 0.82420890

繪製日期

# Plot with date
dp <- ggplot(data=df, aes(x=date, y=price)) + geom_line()dp

img

格式化日期標記

使用scales包：

library(scales)# Format : month/daydp + scale_x_date(labels = date_format("%m/%d")) +
  theme(axis.text.x = element_text(angle=45))# Format : Weekdp + scale_x_date(labels = date_format("%W"))# Months onlydp + scale_x_date(breaks = date_breaks("months"),
  labels = date_format("%b"))

img

作者：王詩翔
連結：

【r