重塑數據集

Question

我只是想知道，如果你能引導我，我怎麼能重塑基於特定標準的數據集的正確方向小時安排，例如，我有follwing例如數據集：

我試圖重塑數據集是這樣的：

我怎麼能繼續此整形嗎？非常感謝。

My sample data: 

data = structure(list(date = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L), .Label = "Jan-97", class = "factor"), day = c(1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), hour = c(1L, 2L, 
3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), Value = c(65L, 29L, 
31L, 42L, 42L, 52L, 61L, 57L, 55L, 52L, 57L, 46L)), .Names = c("date", 
"day", "hour", "Value"), class = "data.frame", row.names = c(NA, 
-12L)) 

Answer 1

這使用reshape2包。我確信它可以用reshape函數完成，但我不那麼容易。

library("reshape2") 
dcast(data, date+day~hour, value.var="Value") 

這給

> dcast(data, date+day~hour, value.var="Value") 
    date day 1 2 3 4 
1 Jan-97 1 65 29 31 42 
2 Jan-97 2 42 52 61 57 
3 Jan-97 3 55 52 57 46 

如果你不喜歡從這些名稱，可以事後更改。

所以widedata是：

reshape(data, timevar = c("hour"), v.names = c("Value"), 
    idvar = c("date", "day"), direction = "wide") 

編輯：

> widedata 
    date day hour1 hour2 hour3 hour4 
1 Jan-97 1 65 29 31 42 
2 Jan-97 2 42 52 61 57 
3 Jan-97 3 55 52 57 46 

Answer 2

這可以通過使用reshape

reshape(data, idvar=c('date','day'), direction='wide', timevar='hour') 

Answer 3

這是一個辦法做到這一點的基礎來解決：像Brian一樣

names(DF)[-c(1:2)] <- paste0("hour", 1:4) 
rownames(DF)<- 1:nrow(DF) 
DF 

產量：：如果要保留名稱使用使用

date day hour1 hour2 hour3 hour4 
1 Jan-97 1 65 29 31 42 
2 Jan-97 2 42 52 61 57 
3 Jan-97 3 55 52 57 46 

Answer 4

使用dplyr和tidyr包更新：

library(tidyr) 
library(dplyr) 
data %>% mutate(hour=paste0('hour', hour)) %>% spread(hour, Value) 
# date day hour1 hour2 hour3 hour4 
#1 Jan-97 1 65 29 31 42 
#2 Jan-97 2 42 52 61 57 
#3 Jan-97 3 55 52 57 46