image.png

之前有人在公眾號留言問這幅圖的實(shí)現(xiàn)辦法，這個是氣泡圖，用ggplot2很方便能夠?qū)崿F(xiàn)，但是這個圖比較特殊的是橫坐標(biāo)還有對應(yīng)的圖片，當(dāng)然出圖以后用其他軟件來編輯是可以實(shí)現(xiàn)的，但是對齊之類的可能會比較麻煩。如果能用代碼實(shí)現(xiàn)就能節(jié)省一些時間，正好最近看到一個ggplot2的擴(kuò)展包 叫做 ggimg 對應(yīng)的github的主頁是 https://github.com/statsmaths/ggimg

下面我們就來試試能不能用這個包來實(shí)現(xiàn)推文開頭的圖

首先第一步是安裝ggimg

install.packages("ggimg")

接下來我們運(yùn)行一個簡單的小例子

我將三張圖片放到了當(dāng)前目錄下的 ggimg_example 文件夾下

代碼

library(ggimg)
library(ggplot2)

ggplot()+
  geom_point_img(data=df,
                 aes(x=x,y=y,img=img),
                 size=5)+
  scale_x_continuous(limits = c(0.5,3.5))+
  theme_minimal()

image.png

接下來我們把職業(yè)生涯三分命中率的數(shù)據(jù)加進(jìn)來用來做氣泡圖

結(jié)果如下

image.png

代碼

df1<-data.frame(x=c("davisan","james","westbru"),
                y=c(31.2,34.5,30.5),
                img=list.files(path = "ggimg_example/",full.names = T))
df1
pdf(file = "ggimg_example/ggimg.pdf",
    width = 10,height = 8)
ggplot()+
  geom_point(data=df1,aes(x=x,y=y,size=y),
             fill="grey80",color="black",shape=21)+
  scale_size_continuous(range = c(5,15))+
  scale_y_continuous(limits = c(30,35),
                     expand = c(0,0))+
  theme_bw()+
  theme(plot.margin = unit(c(0.1,0.5,5,0.5),'cm'),
        axis.text.x = element_text(vjust=-1,
                                   angle = 60,
                                   size=20),
        axis.title = element_blank(),
        legend.position = "top",
        legend.title = element_blank())+
  geom_point_img(data=df1,aes(x=x,y=30,
                              img=img),
                 size=2,
                 vjust = 1)+
  coord_cartesian(clip = "off")
dev.off()

結(jié)束語：不知道威少搭配詹姆斯最后能出一個什么效果，之前記得有一個記錄是 同一個隊一場比賽中兩個人同時拿三雙 這個記錄應(yīng)該能被威少和詹姆斯預(yù)定了吧 哈哈哈哈

示例數(shù)據(jù)和代碼直接在后臺回復(fù) 20210730就可以獲取了

歡迎大家關(guān)注我的公眾號

小明的數(shù)據(jù)分析筆記本

小明的數(shù)據(jù)分析筆記本 公眾號 主要分享：1、R語言和python做數(shù)據(jù)分析和數(shù)據(jù)可視化的簡單小例子；2、園藝植物相關(guān)轉(zhuǎn)錄組學(xué)、基因組學(xué)、群體遺傳學(xué)文獻(xiàn)閱讀筆記；3、生物信息學(xué)入門學(xué)習(xí)資料及自己的學(xué)習(xí)筆記！