温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界

发布时间:2021-11-22 15:55:46 来源:亿速云 阅读:728 作者:柒染 栏目:大数据

本篇文章给大家分享的是有关如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。

今天查找桑基图的资料的时候发现了一份介绍ggforce这个包的使用方法的文章,发现发现添加分组边界还有其他的实现方法,今天的推文记录一下。

示例数据就直接使用R语言内置的鸢尾花数据集

 首先是矩形的分组边界

使用的是 geom_mark_rect() 函数

df<-iris
colnames(df)<-paste0("V",1:5)
library(ggplot2)
library(ggforce)
ggplot(data=df,aes(x=V1,y=V2,color=V5))+
  geom_point()+
  geom_mark_rect(aes(fill=V5),alpha=0.1)+
  theme_bw()
 
如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界  
image.png
 添加圆形的分组边界

使用到的是geom_mark_circle()函数

df<-iris
colnames(df)<-paste0("V",1:5)
library(ggplot2)
library(ggforce)
ggplot(data=df,aes(x=V1,y=V2,color=V5))+
  geom_point()+
  geom_mark_circle(aes(fill=V5),alpha=0.1)+
  theme_bw()+
  coord_cartesian(clip = "off")+
  theme(plot.margin = margin(50,50,50,150),
        legend.background = element_blank())
 
如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界  
image.png

这里又遇到了一个新的知识点 coord_cartesian(clip = "off") ,如果加上这一行命令,就能够让三个圆圈在最上层,不加的效果如下图,显示不全

参考链接是 https://guangchuangyu.github.io/2018/05/ggplot2-clip/

如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界  
image.png
 添加椭圆分组边界

用到的是geom_mark_ellipse()函数

df<-iris
colnames(df)<-paste0("V",1:5)
library(ggplot2)
library(ggforce)
ggplot(data=df,aes(x=V1,y=V2,color=V5))+
  geom_point()+
  geom_mark_ellipse(aes(fill=V5),alpha=0.1)+
  theme_bw()+
  coord_cartesian(clip = "off")+
  theme(plot.margin = margin(10,10,10,50),
        legend.background = element_blank())
 
如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界  
image.png
 最后是无规则形状的分组边界

用到的是geom_mark_hull()函数

df<-iris
colnames(df)<-paste0("V",1:5)
library(ggplot2)
library(ggforce)
#install.packages("concaveman")
library(concaveman)
ggplot(data=df,aes(x=V1,y=V2,color=V5))+
  geom_point()+
  geom_mark_hull(aes(fill=V5),alpha=0.1)+
  theme_bw()+
  coord_cartesian(clip = "off")+
  theme(plot.margin = margin(10,10,10,50),
        legend.background = element_blank())
 

这里会遇到一个警告信息Warning message: The concaveman package is required for geom_mark_hull需要安装并加载concaveman这个包 ··· install.packages("concaveman") library(concaveman) ···

如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界  
image.png
 还可以给每个组添加文字标签,加一个label参数就好了
df<-iris
colnames(df)<-paste0("V",1:5)
library(ggplot2)
library(ggforce)
#install.packages("concaveman")
library(concaveman)
ggplot(data=df,aes(x=V1,y=V2,color=V5))+
  geom_point()+
  geom_mark_ellipse(aes(fill=V5,label=V5),alpha=0.1)+
  theme_bw()+
  coord_cartesian(clip = "off")+
  theme(plot.margin = margin(10,10,10,50),
        legend.background = element_blank())
 
如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界    

以上就是如何用R语言的ggplot2+ggforce包绘制散点图并添加分组边界,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注亿速云行业资讯频道。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI