如何绘制不同颜色的多重逻辑回归+方程，或按第三个因素

Question

样本数据：

Discount Hit application
0.45   1       prize
0.37   1       prize
0.18   0       prize
0.30   0       prize
0.22   1       prize
0.21   1       prize
0.65   1       yellow
0.31   1       yellow
0.22   0       yellow
0.16   0       yellow
0.30   1       yellow
0.20   1       lime
0.12   1       lime
0.23   0       lime
0.31   0       lime
0.18   1       lime
0.19   1       lime
0.23   1       food
0.19   1       food
0.10   0       food
0.32   0       food
0.20   1       food
0.56   1       food

我试图将“Discount”绘制为 x 变量，将“Hit”绘制为 Y 变量。我想要针对不同的“应用程序”有 4 条不同颜色的逻辑回归线及其方程。这怎么办？

到目前为止我拥有的代码是：

data <- read.csv("DiscountData.csv", header=T, stringsAsFactors = TRUE)

fit <- glm(Hit ~ Discount + factor(application), data = data, family = binomial)

ggplot(data = data, 
       aes(x = Discount, y = Hit, color = as.factor(application))

但是现在没有显示数据点，我不知道如何添加逻辑回归

Answer 1

require("ggplot2")
ggplot(DATASET, aes(x=discount, y=hit, color=application, group=application)) +
    geom_points() +
    geom_smooth(method="lm")

只需将 DATASET 更改为数据框的名称即可。