Confronto per raccogliere (tidyr) per fondere (rimodellare2)

Question

Mi piace il pacchetto reshape2 perché ha reso la vita così facile. Tipicamente Hadley ha apportato miglioramenti nei suoi pacchetti precedenti che consentono di eseguire codice più veloce e più veloce. Ho pensato di dare a tidyr un vortice e da quello che ho letto ho pensato che gather era molto simile a melt da reshape2. Ma dopo aver letto la documentazione non riesco a ottenere gather per fare lo stesso compito di melt.

Visualizzazione dati

Ecco una vista dei dati (dati effettivi in ​​dput modulo alla fine del post):

teacher yr1.baseline  pd yr1.lesson1 yr1.lesson2 yr2.lesson1 yr2.lesson2 yr2.lesson3 
1  3  1/13/09 2/5/09  3/6/09  4/27/09  10/7/09 11/18/09  3/4/10 
2  7  1/15/09 2/5/09  3/3/09  5/5/09 10/16/09 11/18/09  3/4/10 
3  8  1/27/09 2/5/09  3/3/09  4/27/09  10/7/09 11/18/09  3/5/10 

Codice

Ecco il codice in melt moda , il mio tentativo di gather. Come posso fare gather fare la stessa cosa di melt?

library(reshape2); library(dplyr); library(tidyr) 

dat %>% 
    melt(id=c("teacher", "pd"), value.name="date") 

dat %>% 
    gather(key=c(teacher, pd), value=date, -c(teacher, pd)) 

output desiderato

teacher  pd  variable  date 
1  3 2/5/09 yr1.baseline 1/13/09 
2  7 2/5/09 yr1.baseline 1/15/09 
3  8 2/5/09 yr1.baseline 1/27/09 
4  3 2/5/09 yr1.lesson1 3/6/09 
5  7 2/5/09 yr1.lesson1 3/3/09 
6  8 2/5/09 yr1.lesson1 3/3/09 
7  3 2/5/09 yr1.lesson2 4/27/09 
8  7 2/5/09 yr1.lesson2 5/5/09 
9  8 2/5/09 yr1.lesson2 4/27/09 
10  3 2/5/09 yr2.lesson1 10/7/09 
11  7 2/5/09 yr2.lesson1 10/16/09 
12  8 2/5/09 yr2.lesson1 10/7/09 
13  3 2/5/09 yr2.lesson2 11/18/09 
14  7 2/5/09 yr2.lesson2 11/18/09 
15  8 2/5/09 yr2.lesson2 11/18/09 
16  3 2/5/09 yr2.lesson3 3/4/10 
17  7 2/5/09 yr2.lesson3 3/4/10 
18  8 2/5/09 yr2.lesson3 3/5/10 

dati

dat <- structure(list(teacher = structure(1:3, .Label = c("3", "7", 
    "8"), class = "factor"), yr1.baseline = structure(1:3, .Label = c("1/13/09", 
    "1/15/09", "1/27/09"), class = "factor"), pd = structure(c(1L, 
    1L, 1L), .Label = "2/5/09", class = "factor"), yr1.lesson1 = structure(c(2L, 
    1L, 1L), .Label = c("3/3/09", "3/6/09"), class = "factor"), yr1.lesson2 = structure(c(1L, 
    2L, 1L), .Label = c("4/27/09", "5/5/09"), class = "factor"), 
     yr2.lesson1 = structure(c(2L, 1L, 2L), .Label = c("10/16/09", 
     "10/7/09"), class = "factor"), yr2.lesson2 = structure(c(1L, 
     1L, 1L), .Label = "11/18/09", class = "factor"), yr2.lesson3 = structure(c(1L, 
     1L, 2L), .Label = c("3/4/10", "3/5/10"), class = "factor")), .Names = c("teacher", 
    "yr1.baseline", "pd", "yr1.lesson1", "yr1.lesson2", "yr2.lesson1", 
    "yr2.lesson2", "yr2.lesson3"), row.names = c(NA, -3L), class = "data.frame") 

Answer 1

La vostra linea gather dovrebbe essere simile:

dat %>% gather(variable, date, -teacher, -pd) 

Questo dice "Raccogli tutte le variabili tranne teacher e pd, chiamando la nuova colonna chiave 'variabile' e la nuova colonna valore 'data'."

---

Come spiegazione, notare quanto segue dalla pagina help(gather):

...: Specification of columns to gather. Use bare variable names. 
     Select all variables between x and z with ‘x:z’, exclude y 
     with ‘-y’. For more options, see the select documentation. 

Trattandosi di un'ellissi, la specifica di colonne per raccogliere è dato come (nome nudo) argomenti distinti. Desideriamo raccogliere tutte le colonne tranne teacher e pd, quindi utilizziamo -.