Linux下R画图使用举例

标签：legend   绘制   first   blog   csv   logs   lis   技术   图例   

从city1.csv, city2.csv, city3.csv, city4.csv中读取数据，并画出折线图。

csv数据如图1

                       a                                                   b          

                                                图1

代码如下：

#读取csv数据

data1=read.csv("city1.csv")

data2=read.csv("city2.csv")

data3=read.csv("city3.csv")

data4=read.csv("city4.csv")

#给图片命名

png(file="city1.jpg")

#绘制第一幅图

plot(data1$runningtime~data1$length,type="o",pch=1,ylim=c(0,5),main="test",xlab="length",ylab="running time",col="blue")

#分别添加图

lines(data2$runningtime~data2$length,type="o",pch=2,col="red")

lines(data3$runningtime~data3$length,type="o",pch=4,col="green")

lines(data4$runningtime~data4$length,type="o",pch=16,col="black")

#制作图例

legend("topright",c("first","second","third","forth"),bty=‘n‘,pch=c(1,2,4,16),lty=1,col=c(‘blue‘,‘red‘,‘green‘,‘black‘))

#保存

dev.off()

结果：

例2：

从city.csv中读取数据，并画出条形图。

csv数据如图2

图2

代码：

#读取csv数据

data1=read.csv("city.csv")

M = as.matrix(data1[,2:5])

png(file="city.jpg")

#画图

barplot(M,col=rainbow(4),ylim=c(0,100),beside=TRUE,legend.text=data1$name,args.legend=list(bty="n",horiz=TRUE))

dev.off()

结果：

Linux下R画图使用举例

标签：legend   绘制   first   blog   csv   logs   lis   技术   图例   

原文地址：http://www.cnblogs.com/qianxingz/p/6913103.html