#原始數(shù)據(jù)
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)