TIDYR - gather, unite and spread.

data_manipu.R

library(tidyr)

df <- data.frame(
  MKT=c("ABIORD", "ABIBOS", "GCFPQR", "ABIORD", "ABIBOS", "GCFPQR", "ABIORD", "ABIBOS", "GCFPQR"), 
  VERSION=c(1,2,3,4,1,2,3,4,1), 
  REVERSALS=c(7,6,7,7,7,6,7,7, 9), 
  NEIGH=c(1,2.3,3.3,4,3.3,2,1,3.3,4.3),
  DIFFMETRIC=c(1.1,2.1,3.1,4.1,3.1,2.1,1.1,3.1,4.1))


df %>% gather("key", "value", 3:5) %>% # long format, leaving just MKT and VERSION as row identifiers
  unite(new, VERSION, key) %>% #create new combined col_names
  spread(key = new, value = value)