R语言可视化（八）

布满荆棘的人生 2023-06-28 06:11 43阅读 0赞

# ggplot2散点图可视化 #

## 数据读取 ##

library(ggplot2)

df<-read.csv(“Data.csv”, header = TRUE)

## 散点可视化 ##

library(RColorBrewer)
    
    ggplot(df, aes(x=SOD,y=tau,fill=Class)) + 
      geom_point(shape=21,size=3,colour="black",stroke=0.25) +
      scale_fill_brewer(palette='Set1')+
      theme(
        text=element_text(size=14,color="black"),
        plot.title=element_text(size=14,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.8,0.15)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]

library(viridis)
    ggplot(df, aes(x=SOD,y=tau,fill=Class)) + 
      geom_point(shape=21,size=3,colour="black",stroke=0.25) +
      scale_fill_viridis(option = "plasma",discrete =TRUE)+
      theme(
        text=element_text(size=14,color="black"),
        plot.title=element_text(size=14,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.8,0.15)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]

library(wesanderson)
    ggplot(df, aes(x=SOD,y=tau,fill=Class)) + 
      geom_point(shape=21,size=3,colour="black",stroke=0.25) +
      scale_fill_manual(values=wes_palette("Darjeeling1")[c(1,3,5)])+
      theme(
        text=element_text(size=14,color="black"),
        plot.title=element_text(size=14,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.8,0.15)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]

ggplot(df, aes(x=SOD,y=tau,fill=Class)) + 
      geom_point(shape=21,size=3,colour="black",stroke=0.25) +
      scale_fill_manual(values=c("#E7298A","#66A61E","#E6AB02"))+
      theme(
        legend.background = element_blank(),
        legend.position=c(0.8,0.15)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 3]

ggplot(df, aes(x = tau, y = SOD, fill=age)) +
      geom_point(shape=21,size=4,colour="black",alpha=0.95) +
      scale_fill_distiller(palette="RdYlBu")+
      theme(
        text=element_text(size=15,color="black"),
        plot.title=element_text(size=15,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.85,0.2)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 4]

ggplot(df, aes(x = tau, y = SOD, fill=age)) +
      geom_point(shape=21,size=4,colour="black",alpha=0.95) +
      scale_fill_viridis(option = "viridis",discrete =FALSE)+
      theme(
        text=element_text(size=15,color="black"),
        plot.title=element_text(size=15,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.85,0.2)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 5]

ggplot(df, aes(x = tau, y = SOD, fill=age)) +
      geom_point(shape=21,size=4,colour="black",alpha=0.95) +
      scale_fill_gradient2(low="#00A08A",mid="white",high="#FF0000",midpoint = mean(df$age))+
      theme(
        text=element_text(size=15,color="black"),
        plot.title=element_text(size=15,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.85,0.2)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 6]

ggplot(df, aes(x = tau, y = SOD, fill=age)) +
      geom_point(shape=21,size=4,colour="black",alpha=0.95) +
      scale_fill_gradientn(colors= terrain.colors(10))+
      theme(
        text=element_text(size=15,color="black"),
        plot.title=element_text(size=15,family="myfont",face="bold.italic",hjust=.5,color="black"),
        legend.background = element_blank(),
        legend.position=c(0.85,0.2)
      )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 7]

参考资料1：[https://github.com/EasyChart/Beautiful-Visualization-with-R/][https_github.com_EasyChart_Beautiful-Visualization-with-R]

参考资料2：[https://blog.csdn.net/tandelin/article/details/87719623][https_blog.csdn.net_tandelin_article_details_87719623]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20200107172131986.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20200107172157477.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20200107172218548.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 3]: https://img-blog.csdnimg.cn/20200107172238352.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 4]: https://img-blog.csdnimg.cn/20200107172259285.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 5]: https://img-blog.csdnimg.cn/20200107172328280.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 6]: https://img-blog.csdnimg.cn/20200107172354912.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 7]: https://img-blog.csdnimg.cn/20200107172416328.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[https_github.com_EasyChart_Beautiful-Visualization-with-R]: https://github.com/EasyChart/Beautiful-Visualization-with-R/
[https_blog.csdn.net_tandelin_article_details_87719623]: https://blog.csdn.net/tandelin/article/details/87719623