两种输出图片的方式 R 语言编写

最新推荐文章于 2023-11-06 22:49:24 发布

原创最新推荐文章于 2023-11-06 22:49:24 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#R 数据分析数据挖掘 #ggplot2

本文介绍了一种使用R语言进行数据可视化的方法，包括利用ggplot2包绘制工作时间和功率之间的关系图，并通过去除重复数据来优化图表展示效果。此外，还展示了如何创建点图并保存为JPEG文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

给自己保留的。。。。如果你无意中看到，希望对你有用

library(RMySQL)

library(ggplot2)
conn<-dbConnect(MySQL(),group='kettle')
sql<-"select * from eslPower";
stmt<-dbSendQuery(conn,sql)
mydata<-fetch(stmt,n=-1)
things_id<-mydata[,'things_id']

things_id<-things_id[!duplicated(things_id)]

showpictureInggplot2<-function(x){
dataESL<-mydata[mydata[,'things_id']==things_id[x],]
dataESL<-dataESL[,c('work_time','power')]
dataESL<-dataESL[!duplicated(dataESL[,'power']),]

ggplot(aes(x=work_time,y=power),data=dataESL)+geom_point()+theme(axis.text.x=element_text(angle=-90,size=8))
ggsave(filename=paste("Rplog",x,".jpeg",sep=""),width=10,height=10,units="cm")

}

showpictureInDotChat<-function(x){
dataESL<-mydata[mydata[,'things_id']==things_id[x],]
dataESL<-dataESL[,c('work_time','power')]
dataESL<-dataESL[!duplicated(dataESL[,'power']),]
power<-dataESL[,'power']
time<-dataESL[,'work_time']
names(power)<-dataESL[,'work_time']
jpeg(filename=paste("dotchart",x,".jpeg",sep=""),width=480,heigh=400,units="px",pointsize=12,quality=75,bg="white")
dotchart(power,cex=0.7)
dev.off()

}
for(i in 1:150){
showpictureInggplot2(i)

}
showpictureInggplot2(1)
showpictureInDotChat(2)