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
【学习笔记】R语言生成相应的图片并且保存到本地
最新推荐文章于 2024-06-11 17:51:58 发布
本文记录了如何使用R语言进行数据可视化,并将生成的图表保存到本地。通过实例展示了R语言强大的绘图功能。
摘要由CSDN通过智能技术生成