# Logistic Regression plot in R

Logistic Regression plot in R, you will learn how to plot a Logistic Regression Curve in the R programming language in this tutorial.

A supervised classification algorithm, logistic regression is. This aids in the creation of a distinguishing curve that distinguishes between two classes of variables.

In R, plotting the curve of a fitted logistic regression model is a common task.

Fortunately, this is a simple task, and this tutorial will show you how to accomplish it in both R and ggplot2.

## Approach1: Base R, create a Logistic Regression Curve

The following code demonstrates how to construct a logistic regression model in R using variables from the built-in mtcars dataset, followed by plotting the logistic regression curve:

Model of the logistic regression fit

```Model1<- glm(vs ~ hp, data=mtcars, family=binomial)
Model1```
```Call:  glm(formula = vs ~ hp, family = binomial, data = mtcars)
Coefficients:
(Intercept)           hp
8.37802     -0.06856
Degrees of Freedom: 31 Total (i.e. Null);  30 Residual
Null Deviance:        43.86
Residual Deviance: 16.84             AIC: 20.84```

create a new data frame with the predictor variable

```new<- data.frame(hp=seq(min(mtcars\$hp), max(mtcars\$hp),len=500))
```      hp
1 52.00000
2 52.56713
3 53.13427
4 53.70140
5 54.26854
6 54.83567```

To anticipate the values of vs, utilise a fitted model.

```new\$vs = predict(Model1, new, type="response")
```  hp        vs
1 52.00000 0.9919409
2 52.56713 0.9916241
3 53.13427 0.9912949
4 53.70140 0.9909529
5 54.26854 0.9905975
6 54.83567 0.9902284```

Now we can plot the logistic regression curve

```plot(vs ~ hp, data=mtcars, col="steelblue")
lines(vs ~ hp, newdata, lwd=2)``` The x-axis shows the values of the predictor variable hp, while the y-axis shows the responder variable am’s projected probability.

Higher values of the predictor variable hp are clearly connected with lower probabilities of the responder variable vs equaling 1.

## Approach2: Plot a Logistic Regression Curve in ggplot2

Using the data visualization library ggplot2, the following code explains how to fit the same logistic regression model and plot the logistic regression curve:

`library(ggplot2)`

plot logistic regression curve

```ggplot(mtcars, aes(x=hp, y=vs)) +
geom_point(alpha=.5) +
stat_smooth(method="glm", se=FALSE, method.args = list(family=binomial))``` This is the same curve that was created in the previous example using base R.

Feel free to change the curve’s style as well. We could, for example, make the curve into a red dashed line.

`library(ggplot2)`

Let’s plot the logistic regression curve

```ggplot(mtcars, aes(x=hp, y=vs)) +  geom_point(alpha=.5) +
stat_smooth(method="glm", se=FALSE, method.args = list(family=binomial),
col="pink", lty=2)``` 