安装、加载包
#设置工作环境
rm(list=ls())
setwd("D:\\桌面\\ggplot2添加图例及图例相关设置")
#加载包
# install.packages("ggpubr")
# install.packages('ggplot2')
# install.packages('reshape2')
#加载包
library(ggpubr)
library(ggplot2)
library(reshape2)
加载数据并绘图
#读取数据
df <- read.table(file="Genus.txt",sep="\t",header=T,check.names=FALSE,row.names = 1)
#转换数据
df$Tax=rownames(df)
df1=melt(df)
colnames(df1)=c("Tax","Samples","value")
#绘图
p <- ggplot(df1, aes(x = Samples, y = Tax, size = value, color=Samples)) +
geom_point(aes(size=value))+
theme(panel.background = element_blank(),
panel.grid.major = element_line(color = "gray"),#网格线条颜色
panel.border = element_rect(color="black",fill=NA))#边框色
p
image.png
图例设置
1、图例关闭——三种方法
p+theme(legend.position = 'none')#关闭全部图例
image.png
p+guides(color='none')#关闭部分图例，如图例中散点颜色的部分图例
p+scale_color_discrete(guide='none')#关闭部分图例，如图例中散点颜色的部分图例
image.png
2、图例位置，可以通过theme中的legend.position函数控制图例位置
p+theme(legend.position = 'top')#控制图例放置在图中上下左右（'top','bottom','right','left'）
image.png
p+theme(legend.position = c(0.95,0.6))#通过设置位置坐标控制图例位置，范围为0~1
image.png
3、图例方向——通过legend.direction函数或者guides中的guide_legend控制：
p+theme(legend.direction = 'horizontal')#有垂直与竖直两种方向，‘horizontal’，‘vertical’
image.png
#精准设置
p+guides(color=guide_legend(ncol = 3,#根据ncol或者nrow设置图例显示行数或列数（设置一个即可）
byrow = T,#默认F，表示按照列填充
reverse = T))#默认F，表示升序填充，反之则降序
image.png
4、图例标题去除——三种方式
p+theme(legend.title = element_blank())#删除所有图例
image.png
p+labs(color=NULL)#删除所有图例
p+scale_color_discrete(name=NULL)#只删除部分图例
image.png
5、图例符号周围区域大小及符号本身大小设置
p+theme(legend.key.size = unit(20,"point"))#增加符号周围的区域
image.png
p+guides(color = guide_legend(override.aes = list(size = 5)))#改变符号大小
image.png
6、图例框的填充颜色
p+theme(legend.key = element_rect(fill = 'green'))
image.png
7、自定义图例标签顺序——通过将数据中的相应列数据转换为factor型数据进而调整显示顺序
df1$Samples=factor(df1$Samples,levels = c('B','A','D','C','F','G','H','I','J','E','K'))#定义顺序
ggplot(df1, aes(x = Samples, y = Tax, size = value, color=Samples)) +
geom_point(aes(size=value))+
theme(panel.background = element_blank(),
panel.grid.major = element_line(color = "gray"),#网格线条颜色
panel.border = element_rect(color="black",fill=NA))#边框色
image.png
