次のようなデータセットがあります。
年 AL AK AZ AR CA CO 1993 135 153 113 157 718 516 1994 218 154 184 185 845 465 1995 482 846 683 682 863 863
折れ線グラフを時間の経過とともにプロットしたいので、x 軸は年、y 軸はカウント、各線は州になります。年を x 軸に表示するにはどうすればよいですか?
私はこれを実行しています：
data <- read.csv("data.csv", header=T)
plot(data$AL, type="l")
par(new=T)
plot(data$AK, type="l")
.....
上記のものを除いて、x軸は「インデックス」ですが、年にしたいです。
データを時系列として扱うと、ソリューションは非常に簡単になります。
df <- read.table(text="Year AL AK AZ AR CA CO
1993 135 153 113 157 718 516
1994 218 154 184 185 845 465
1995 482 846 683 682 863 863", header=T)
time.series <- ts(df[, -1], start=1993, end=1995)
plot(time.series, main="Toy example")
生産する
単一のパネルが必要な場合は、次のようにします。
plot(time.series, main="Toy example", plot.type="single", col=1:6)
?legend凡例をプロットに配置する方法を知るために読むことをお勧めします。