Данные реформата от длинного до широкого

Question

Как переформатировать эти данные в широком формате?

species val price 
setosa 5.1  3 
setosa 4.9  3 
setosa 4.7  3 
setosa 4.6  2 

Желаемый результат:

species val1 val2 val3 val4 price1 price2 price3 price4 
setosa 5.1 4.9 4.7 4.6 3  3  3  2 

Я попытался распространение от tidyr, но без успеха.

Answer 1

Вы можете попробовать это:

> d 
    species val price 
1  setosa 5.1  3 
2  setosa 4.9  3 
3  setosa 4.7  3 
4  setosa 4.6  2 
5 versicolor 5.1  3 
6 versicolor 4.9  3 
7 versicolor 4.7  3 
8 versicolor 4.6  2 

> t(sapply(split(d,d$species),function(x){unlist(x[,-1]) })) 
      val1 val2 val3 val4 price1 price2 price3 price4 
setosa  5.1 4.9 4.7 4.6  3  3  3  2 
versicolor 5.1 4.9 4.7 4.6  3  3  3  2 

Answer 2

data.table v 1.9.6+ позволяет передавать более одного value.vars, так что вы можете просто сделать

library(data.table) 
dcast(setDT(df), species ~ val + price, value.var = c("val", "price")) 
# species val.1_4.6_2 val.1_4.7_3 val.1_4.9_3 val.1_5.1_3 price.1_4.6_2 price.1_4.7_3 price.1_4.9_3 price.1_5.1_3 
# 1: setosa   4.6   4.7   4.9   5.1    2    3    3    3 

Answer 3

Вот tidyr решение в dplyr цепь:

library(dplyr) 
library(tidyr) 

dat <- data.frame(species = "setosa", val = c(5.1, 4.9, 4.7, 4.6), price = c(3,3,3,2)) 

out.df <- dat %>% mutate(row.n = row_number()) %>% 
    gather(var, value, -c(species, row.n)) %>% 
    unite(col.n, c(var, row.n), sep = "") %>% 
    mutate(col.n = factor(col.n, levels = unique(col.n))) %>% # preserve column order 
    spread(col.n, value) 

out.df 
    species val1 val2 val3 val4 price1 price2 price3 price4 
1 setosa 5.1 4.9 4.7 4.6  3  3  3  2