一桁の数の足し算

2019年11月26日の「教えてもらう前と後」で，森泉が一桁の数の足し算を，指を折って数えていた。

なんだ？

ggplot って，わかりやすいか？

> df
    X201712   X20179   X20176   X20173
1  2162.745 2036.316 1793.168 1678.194
2  1581.986 1495.297 1281.766 1226.616
3  1143.032 1108.101  925.298  902.693
4   836.968  817.646  679.068  668.446
5   676.804  663.970  558.435  537.628
6   712.729  725.687  650.542  552.044
7  1056.405 1107.861 1010.313  803.315
8  1664.747 1619.393 1514.746 1212.838
9  1739.635 1673.636 1463.130 1326.943
10 1597.848 1606.490 1321.743 1321.118
11 1707.481 1707.944 1392.699 1437.330
12 1832.635 1805.433 1464.927 1545.510

というデータフレームを可視化しようとして

A2<-melt(monday[,c(3:7)],id="c(1:168)",mesure=c("X201712","X20179","X20176","X20173")) ggplot(A2,aes(x=A2$"c(1:168)",y=value,fill=variable,gropu=1))+
    geom_bar(stat="identity",position="dodge")

ってやったら，以下のような図になったそうだ。

「y軸の値が0からではなくなぜか1010ぐらいから始まってしまった。」って書いてあったが，縦軸の目盛りをよく見たら，とてもおかしなことになっている。

普通に

> matplot(df, type="b", pch=19, cex=0.7, ylim=c(0, max(df)))
> legend("bottomright", colnames(df), pch=19, col=1:4, cex=0.7)

って描いたら綺麗な図になった。