ggplot2——坐标系篇
来源:互联网 发布:淘宝美即面膜海洋冰泉 编辑:程序博客网 时间:2024/05/02 20:46
目录:
- 初始图样
- 如何修改坐标轴的显示范围
- 如何修改坐标轴的标签(内容、大小、字体、颜色、加粗、位置、角度)
- 如何修改坐标轴的刻度标签(内容)
- 如何修改坐标轴的刻度标签(大小、字体、颜色、加粗、位置、角度)
- 如何修改坐标轴的刻度间隔
- 如何去掉网格线
- 如何去掉刻度标签
- 如何去掉刻度线
- 如何去掉外层边框
- 如何再加上X轴、Y轴(无刻度、无标签)
(更多内容请见: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
转载请注明出处,谢谢!(原文链接:http://blog.csdn.net/bone_ace/article/details/47427453)
0 0
- ggplot2——坐标系篇
- ggplot2——主题篇
- ggplot2——图例篇
- ggplot2——柱状图
- ggplot2——饼图篇
- ggplot2——玫瑰图
- R语言ggplot2绘图——柱状图
- ggplot2
- ggplot2
- ggplot2
- ggplot2
- R语言学习笔记——用ggplot2作图
- ggplot2之Layer—— geoms(一)
- ggplot2之Layer—— geoms(二)
- ggplot2之Layer—— geoms(三)
- 终于等到你——ggplot2树状图
- [cocos2dx]概念——坐标系
- cocos2dx基础——坐标系
- leetcode Merge Two Sorted Lists
- 堆区 内存的动态分配和手动释放 重复练习5遍
- HDU 5371 (2015多校联合训练赛第七场1003)Hotaru's problem(manacher+二分/枚举)
- Hdu 3068 Manacher算法求最长回文串长度
- 更新UI方式
- ggplot2——坐标系篇
- 黑马程序员——详细的类的声明和实现
- IOS 本地通知和远程通知
- Zookeeper之观察机制(配置服务)
- POJ 3169 Layout (差分约束)
- SET IDENTITY_INSERT ON 插入数据 指定 主键
- ADAM4015应用笔记
- Android LayoutInflater详解
- httpclient中使用HTTPS的方法