【学习笔记】R语言生成热力图和箱体图，并且拼接在一起

传统上代码：

#载入数据&加载包
library(ggplot2)
library(grid)
library(patchwork)
library(RColorBrewer)
mydata <- read.csv("mydata_BoomNoRest.csv", header = TRUE, encoding = "UTF-8")
palette <- brewer.pal(11,"RdYlBu")[c(1,11)]


#画臂架1臂架2角度和油缸2有杆腔压力的关系

AngleStress2 <- ggplot(data = mydata, 
                       mapping = aes(
                         x=Arm1Arm2An, 
                         y=Arm2Wugan))+
  geom_hline(aes(yintercept=26),linetype = "dashed")+
  stat_bin_2d(binwidth = c(.8,.8))+
  scale_fill_gradientn(colours = rev(palette),limits=c(0,350),
                       breaks=c(0,50,100,150,200,250,300,350),
                       labels=c('0','50','100','150','200','250','300','350'))+
  guides(fill=guide_colorbar(title = "频数",title.hjust = 0))+
  scale_x_continuous(