在每节，先运行以下这几行程序。

library(ggplot2) 
library(ggpubr) 
library(ggtext) #用于个性化图表 
library(dplyr) #用于数据处理
p_base <- ggplot(data = mtcars, aes(x = wt, y = mpg)) + geom_point()

改变坐标轴文字

可以在ggplot()中通过xlab()和ylab()来分别设置x轴和y轴的文字。

p_base + xlab("Weight (1000 lbs)") +
  ylab("Miles/gallon")

更多示例

# another way
p1 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon")
p2 <- p_base + scale_x_continuous(name = "Weight (1000 lbs)") +
     scale_y_continuous(name = " Miles/gallon")
ggarrange(p1, p2, ncol = 2, nrow = 1,  widths = c(1, 1),  heights = 0.5)

# add line breaks with \n
p_base + xlab("Weight\n (1000 lbs)") +  ylab("Miles/gallon")

#  Removing Axis Labels
p3 <- p_base + xlab(NULL) + ylab(NULL)
p4 <- p_base + xlab("") + ylab("")
ggarrange(p3, p4, ncol = 2, nrow = 1,  widths = c(1, 1),  heights = 0.5)

# please check the difference.

改变坐标轴外观

要改变坐标轴文字的大小、颜色和字体，可以使用element_tex)函数。element_tex()函数允许我们对图形的各个部分进行细粒度的控制。 需要 library(ggtext)

p1 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon")
p2 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon") +
     theme(axis.title.x = element_text(face = "bold", colour = "red", size = 6, hjust = 1), axis.title.y = element_text(face = "italic", colour = "darkred", size = 20, angle = -90))
ggarrange(p1, p2, ncol = 2, nrow = 1,  widths = c(1, 1),  heights = 0.5)

element_text() 是 ggplot2 中用于定制文本元素外观的函数。它可以设置文本的字体、大小、颜色、角度、对齐方式等属性。element_text() 通常在 theme() 函数中使用，用于调整图形中各种文本元素的样式，例如坐标轴标签、标题、图例文本等。

element_text() 的主要参数

• family：设置字体族。
• face：设置字体样式（“plain”、“italic”、“bold”、“bold.italic”）。
• colour 或 color：设置文本颜色。
• size：设置文本大小。
• hjust：水平对齐方式（0 = 左对齐，0.5 = 居中对齐，1 = 右对齐）。
• vjust：垂直对齐方式（0 = 下对齐，0.5 = 居中对齐，1 = 上对齐）。
• angle：设置文本旋转角度。
• lineheight：设置行高。
• margin：设置文本周围的边距（使用 margin() 函数）。

改变坐标轴文字的位置

p1 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon") +
theme(axis.title = element_text(vjust = 1, hjust = 1))
p2 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon") +
theme(axis.title = element_text(vjust = 0, hjust = 0))
ggarrange(p1, p2, ncol = 1, nrow = 2,  widths = 1,  heights = c(1, 1))

更多示例

p1 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon") +
theme(axis.title.x = element_text(margin = margin(t = 20)))
p2 <- p_base + labs(x= "Weight (1000 lbs)", y ="Miles/gallon") +
     theme(axis.title.y = element_text(margin=margin(r=30)))
ggarrange(p1, p2, ncol = 1, nrow = 2,  widths = 1,  heights = c(1, 1))

设置坐标轴范围 (Axis Limits)

可以通过： xlim(): 指定 x 轴的下限和上限。 ylim(): 指定 y 轴的下限和上限。

请注意，这两种方法都会删除超出限制范围的数据，这有时可能会产生意想不到的后果。要更改轴的范围而不删除数据，可以使用 coord_cartesian()：

coord_cartesian(): 指定 x 轴和 y 轴的范围而不删除数据观测值。

p_base +  xlim(5, 10)

# Warning message:
# Removed 29 rows containing missing values (`geom_point()`). 
p_base + coord_cartesian(xlim =c(5, 25), ylim = c(0, 4))

您还可以使用 NA 仅设置 x 轴的上限，并让 ggplot2 自动选择下限。

p_base +  xlim(NA, 5)

# Warning message:
# Removed 3 rows containing missing values (`geom_point()`). 

设置坐标轴刻度 (Axis Breaks)

要自定义坐标轴的刻度，可以使用scale_x_continuous()和scale_y_continuous()函数，并指定breaks参数。

p1 <- p_base
p2 <- p_base +   scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, 10))+   
  scale_x_continuous(limits = c(0, 10), breaks = c(0, 2, 4, 6, 8, 10))
ggarrange(p1, p2, ncol = 2, nrow = 1,  widths = c(1, 1),  heights = 0.5)

更多示例

p_base + theme(axis.text.x = element_text(face = "bold", color = "red", size = 10, angle = 45)) +
         theme(axis.text.y = element_text(face = "italic", color = "blue", size = 12, angle = -45))                  

# custom breaks
p_base + scale_x_continuous(limits = c(0, 8), breaks = c(0, 1, 5))

# Remove axis ticks mark and text
p_base + theme(axis.text.x = element_blank(), axis.ticks = element_blank())+
theme(axis.text.y = element_blank(), axis.ticks = element_blank())