2020年10月10日 (土曜日)

10:27:39 # Life ふるさと納税が届くまでの日数ってどれくらいなんだろうとおもって手元のデータでグラフを作ってみた。 手慣れたRでやってみた。まず適当にデータを生成してCSVにする。

days
21
21
20
234
231
以下略
	

んでもってRからロードしてhist()してみる。デフォルトの１０バケットだとロングテールのせいで意味不明になる。一方バケットの数を増やすと細かすぎる。対数グラフにしてみようと思ったがそれも微妙。 結局みためが気に食わないのでggplot2にして、そしてdensity plotにしてみた。

furusatodays <- read.csv('furusatotime.csv')
hist(furusatodays$days, 30, xlab="days")  # こまかすぎるしちょっとださい。

library(ggplot2)
# s <- ggplot(aes(x=days), data=furusatodays) + geom_histogram()  # いまいち・・・
s <- ggplot(aes(x=days), data=furusatodays) + geom_density(size=1, color="red")
print(s)
ggsave(file = "furusatostats.png")

	

できたグラフ。こんなもんか。