tidyr Notebook

library(tidyr)

data <- data.frame(Group = c(1,1,1,1,2,2,2,2,3,3,3,3),
                   Year = c(rep(c("2006","2007","2008","2009"),3)),
                   Qtr.1 = c(15,12,22,10,12,16,13,23,11,13,17,14),
                   Qtr.2 = c(16,13,22,14,13,11,20,19,16,21,14,9),
                   Qtr.3 = c(19,27,24,20,25,20,29,26,22,27,31,23),
                   Qtr.4 = c(17,23,20,16,18,19,15,20,16,21,19,24))
data

long_data <- data %>% gather(Quarter,Revenue,Qtr.1:Qtr.4)
long_data

separate_data <- long_data %>% separate(Quarter,c("Time_Interval","Interval_ID"),sep="\\.")
separate_data

unite_data <- separate_data %>% unite(Quarter,Time_Interval,Interval_ID,sep=".")
unite_data

wide_data <- unite_data %>% spread(Quarter,Revenue)
wide_data