请高手帮忙看下，
1作出来左边图的纵轴刻度值完全看不清楚，怎样才能让左边图片刻度值显示完整？刚刚还发现所有的横轴标签也没显示出来？？
2.怎样给整个图片添加总标题？
数据见附件（需转成csv格式的，论坛不能上传csv格式文件）；结果图片也附上了
谢谢指出！
- data=read.csv("Energy1978-2014.csv")
- png(file="DetailedEnergyConsumtion&Production.png",bg="transparent")
- mypar<-par(mfrow=c(4,2))
- par(bg="transparent",mar=c(3,1.5,3,1.5))
- (plot(data$Time,data$Coal.Consumtion,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国煤消费情况",lab=c(45,12,45),col="blue"))
- (plot(data$Time,data$Coal.Production,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国煤生产情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Oil.Consumtion,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国石油消费情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Oil.Production,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国石油生产情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Gas.Consumtion,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国天然气消费情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Gas.Production,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国天然气生产情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Hydropower.Nuclear.Wind.Power.Consumtion,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国水电风能核电消费情况",lab=c(45,12,5),col="blue"))
- (plot(data$Time,data$Hydropower.Nuclear.Wind.Power.Production,type="l",xlab="年份",ylab="数量（万吨标准煤）",main="1978-2013中国水电风能核电生产情况",lab=c(45,12,5),col="blue"))
- par(mypar)
- dev.off()
- q()
|
熟悉论坛请点击新手指南
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
