顔妻です。
今回は縦棒グラフと折れ線グラフを組み合わせて２軸を使ったグラフの作り方です。
| date | sales | temperature |
| 2019/10/1 | 2066 | 25.8 |
| 2019/10/2 | 751 | 24.2 |
| 2019/10/3 | 978 | 23.2 |
| 2019/10/4 | 1244 | 25.2 |
| 2019/10/5 | 1531 | 24.8 |
| 2019/10/6 | 2260 | 23.2 |
| 2019/10/7 | 1747 | 25.3 |
| 2019/10/8 | 1399 | 24.1 |
| 2019/10/9 | 1351 | 23.2 |
| 2019/10/10 | 1363 | 25.8 |
| 2019/10/11 | 780 | 24.8 |
| 2019/10/12 | 2137 | 23.5 |
| 2019/10/13 | 876 | 25.6 |
| 2019/10/14 | 1425 | 22.8 |
データインポート
# データインポート（ページのデータをコピーしてください） ##
library(clipr)
d <- read_clip_tbl()
グラフ作成
# 一つ目のグラフ作成
plot(
type = “l”,
x = d$temperature,
col = “red”,
ylab = “temperrature”,
main = “2 axis plot”
)
# グラフの重ねがけをOKにする
par(new = T)
# 二つ目のグラフ作成
plot(
d$sales
, type = “l”
, ylab = “”
, col = “blue”
, axes = F
)
# 二つ目のグラフの軸を右側に持たせる。
axis(4) # 「4」が右側の意味
まとめ
データのグラフ表現には上記のようなグラフを重ね合わせるような方法もあります。ちなみにこのグラフをRで作ることはあまりオススメしませんので必要なときはExcelで作るのがいいと思います。またグラフの種類には構成比の比較に向いた帯グラフといった方法もありますので是非調べてみてください。
