如何用R語言的ggplot2+ggforce包繪制散點(diǎn)圖并添加分組邊界

示例數(shù)據(jù)就直接使用R語言內(nèi)置的鳶尾花數(shù)據(jù)集

使用的是 geom_mark_rect() 函數(shù)

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()

 

使用到的是geom_mark_circle()函數(shù)

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())

 

這里又遇到了一個(gè)新的知識(shí)點(diǎn) coord_cartesian(clip = "off") ，如果加上這一行命令，就能夠讓三個(gè)圓圈在最上層，不加的效果如下圖，顯示不全

參考鏈接是 https://guangchuangyu.github.io/2018/05/ggplot2-clip/

 

用到的是geom_mark_ellipse（）函數(shù)

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())

 

用到的是geom_mark_hull()函數(shù)

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())

這里會(huì)遇到一個(gè)警告信息Warning message: The concaveman package is required for geom_mark_hull需要安裝并加載concaveman這個(gè)包 ··· install.packages("concaveman") library(concaveman) ···

 

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())