R语言绘制多数据系列散点图

「已注销」

已于 2023-08-08 15:11:16 修改

阅读量1.4k

点赞数 1

分类专栏： r语言可视化可视化文章标签： r语言开发语言

于 2022-11-23 20:16:01 首次发布

本文链接：https://blog.csdn.net/m0_38127487/article/details/128006918

版权

可视化同时被 2 个专栏收录

526 篇文章 19 订阅

订阅专栏

r语言可视化

153 篇文章 7 订阅

订阅专栏

library(ggplot2)
library(RColorBrewer)
library(ggrepel)
attach(mtcars)

 #-------------------------------(c) 带数据标签的气泡图-------------------------------------------------------------

 ggplot(data=mtcars, aes(x=wt,y=mpg))+
   geom_point(aes(size=disp,fill=disp),shape=21,colour="black",alpha=0.8)+
   scale_fill_gradient2(low="#377EB8",high="#E41A1C",midpoint = mean(mtcars$disp))+
   geom_text_repel(label = disp )+
   scale_size_area(max_size=12)+
   guides(size = guide_legend((title="Value")),
          fill = guide_legend((title="Value")))+
   theme(
     legend.text=element_text(size=10,face="plain",color="black"),
     axis.title=element_text(size=10,face="plain",color="black"),
     axis.text = element_text(size=10,face="plain",color="black"),
     legend.position = "right"
   )

在这里插入图片描述

ggplot(mtcars, aes(wt,mpg))+
  geom_point(aes(size=disp,fill=disp),shape=22,colour="black",alpha=0.8)+
  scale_fill_gradient2(low=brewer.pal(7,"Set1")[2],high=brewer.pal(7,"Set1")[1],
                       midpoint = mean(mtcars$disp))+
  scale_size_area(max_size=12)+
  guides(fill = guide_legend((title="Value")),
         size =  guide_legend((title="Value")))+
  theme(
    text=element_text(size=15,color="black"),
    plot.title=element_text(size=15,family="myfont",face="bold.italic",color="black")#,
    #legend.position=c(0.9,0.05)
  )