r - Make columns on the basis of one column

Question

This question already has answers here: question from:https://stackoverflow.com/questions/65899356/make-columns-on-the-basis-of-one-column

Answer 1

Using tidyr :

library(tidyr)

a %>%
  pivot_longer(cols = Yr1:Yr3, names_to = 'Yr') %>%
  pivot_wider(names_from = Typ, values_from = value)

#  name  Yr      One   Two Three  Four
#  <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#1 AFG   Yr1      10    11    12    14
#2 AFG   Yr2       1     2     3     4
#3 AFG   Yr3       8     9    10    11
#4 GER   Yr1      15    17    18    19
#5 GER   Yr2       5     6     7     8
#6 GER   Yr3      12    13    14    15
#7 GFR   Yr1      88     1    39     1
#8 GFR   Yr2       9    10    11    12
#9 GFR   Yr3      16    17    18    19

Using data.table :

dcast(melt(setDT(a), measure.vars = c('Yr1', 'Yr2', 'Yr3')), 
      name+variable~Typ, value.var = 'value')