werke <- data.frame(
id = 1:10,
werk = c("VW Wolfsburg", "VW Hannover", "VW Emden", "VW Osnabrück",
"Mercedes-Benz Bremen", "Ford Köln", "Opel Rüsselsheim",
"Volvo Cars Gent", "Volvo Trucks Gent", "VDL Nedcar Born"),
lat = c(52.432, 52.380, 53.365, 52.279, 53.075, 50.950, 49.993, 51.054, 51.040, 51.030),
lon = c(10.787, 9.746, 7.213, 8.047, 8.808, 6.900, 8.422, 3.717, 3.730, 5.867),
d2027 = c(28000, 22000, 18500, 12000, 25000, 20000, 15000, 30000, 14000, 11000),
d2030 = c(42000, 26000, 28000, 12000, 31000, 27000, 21000, 36000, 17000, 6000)
)
quellen <- data.frame(
quelle = c("Hafen Hamburg", "Zellfabrik Salzgitter"),
lat = c(53.540, 52.160),
lon = c( 9.970, 10.400),
anteil = c(0.60, 0.40)
)
lager <- data.frame(
id = 1:8,
ort = c("Gütersloh", "Düren", "Dorsten/Marl", "Peine", "Langenhagen",
"Venlo (NL)", "Bremen GVZ", "Gent Hafen (BE)"),
lat = c(51.906, 50.804, 51.660, 52.320, 52.438, 51.370, 53.050, 51.100),
lon = c( 8.383, 6.493, 6.965, 10.230, 9.737, 6.170, 8.700, 3.780),
fix = c(2400, 2600, 2500, 2300, 2700, 2800, 2600, 3000), # T€/Jahr
kap = c(90, 110, 80, 70, 100, 120, 90, 80) * 1000 # MWh/Jahr
)
knitr::kable(werke, format.args = list(big.mark = ".", decimal.mark = ","),
col.names = c("#", "Werk", "Breite", "Länge",
"Bedarf 2027 [MWh/a]", "Szenario 2030 [MWh/a]"))