
110
5
章 散布図
#> 699 897471 4 8 8 5 4 5 10 4 1 malignant 1
次に、ロジスティック回帰を行います。
fitlogistic <- glm(classn ~ V1, biopsy_mod, family = binomial)
最後に、ジッターをかけた点を使ってグラフを作成し、
fitlogistic
の線を追加します。追加する線
は、
RGB
カラーで色を青に指定して、少し太くするために
size = 1
を指定します(図5-23)。
#
予測値の取得
glm_predicted <- predictvals(fitlogistic, "V1", "classn", type = "response")
ggplot(biopsy_mod, aes(x = V1, y = classn)) +
geom_point(
position = position_j
itter(width = .3, height = .08),
alpha = 0.4,
shape = 21,
size = 1.5
) +
geom_line(data = glm_predicted, colour = "#1177FF", size = 1)
図5-23 ロジスティック回帰をフィットさせたグラフ
レシピ
5.8
複数の既存のモデルをフィットさせる
問題
データセットにフィットさせた回帰モデルを既に作成していて、そのモデルの線を表示したい。