你可以试试
df$Month <- factor(df$Month, levels=unique(df$Month))
reshape(df, idvar=c('ID1', 'ID2'), timevar='Month', direction='wide')
# ID1 ID2 Value.Jan-03 Value.Feb-03 Value.Mar-03
#1 1 A 10 12 14
#2 2 B 11 13 15
或者
library(reshape2)
dcast(df, ID1+ID2~Month, value.var='Value')
# ID1 ID2 Jan-03 Feb-03 Mar-03
#1 1 A 10 12 14
#2 2 B 11 13 15
或者
library(tidyr)
spread(df, Month, Value)
# ID1 ID2 Jan-03 Feb-03 Mar-03
#1 1 A 10 12 14
#2 2 B 11 13 15
数据
df <- structure(list(ID1 = c(1L, 2L, 1L, 2L, 1L, 2L), ID2 = c("A",
"B", "A", "B", "A", "B"), Month = c("Jan-03", "Jan-03", "Feb-03",
"Feb-03", "Mar-03", "Mar-03"), Value = 10:15), .Names = c("ID1",
"ID2", "Month", "Value"), class = "data.frame", row.names = c(NA,
-6L))