setwd("C:/Users/chengdehe/Desktop/paper/自动核磁")
library(tidyr)
library(ggplot2)
数据格式
########TW=500
data <- read.table("clipboard",header=T,sep='\t',check.names=F)
plotdata <- gather(data, key = moisture, value = range, 2:8)
p1 <- ggplot(plotdata,aes(x=moisture,y=range,fill=累加次数))+
geom_bar(position="dodge",stat="identity")+
xlab("含水率%") + ylab("极差") + labs(fill="累加次数",title="TW=500")+
theme_classic()
#########TW=1000
data <- read.table("clipboard",header=T,sep='\t',check.names=F)
plotdata <- gather(data, key = moisture, value = range, 2:8)
p2 <- ggplot(plotdata,aes(x=moisture,y=range,fill=累加次数))+
geom_bar(position="dodge",stat="identity")+
xlab("含水率%") + ylab("极差") + labs(fill="累加次数",title="TW=1000")+
theme_classic()
#########TW=1500
data <- read.table("clipboard",header=T,sep='\t',check.names=F)
plotdata <- gather(data, key = moisture, value = range, 2:8)
p3 <- ggplot(plotdata,aes(x=moisture,y=range,fill=累加次数))+
geom_bar(position="dodge",stat="identity")+
xlab("含水率%") + ylab("极差") + labs(fill="累加次数",title="TW=1500")+
theme_classic()
#########TW=2000
data <- read.table("clipboard",header=T,sep='\t',check.names=F)
plotdata <- gather(data, key = moisture, value = range, 2:8)
p4 <- ggplot(plotdata,aes(x=moisture,y=range,fill=累加次数))+
geom_bar(position="dodge",stat="identity")+
xlab("含水率%") + ylab("极差") + labs(fill="累加次数",title="TW=2000")+
theme_classic()
##创建画布
##install.packages("customLayout")
library(customLayout)
mat <- matrix(1:4,ncol=2)
widths <-c(1,1)
heights <-c(1,1)
pl <-lay_new(mat,widths,heights)
#将图片放入画布
lay_grid(list(p1,p2,p3,p4),pl)
结果