【学习笔记】R语言生成相应的图片并且保存到本地

rm(list=ls())
setwd("D:/Desktop/Rwork/cylinder stress files/BC5465CB4772_2021-08-09_08-17")
getwd()

library(lubridate)
library(ggplot2)

mydata <- read.csv("mydata.csv", header = TRUE, encoding = "UTF-8")
dt <- mydata[which(mydata$BoomRest <1),]
#2号油缸数据读取
d <- dt[which(dt$Arm1Arm2An <=185),]
S2<-ggplot(data = d, 
           mapping = aes(
             x=Arm1Arm2An, 
             y=Arm2Wugan))+
  geom_point(color="blue",alpha=0.01)+
  geom_point(aes(y=-Arm2Yougan),color="red",alpha=0.01)+
  labs(title = "7-11月份油缸2压力分布图")+
  geom_hline(aes(yintercept=26),linetype = "dashed")+
  geom_hline(aes(yintercept=32),linetype = "dashed")+
  geom_hline(aes(yintercept=0),linetype = "solid")+ 
  geom_hline(aes(yintercept=-26),linetype = "dashed")+
  geom_hline(aes(yintercept