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
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")
Get Answers For Free
Most questions answered within 1 hours.