ggplot的绘图风格

可视化百度云资料链接为：
链接：https://pan.baidu.com/s/1WKwdbc0VNN7GSISEJqzY7w
提取码：n5uc

散点图的绘制风格

library(ggplot2)
install.packages("wesanderson")
library(wesanderson)
ggplot(iris,aes(Sepal.Length, Petal.Length, fill= Species))+
  geom_point(size=3.5,shape=21,colour="black") +
  scale_fill_manual(values=wes_palette(n=3, name="Darjeeling1"))+
  theme_light()

在这里插入图片描述

分栏

setwd("C:\\Users\\Administrator\\Desktop\\R_visualization")
library(ggplot2)
df<-read.csv("Data.csv", header = TRUE)
p1<-ggplot(df, aes(x=SOD,y=tau,size=age)) + 
  geom_point(shape=21,color="black",fill="#336A97",stroke=0.25)
p2<-ggplot(df, aes(SOD,tau,fill=age,size=age)) + 
  geom_point(shape=21,colour="black",stroke=0.25,
             alpha=0.8) 
p3<-ggplot(df, aes(x=SOD,y=tau,fill=Class)) + 
  geom_point(shape=21,size=3,colour="black",stroke=0.25)
p4<-ggplot(df, aes(SOD,tau,fill=Class,size=age)) + 
  geom_point(shape=21,colour="black",stroke=0.25,
             alpha=0.8) 
library(gridExtra) 
grid.arrange(p1,p2,p3,p4, ncol = 2, nrow =2)

在这里插入图片描述

字体设置

library(ggplot2)
install.packages("Cairo")
install.packages("showtext")
library(Cairo)
library(showtext)
df <- expand.grid(x = seq(0,1,length.out = 4), y= seq(0,1,length.out = 3))
df$fontface <-rep(c("plain", "bold", "italic", "bold.italic"),3)
df$family<-rep(c("sans", "times",  "mono"),each=4)
df$label<-paste(df$family,"\n ",df$fontface)
#CairoPDF(file="×ÖÌåÍ¼.pdf",width=4.67,height=4.36)
#showtext.begin()
ggplot(df, aes(x, y)) +
  geom_text(aes(label = label, fontface = fontface,family=family),size = 4) +
  xlim(-0.2,1.3)+
  ylim(-0.2,1.2)

在这里插入图片描述

度量调整效果

library(ggplot2)
library(RColorBrewer)
df<-read.csv("Data.csv", header = TRUE)
p1<-ggplot(df, aes(x=SOD,y=tau,size=age)) + 
  geom_point(shape=21,color="black",fill="#E53F2F",stroke=0.25,alpha=0.8)+
  scale_size(range = c(1, 8))
p2<-ggplot(df, aes(SOD,tau,fill=age,size=age)) + 
  geom_point(shape=21,colour="black",stroke=0.25,
             alpha=0.8)+
  scale_size(range = c(1, 8))+
  scale_fill_distiller(palette="Reds")
p3<-ggplot(df, aes(x=SOD,y=tau,fill=Class,shape=Class)) + 
  geom_point(size=3,colour="black",stroke=0.25)+
  scale_fill_manual(values=c("#36BED9","#FF0000","#FBAD01"))+
  scale_shape_manual(values=c(21,22,23))
p4<-ggplot(df, aes(SOD,tau,fill=Class,size=age)) + 
  geom_point(shape=21,colour="black",stroke=0.25,
             alpha=0.8) +
  scale_fill_manual(values=c("#36BED9","#FF0000","#FBAD01"))+
  scale_size(range = c(1, 8))
library(gridExtra) 
grid.arrange(p1,p2,p3,p4, ncol = 2, nrow =2)