(0)加載數據
data<-read.csv("E:\\MyDocument\\p\\Data\\1950~2010火災情況.csv")
x=t(data[1])
y=t(data[2])
z=t(data[3])
w=t(data[4])
maxy=max(y)
maxz=max(z)maxw=max(w)
(1)將火災數、直接損失、死傷人數，分別按年份作圖
plot(x,y,type="o",xlab="年份",ylab="火災(起)",ylim=c(0,maxy),col="red",main="1950年到2010年火災年度統計",pch=c(15))
plot(x,z,type="o",xlab="年份",ylab="經濟損失(萬元)",ylim=c(0,maxz),col="blue",main="1950年到2010年火災經濟損失年度統計",pch=c(16))
plot(x,w,type="o",xlab="年份",ylab="死傷人數",ylim=c(0,maxw),col="green",main="1950年到2010年火災死傷人數年度統計",pch=c(17))
注：x,y為圖中的x軸和y軸,type設置圖形中數據的顯示類型，常見的有：
type="p " 在圖形中數據顯示為點；
type="l " 在圖形中數據顯示為線；
type="b" 在圖形中數據顯示為點和連接線；
type="o" 在圖形中數據點覆蓋在線上；
type="h" 在圖形中數據顯示為從點到x軸的垂直線；
type="s" 在圖形中數據顯示為階梯圖；
type="n"在圖形中數據不顯示；
xlab和ylab分別表示x軸和y軸的說明，ylim為控制y軸的范圍，col為線條的顏色，main為圖的主標題，pch為數據點的顯示符號，可取1到25的整數以及“”中的符號：
(2)將火災數、直接損失、死傷人數畫在一個圖里
> plot(x,y,type="o",xlab="年份",ylab="",ylim=c(0,maxy),col="red",main="1950年到2010年火災年度統計",pch=c(15)) #畫火災數曲線
(3)增加加圖列
legend("topleft",c("火災(起)","經濟損失(萬元)","死傷人數"),col=c("red","blue","green"),pch=15:17)
