「主要耐久消費財の普及率」の推移のデータを用いて、ルームエアコンの普及率へのモデルフィッティングを行う。 https://www.e-stat.go.jp/stat-search/files?page=1&layout=datalist&toukei=00100405&tstat=000001014549&cycle=0&tclass1=000001200820&tclass2=000001203960&tclass3val=0 データの読み込み data <- read.csv("air_conditioner.csv") 多項式回帰モデルのフィッティング library(ggplot2) poly_model <- lm(air_conditioner ~ poly(year, 3), data = data) data$poly_pred <- predict(poly_model,
![ルームエアコンの普及率へのモデルフィッティング[R] - 井出草平の研究ノート](https://cdn-ak-scissors.b.st-hatena.com/image/square/33d8861d0c64e24227ab91a978545318fe0278ed/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fi%2FiDES%2F20240617%2F20240617025342.png)