maerkte <- data.frame(
land = c("Mexiko", "Peru", "Chile", "Kolumbien", "Ecuador", "Guatemala",
"Dominikanische Rep.", "Costa Rica", "Panama", "Bolivien", "Uruguay"),
stadt = c("Mexiko-Stadt", "Lima", "Santiago", "Bogotá", "Guayaquil",
"Guatemala-Stadt", "Santo Domingo", "San José", "Panama-Stadt",
"La Paz", "Montevideo"),
lat = c(19.43, -12.05, -33.45, 4.71, -2.17, 14.63, 18.49, 9.93, 8.98, -16.50, -34.90),
lon = c(-99.13, -77.04, -70.67, -74.07, -79.92, -90.51, -69.93, -84.08, -79.52, -68.15, -56.16),
p2027 = c(8.0, 5.0, 4.5, 4.0, 2.5, 1.0, 0.9, 0.8, 0.7, 0.5, 0.5),
p2029 = c(18.0, 11.0, 10.0, 9.5, 6.0, 2.2, 2.0, 1.8, 1.5, 1.2, 1.1),
p2032 = c(30.0, 19.0, 17.0, 16.0, 10.0, 4.0, 3.5, 3.0, 2.5, 2.0, 2.0)
)
knitr::kable(maerkte, digits = 2,
col.names = c("Country", "City", "Latitude", "Longitude",
"2027", "2029", "2032"),
caption = "Sales forecast in million units/year")