###Beispiel###

#vorliegende Daten
x <- c("Berlin", "Hamburg", "München")
y <- c("Äpfel","Birnen","Pflaumen")
Orte <- rep(x, times = c(5,6,4))
Sorte <- sample(y, size = 15, replace = T)
a <- sample(1:15, size = 15, replace = T)
b <- sample(1:15, size = 15, replace = T)
c <- sample(1:15, size = 15, replace = T)
df <- data.frame(Orte, Sorte, a, b, c)
colnames(df) <- c("Orte","Sorte", 2016,2017,2018)
View(df)

#Zieldaten sollen die Summen enthalten - also die Summe aller Birnen für Berlin 2016, 2017, 2018 usw.
df_ziel <- data.frame(rep(x, times = c(3,3,3)), rep(y, times = 3), sample(6:20, size = 9, replace = T), sample(6:20, size = 9, replace = T),sample(6:20, size = 9, replace = T))
colnames(df_ziel) <- c("Orte","Sorte", 2016,2017,2018)
View(df_ziel)