初始圖樣：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) ## 添加點(diǎn)的數(shù)值
p
image.png
如何修改坐標(biāo)軸的顯示范圍：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE)
p + scale_x_continuous(limits = c(-5,15)) ## 方法一
p + xlim(-5,15) ## 方法二
p + xlim(min(dt$A, 0)*1.2, max(dt$A)*1.2) ## 一般使用倍數(shù)來限定大小枝哄，注意定義最小值的方式
image.png
如何修改坐標(biāo)軸的標(biāo)簽（內(nèi)容肄梨、大小、字體挠锥、顏色众羡、加粗、位置蓖租、角度）：
library(ggplot2)
windowsFonts(myFont = windowsFont("華文行楷")) ##如果要更改字體粱侣，需要先“綁定”字體
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE)
p + xlab("這是 X 軸") + ylab("這是 Y 軸") + ggtitle("這是標(biāo)題") ## 修改文字方法一
p + labs(x = "這是 X 軸", y = "這是 Y 軸", title = "這是標(biāo)題") ## 修改文字方法二
#### 修改 X 軸標(biāo)簽的大小、字體蓖宦、顏色齐婴、加粗、位置稠茂、角度 ####
p + xlab("這是 X 軸") + theme(axis.title.x = element_text(size = 15, family = "myFont", color = "green", face = "bold", vjust = 0.5, hjust = 0.5, angle = 45))
## face取值：plain普通柠偶，bold加粗，italic斜體睬关，bold.italic斜體加粗
image.png
如何修改坐標(biāo)軸的刻度標(biāo)簽（內(nèi)容）：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE)
p + scale_x_continuous(breaks=dt$A, labels = dt$A*1000) ## 只是把刻度上顯示的文字改了而已
image.png
如何修改坐標(biāo)軸的刻度標(biāo)簽（大小诱担、字體、顏色电爹、加粗蔫仙、位置、角度）：
library(ggplot2)
windowsFonts(myFont = windowsFont("華文行楷")) ##如果要更改字體丐箩，需要先“綁定”字體
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE)
####修改 X 軸刻度文字的大小摇邦、字體、顏色屎勘、加粗施籍、位置、角度：
p + theme(axis.text.x = element_text(size = 15, family = "myFont", color = "green", face = "bold", vjust = 0.5, hjust = 0.5, angle = 45))
## face取值：plain普通概漱，bold加粗丑慎，italic斜體，bold.italic斜體加粗
image.png
如何修改坐標(biāo)軸的刻度間隔：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE)
p + scale_x_continuous(breaks=seq(0, 10, 5)) ## X 軸每隔 5 個(gè)單位顯示一個(gè)刻度
image.png
如何去掉網(wǎng)格線：
刪去之前：
image.png
刪去之后：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
labs(x = "", y = "", title = "") +
theme_bw() +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) +
theme(panel.grid =element_blank()) ## 刪去網(wǎng)格線
p
image.png
如何去掉坐標(biāo)軸上的刻度標(biāo)簽：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
labs(x = "", y = "", title = "") +
theme_bw() +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) +
theme(panel.grid =element_blank()) + ## 刪去網(wǎng)格線
theme(axis.text = element_blank()) ## 刪去所有刻度標(biāo)簽
# theme(axis.text.y = element_blank()) ## 設(shè)置 axis.text.y 則只刪去 Y 軸的刻度標(biāo)簽，X 軸同理立哑。
p
image.png
如何去掉刻度線：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
labs(x = "", y = "", title = "") +
theme_bw() +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) +
theme(panel.grid =element_blank()) + ## 刪去網(wǎng)格線
theme(axis.text = element_blank()) + ## 刪去所有刻度標(biāo)簽
theme(axis.ticks = element_blank()) ## 刪去所有刻度線
# theme(axis.ticks.y = element_blank()) ## 設(shè)置 axis.ticks.y 則只刪去 Y 軸的刻度線，X 軸同理姻灶。
p
image.png
如何去掉外層邊框：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
labs(x = "", y = "", title = "") +
theme_bw() +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) +
theme(panel.grid =element_blank()) + ## 刪去網(wǎng)格線
theme(axis.text = element_blank()) + ## 刪去刻度標(biāo)簽
theme(axis.ticks = element_blank()) + ## 刪去刻度線
theme(panel.border = element_blank()) ## 刪去外層邊框
p
image.png
如何再加上X軸铛绰、Y軸（無刻度、無標(biāo)簽）：
library(ggplot2)
dt = data.frame(A = 1:10, B = c(2,15,6,18,9,7,13,15,10,3), C = c('A','C','A','B','C','D','A','C','D','B'))
p = ggplot(dt, aes(x = A, y = B, color = C, group = factor(1))) +
geom_point(size = 3.8) +
geom_line(size = 0.8) +
labs(x = "", y = "", title = "") +
theme_bw() +
geom_text(aes(label = B, vjust = 1.1, hjust = -0.5, angle = 45), show_guide = FALSE) +
theme(panel.grid =element_blank()) + ## 刪去網(wǎng)格線
theme(axis.text = element_blank()) + ## 刪去刻度標(biāo)簽
theme(axis.ticks = element_blank()) + ## 刪去刻度線
theme(panel.border = element_blank()) + ## 刪去外層邊框
theme(axis.line = element_line(size=1, colour = "black")) ## 再加上坐標(biāo)軸（無刻度产喉、無標(biāo)簽）
p
image.png
