传统上代码:
#载入数据&加载包
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(