使用ggplot2包绘制精美的散点图

在数据可视化中，散点图是一种常用且强大的工具，可以帮助我们直观地展示两个变量之间的关系。而R语言中的ggplot2包提供了灵活而强大的功能，使得绘制精美的散点图变得简单而富有表现力。

下面将介绍如何使用ggplot2包来绘制令人印象深刻的散点图：

步骤1：安装和加载ggplot2包

首先，在R环境中确保已经安装了ggplot2包。如果没有安装，可以使用以下命令进行安装：

install.packages("ggplot2")

然后，加载ggplot2包以便可以使用其中的函数和功能：

library(ggplot2)

步骤2：准备数据

接下来，准备你想要绘制散点图的数据。

读取数据并查看：

dat <- read.csv("data1.csv",header = T)

head(dat)

步骤3：创建散点图

使用ggplot()函数创建一个基础的绘图对象，并指定数据来源和变量映射：

# dat是读取的数据框，x和y是要在散点图中显示的变量

ggplot(dat, aes(x=Length, y=Width)) + geom_point() + theme_classic()

步骤4：散点图美化

#修改散点颜色

ggplot(dat, aes(x=Length, y=Width)) + geom_point(color = "blue") + theme_classic()

#使用分类变量着色

ggplot(dat, aes(x=Length, y=Width)) + geom_point(aes(color = Species)) + theme_classic()

#使用连续变量着色

ggplot(dat, aes(x=Length, y=Width)) + geom_point(aes(color = Length))+ theme_classic()

#修改点的大小

#进行统一大小设置

ggplot(dat, aes(x=Length, y=Width)) + geom_point(aes(color = Species),size = 3) + theme_classic()

#设置为连续变量

ggplot(dat, aes(x=Length, y=Width)) + geom_point(aes(color = Species,size = Width))+ theme_classic()

#轴标签和图例位置设置

p <- ggplot(dat, aes(x=Length, y=Width,color = Species)) +

geom_point(aes(color = Species), size = 3) +

labs(x = "xlab", # x轴标签设置

y = "ylab", # y轴标签设置

color = "labs")+ #图例标签设置

theme_classic() + #修改主题

theme(legend.position = "right") #设置图例位置

p

#添加置信椭圆

p + stat_ellipse(aes(color=Species),level = 0.95) #设置置信水平，常用90%、95%或99%

#通过指定分组进行分面展示

p + facet_grid(.~Species, #指定使用"Species"变量来创建行和列的面板

scale = 'free', #设置x轴、y轴刻度为自由缩放

space = 'fixed') + #设置所有面板具有相同的大小

theme_bw()

#添加拟合曲线

#可选拟合方法（method）：

#"lm"线性回归拟合，"glm"广义线性模型拟合

#"gam"广义可加模型拟合， "loess"局部加权散点平滑法拟合，

#"auto"自动选择拟合方法

p + stat_smooth(method = "auto", #线性拟合方法选择，此处为自动选择

se = T, #是否添加置信区间

level = 0.95, #设置置信区间

fill = "grey", #设置置信区间颜色

alpha = 0.4 #置信区间透明度（0~1）

)

#添加相关系数

#可选相关性分析方法

# "pearson", "kendall", "spearman"

cor_method <- "pearson"

p + stat_cor(aes(colour = Species),

method = cor_method)

参考资料：

https://ggplot2.tidyverse.org/reference/ggtheme.html

推荐课程

【课程】微生物比较基因组精品系列课——全套自学必入的系统课程

课程链接：微生物比较基因组精品系列课【全套】

【课程】铜绿假单胞菌基因组研究和分子分型实战

课程链接：铜绿假单胞菌基因组研究和分子分型实战

【课程】微生物比较基因组与群体进化——基因组变异专题研究

课程链接：微生物比较基因组与群体进化

【课程】微生物分子分型-MLST课程——分型全套（含理论、软件、方法）

课程链接：微生物分子分型-MLST课程

【课程】基因组结构分析神器Easyfig实操精品课

课程链接：基因组结构分析神器Easyfig实操精品课

【课程】BRIG绘图——结构比较专题2

课程链接：走进比较基因组，BRIG软件带你轻松玩绘图

【课程】肺炎克雷伯菌基因组学研究综合指南

课程链接：肺炎克雷伯菌基因组学研究综合指南

【课程】微生物基因组生信必学课程

课程链接：微生物基因组生信分析必学课程

【课程】微生物生防菌研究

课程链接：生防菌的系统化研究

专题材料

【资料】耐药专题材料

【资料】生防专题材料

请添加唯那生物技术客服小唯的微信号winnerbio01，备注“耐药专题”或“生防专题”，立马获取。

更多专题推荐

1、生信技能课专辑

2、耐药毒力专题

3、肺炎克雷伯菌专题

4、密码子偏好性专题

5、Easyfig相关问答

6、MLST-cgMLST

7、软件脚本分享

8、微生物基因组研究文章

9、知识干货

10、分泌系统

11、软件下载

12、书籍下载