Im working with a dataframe like this:
df <- data.frame(name = c("Hello", "Hello"),
code = c("He", "He"),
sum = c("Sum_AG", "Sum_FZ"),
"2017" = c(222, 2),
"2018" = c(333, 3),
"2019" = c(444, 4),
name.1 = c("Hoi", "Hoi"),
code.1 = c("Ho", "Ho"),
value.1 = c("Sum_AG", "Sum_FZ"),
"2017.1" = c(666, 6),
"2018.1" = c(777, 7),
"2019.1" = c(888, 8))
And I want to reshape it into this dataframe:
df2 <- data.frame(name = c("Hello", "Hello","Hello", "Hello","Hello", "Hello", "Hoi", "Hoi", "Hoi", "Hoi", "Hoi", "Hoi"),
code = c("He", "He","He", "He","He", "He", "Ho", "Ho", "Ho", "Ho", "Ho", "Ho"),
sum = c("Sum_AG", "Sum_FZ", "Sum_AG", "Sum_FZ","Sum_AG", "Sum_FZ", "Sum_AG", "Sum_FZ","Sum_AG", "Sum_FZ","Sum_AG", "Sum_FZ"),
value = c(222, 2, 333, 3, 444, 4, 666, 6, 777, 7, 888, 8),
year = c(2017, 2017, 2018, 2018, 2019, 2019,2017, 2017, 2018, 2018, 2019, 2019))