Question

The following table contains information on COVID-19 mortality for 13 (out of 16) German states.

States	Death/Million	Pop/Km2
Bavaria	72.9	232
North Rhine-Westphalia	33.8	223
Baden-Württemberg	69.3	189
Lower Saxony	28.1	451
Hesse	27.6	297
Rhineland-Palatinate	18.8	206
Saarland	58.6	386
Schleswig-Holstein	18.6	183
Brandenburg	16.7	85
Thuringia	17.7	133
Saxony-Anhalt	11.8	108
Mecklenburg-Vorpommern	6.8	69
Saxony	17.9	221

Display the scatter plot of log(Death/million) vs log(Pop/km2) and add the regression equation and line

**Implement in R

Answer 1

y <- c(232,223,189,451,297,206,386,183,85,133,108,69,221)
x <- c( 72.9,33.8,69.3,28.1,27.6,18.8,58.6,18.6,16.7,17.7,11.8,6.8,17.9 )
# Plot with main and axis titles
# Change point shape (pch = 19) and remove frame.
plot(x, y, main = "Main title",
xlab = "X axis title", ylab = "Y axis title",
pch = 19, frame = FALSE)
# Add regression line
plot(x, y, main = "Main title",
xlab = "X axis title", ylab = "Y axis title",
pch = 19, frame = FALSE)
abline(lm(y ~ x, data = mtcars), col = "blue")