h v abline. Base R only.

Goal

Run every block and confirm the chart is visible.

plot(c(12, 7, 9, 4, 11), c(1260, 1540, 945, 880, 1155), xlab = "units", ylab = "shillings")
abline(h = 1000, lty = 2)
abline(v = 10, lty = 3)
print("abline")

barplot(c(21, 15, 15, 18, 12), names.arg = c("Nairobi", "Mombasa", "Kisumu", "Nakuru", "Eldoret"), col = "#0f6b52", main = "Units")
print("barplot")

set.seed(0)
hist(rpois(80, 12), main = "Units distribution", col = "#0f6b52", xlab = "units")
print("hist")

print("abline")