ggplot2——座標系篇

標籤：r   ggplot2   座標系   作圖   

目錄：

• 初始圖樣
• 修改座標軸的顯示範圍
• 修改座標軸的標籤（內容、大小、字型、顏色、加粗、位置、角度）
• 修改座標軸刻度的文字（大小、字型、顏色、加粗、位置、角度）
• 修改座標軸刻度文字的內容
• 修改座標軸的刻度間隔

（更多內容請見：R、ggplot2、shiny 匯總）

初始圖樣：

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

修改座標軸的顯示範圍：

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)   ## 一般使用倍數來限定大小，注意定義最小值的方式

修改座標軸的標籤（內容、大小、字型、顏色、加粗、位置、角度）：

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("這是標題")   ## 修改文字方法一p + labs(x = "這是 X 軸", y = "這是 Y 軸", title = "這是標題")   ## 修改文字方法二#### 修改 X 軸標籤的大小、字型、顏色、加粗、位置、角度 ####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斜體加粗

修改座標軸刻度的文字（大小、字型、顏色、加粗、位置、角度）：

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斜體加粗

修改座標軸刻度文字的內容：

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)   ## 只是把刻度上顯示的文字改了而已

修改座標軸的刻度間隔：

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 個單位顯示一個刻度

著作權聲明：轉載請註明出處，謝謝！

ggplot2——座標系篇