ggplot2学习笔记-修改坐标轴刻度

1.修改坐标轴显示范围scale_x_continous(limits=c("A","B")#显示范围为A-B或者ylim(A,B)2.修改坐标轴显示刻度scale_x_continous(limits=c("A","B"), breaks=seq(起始值，终止值，间隔))3.修改坐标轴标签旋转坐标轴标签theme(a

文章共3,762字 · 阅读需要大约13分钟

一键AI生成摘要，助你高效阅读

问答

一个人旅行-

114465人浏览 · 2018-07-22 14:27:37

一个人旅行*-* · 2018-07-22 14:27:37 发布

1.修改坐标轴显示范围

scale_x_continuous(limits=c("A","B")#显示范围为A-B

或者ylim(A,B)

2.修改坐标轴显示刻度

scale_x_continuous(limits=c("A","B"), breaks=seq(起始值，终止值，间隔))

3.修改坐标轴标签

旋转坐标轴标签theme(axis.text.x=element_text(angle=45,size=8))

凡是修改坐标轴的属性，可以用theme(axis.text.x=theme_text(X轴属性),asix.text.y=theme_text(Y轴属性))

theme_text()是存储文字属性的函数，其内置属性如下：

4.hjust与vjust用法

family：字体
face：粗体、斜体等
size：字体大小
angle：倾斜角度
color：颜色

The value of hjust and vjust are only defined between 0 and 1:
（hjust 和 vjust的值限定在0-1）

0 means left-justified（0表示左适应）
1 means right-justified（1表示右适应）

hjust 控制horizontal横轴， vjust控制vertical纵轴

5.修改字体

windowsFonts(myFont1=windowsFont("Times New Roman"),myFont2=windowsFont("华文行楷"))

6.旋转坐标轴

coord_flip()

7.坐标轴转换标度

scale_x_log10()#横坐标log10转换

详细示例

初始图样：

如何修改坐标轴的显示范围：

如何修改坐标轴的标签（内容、大小、字体、颜色、加粗、位置、角度）：

如何修改坐标轴的刻度标签（内容）：

如何修改坐标轴的刻度标签（大小、字体、颜色、加粗、位置、角度）：

（更多内容请见：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)
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)
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=seq(0, 10, 5))   ## X 轴每隔 5 个单位显示一个刻度

这里写图片描述

如何去掉网格线：

删去之前：

这里写图片描述

删去之后：

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())   ## 删去网格线
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) + 
  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()) +    ## 删去网格线
  theme(axis.text = element_blank())   ## 删去所有刻度标签
# theme(axis.text.y = element_blank())   ## 设置 axis.text.y 则只删去 Y 轴的刻度标签，X 轴同理。
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) + 
  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()) +   ## 删去网格线
  theme(axis.text = element_blank()) +   ## 删去所有刻度标签
  theme(axis.ticks = element_blank())   ## 删去所有刻度线
# theme(axis.ticks.y = element_blank())   ## 设置 axis.ticks.y 则只删去 Y 轴的刻度线，X 轴同理。
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) + 
  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()) +   ## 删去网格线
  theme(axis.text = element_blank()) +   ## 删去刻度标签
  theme(axis.ticks = element_blank()) +   ## 删去刻度线
  theme(panel.border = element_blank())   ## 删去外层边框
p

这里写图片描述

如何再加上X轴、Y轴（无刻度、无标签）：

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()) +   ## 删去网格线
  theme(axis.text = element_blank()) +   ## 删去刻度标签
  theme(axis.ticks = element_blank()) +   ## 删去刻度线
  theme(panel.border = element_blank()) +   ## 删去外层边框
  theme(axis.line = element_line(size=1, colour = "black"))   ## 再加上坐标轴（无刻度、无标签）
p

这里写图片描述