之前的推文 跟著Nature microbiology學(xué)畫(huà)圖~R語(yǔ)言ggplot2畫(huà)氣泡圖 有人問(wèn)到如何將圖例的 實(shí)心點(diǎn) 改為 空心點(diǎn) 性湿，當(dāng)時(shí)我自己也不知道，第二天他自己搞定了满败，并且把實(shí)現(xiàn)代碼發(fā)給了我肤频，在這里記錄一下如何實(shí)現(xiàn)

常規(guī)氣泡圖的圖例

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

library(ggplot2)
colnames(iris)
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(size=Petal.Length,color=Species))+
  guides(color=F)+
  scale_size_continuous(range = c(5,10),
                        breaks = c(2,4,6))

image.png

image.png

那如何變成如上這種空心的圓呢？

我開(kāi)始想復(fù)雜了算墨，以為需要去圖例相關(guān)的參數(shù)里進(jìn)行設(shè)置宵荒，原來(lái)直接更改點(diǎn)的形狀就好了，給shape參數(shù)設(shè)置成21就好了

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(size=Petal.Length,color=Species),
             shape=21)+
  guides(color=F)+
  scale_size_continuous(range = c(5,10),
                        breaks = c(2,4,6))

image.png

這樣的話圖上的點(diǎn)也都變成空心的了净嘀，如果想把圖上的點(diǎn)設(shè)置成實(shí)心的报咳，就再增加一個(gè)fill參數(shù)就好了

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(size=Petal.Length,
                 color=Species,
                 fill=Species),
             shape=21)+
  guides(color=F,fill=F)+
  scale_size_continuous(range = c(5,10),
                        breaks = c(2,4,6))

image.png

這里還可以看到圖例是帶灰色背景的，如果想要去掉怎么辦呢挖藏？答案是在主題里設(shè)置legend.key參數(shù)

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(size=Petal.Length,
                 color=Species,
                 fill=Species),
             shape=21)+
  guides(color=F,fill=F)+
  scale_size_continuous(range = c(5,10),
                        breaks = c(2,4,6))+
  theme(legend.key = element_blank())

image.png

這里的key對(duì)應(yīng)的中文意思是什么呢少孝？

image.png

添加橢圓的分組邊界

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

ggplot(data=iris,aes(x=Sepal.Length,
                     y=Sepal.Width,
                     color=Species))+
  geom_point()+
  theme(legend.key = element_blank())+
  stat_ellipse(aes(x=Sepal.Length,
                   y=Sepal.Width,
                   color=Species,
                   fill=Species),
                   geom = "polygon",
                   alpha=0.5)

image.png

添加圓形的分組邊界

用到的是ggforce這個(gè)包里的geom_circle()函數(shù)

library(ggplot2)
library(ggforce)
colnames(iris)
ggplot()+
  geom_point(data=iris,aes(x=Sepal.Length,
                           y=Sepal.Width,
                           color=Species))+
  theme(legend.key = element_blank(),
        panel.background = element_blank(),
        panel.border = element_rect(color="black",
                                    fill = "transparent"))+
  geom_circle(aes(x0=5,y0=3.5,r=1),
              fill="blue",
              alpha=0.2,
              color="red")+
  xlim(2,8)+
  ylim(2,8)+
  geom_circle(aes(x0=7,y0=3,r=1),
              fill="green",
              alpha=0.2,
              color="red")

image.png

歡迎大家關(guān)注我的公眾號(hào)
小明的數(shù)據(jù)分析筆記本