の続きです。前回は各変数同士の相関係数と分布のヒストグラムを描きました。
今回は、電子レンジ所有数と他の変数の散布図を描くことから始めてみます。
はじめは、l_mitsudo: 人口密度の対数との散布図です。
少し、右肩下がりの散布図です。
次は、conve: コンビニエンスストアの数との散布図です。
これも右肩下がりの散布図です。
次は、
これも右肩下がりです。ここまでの３つは前回の相関係数の分析で、電子レンジの所有と負の相関があったのと整合しています。
最後の変数、income: 1人当たりの県民所得の散布図は、右肩上がりになるはずです。
どうでしょうか？
やはり、右肩上がりになりました。
あともう一つ、グラフを描きます。年と電子レンジ所有のグラフです。
これは、箱ひげ図にします。
2004年度より、2014年度のほうが電子レンジの所有は増えている傾向です。
今回は以上です。
次回は、
です。
はじめから読むには、
です。
今回のコードは以下になります。
#
# l_mitsudoとmicrowave
df |>
ggplot(aes(x = l_mitsudo, y = microwave)) +
geom_point() +
geom_smooth(method = "lm")
#
# conveとmicrowave
df |>
ggplot(aes(x = conve, y = microwave)) +
geom_point(size = 2, color = "red") +
geom_smooth(method = "lm")
#
# singleとmicrowave
df |>
ggplot(aes(x = single, y = microwave)) +
geom_point(size = 2.5, color = "green") +
geom_smooth(method = "lm")
#
# incomeとmicrowave
df |>
ggplot(aes(x = income, y = microwave)) +
geom_point(size = 2.5, color = "orange") +
geom_smooth(method = "lm") +
theme_bw()
#
# yearとmicrowave
df |>
ggplot(aes(x = year, y = microwave)) +
geom_boxplot(aes(group = year, fill = year)) +
geom_point(size = 2) +
theme_bw()
#
(冒頭の画像は、Bing Image Creator で生成しました。プロンプトは、Landscape in the clear air, green grass field, under the blue sky, no clouds, yellow Adonis(Fukujuso) flowers, photoです。)
