#原始数据
df <- data.frame(x = c("a", "b","c"), y = c(3, 4,5), z = c(5, 6,7))

df %>%

 mutate(id = 1:n()) %>%

 gather(key = key, value = value, -id) %>%

 mutate(key = paste0(key, id)) %>%

 select(-id) %>%

 spread(key, value)