這篇文章主要講解了“用R語言怎么畫氣泡圖”，文中的講解內(nèi)容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“用R語言怎么畫氣泡圖”吧！
成都創(chuàng)新互聯(lián)服務項目包括漳州網(wǎng)站建設、漳州網(wǎng)站制作、漳州網(wǎng)頁制作以及漳州網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，漳州網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到漳州省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！
部分數(shù)據(jù)集如下
總共4列
前面的變量需要注意的是，因為只畫上三角，所以準備數(shù)據(jù)的時候是 ：
總共的變量是10個 第一列10個x1，接下來是緊接著9個x2,然后是8個x3
重慶分公司
重慶分公司
df<-read.csv("20210320.csv",header=T)
head(df)
library(dplyr)
df%>%
mutate(label=case_when(
signi<0.001 ~ "***",
signi>0.001&signi<0.01 ~ "**",
signi>0.01&signi<0.05 ~ "*",
TRUE ~ ""
)
) -> df1
首先是上三角的氣泡圖
library(ggplot2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
geom_point(aes(size=value,color=value))+
scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
breaks=seq(-1,1,0.2))+
scale_size_continuous(range = c(5,15))+
guides(size=F)
這樣的話X10的位置是不對的，所以要設置一下因子的水平
df1$var_x<-factor(df1$var_x,
levels = paste0("X",1:10))
df1$var_y<-factor(df1$var_y,
levels = paste0("X",1:10))
ggplot(data=df1,aes(x=var_x,y=var_y))+
geom_point(aes(size=value,color=value))+
scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
breaks=seq(-1,1,0.2))+
scale_size_continuous(range = c(5,15))+
guides(size=F)
這樣就對了
接下來是添加文字，首先把對角線那一列去掉
df1%>%
filter(var_x!=var_y) -> df2
head(df2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
geom_point(aes(size=value,color=value))+
scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
breaks=seq(-1,1,0.2))+
scale_size_continuous(range = c(5,15))+
guides(size=F)+
theme_bw()+
geom_text(data=df2,aes(x=var_y,y=var_x,
label=paste0(value,label)))
最后調(diào)整一下圖例的高度
df1%>%
filter(var_x!=var_y) -> df2
head(df2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
geom_point(aes(size=value,color=value))+
scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
breaks=seq(-1,1,0.2))+
scale_size_continuous(range = c(5,15))+
guides(size=F)+
theme_bw()+
geom_text(data=df2,aes(x=var_y,y=var_x,
label=paste0(value,label)))+
theme(legend.key.height = unit(3.5,'cm'),
legend.justification = c(0,0),
legend.title = element_blank())
感謝各位的閱讀，以上就是“用R語言怎么畫氣泡圖”的內(nèi)容了，經(jīng)過本文的學習后，相信大家對用R語言怎么畫氣泡圖這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是創(chuàng)新互聯(lián)，小編將為大家推送更多相關知識點的文章，歡迎關注！
