R语言 (温度 随时间变化)

数据是某一天24小时的室外温度变化。我们来尝试对数据进行可视化操作。
代码如下：

temp<-c(7,7,7,7,7,8,8,9,9,10,12,16,17,16,14,12,11,10,10,9,9,9,8,7)
time<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
plot(time,temp)

我们可以看到，R语言将两行数据以时间time为横坐标，温度temp为纵坐标的图表绘制出来。

 

如，图中只是凌乱的散点图，而对于一天的温度来说，变化才是最直白的反应，所以我们在函数中增加参数type=“o”来修改数据展示方式。代码如下：

plot(time,temp,type=”o”)

temp<-c(7,7,7,7,7,8,8,9,9,10,12,16,17,16,14,12,11,10,10,9,9,9,8,7)
time<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
plot(time,temp,type="o")

但这一点点的修改显然是不够的，我们看到图中横纵坐标轴的标度不是很合适，我们要尽量显示更多地时刻，所以我们尝试继续修改。代码如下：

plot(time,temp,type=”o”,xaxt=”n”)
axis(side=1,at=time,labels=time)

temp<-c(7,7,7,7,7,8,8,9,9,10,12,16,17,16,14,12,11,10,10,9,9,9,8,7)
time<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
plot(time,temp,type="o",xaxt="n")
axis(side = 1,at=time,labels = time)

运行结果：

我们可以尝试进一步对绘制的图表进行修饰。
代码如下：

plot(time,temp,col=”red”,lwd=2,type=”o”,xaxt=”n”,yaxt=”n”,main=”time&temperature”,xlab=”time”,ylab = “temperature(°C)”)
axis(side=1,at=time,labels=time)
axis(side=2,at=7:18,labels=7:18)
grid(lwd=1,lty=2)

temp<-c(7,7,7,7,7,8,8,9,9,10,12,16,17,16,14,12,11,10,10,9,9,9,8,7)
time<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
plot(time,temp,col="red",lwd=2,type="o",xaxt="n",yaxt="n",main="time&temperature",xlab="time",ylab = "temperature(°C)")
axis(side=1,at=time,labels=time)
axis(side=2,at=7:18,labels=7:18)
grid(lwd=1,lty=2)