Question

制作数据框

a <- c(1981,11.663480,12.580290,11.728730,10.403690,8.065430,7.498169,9.858521,   
   10.503750,12.837550,13.322750,12.120450,13.466980)
b <- c(1982,13.250670,13.158510,13.805300,13.768520,12.035980,9.121552,11.130580,   
   12.353730,12.448520,12.690670,12.369690,13.099700)
Data <- as.data.frame(t(a))
Data[2,]<- t(b)

第一列用于年份，其余列用于每个月。我想将数据框重塑为2列，第一列用于日期，第二列用于值。显然，真正的餐桌已经使用了40年。

类似的东西

    dates    value
[1] 1981/01  11.663
[2] 1981/02  12.58

我用它来重塑：

library(reshape)
md <- melt(Data, id=(c("V1")))

现在，我可以在数据框“ md”中重新排列对应于1981年开始的年份的列。我尝试使用cast进行提取，但不能这样做。

Answer 1

我们可以通过paste用'V1'列设置行的顺序，执行arrange

library(dplyr)
md %>% 
  group_by(V1) %>% 
  mutate(dates = sprintf('%d/%02d', V1, row_number()), value) %>% 
  ungroup %>% 
  select(-V1, -variable) %>%
  arrange(dates)

重塑表格：年与月数据

1 个答案: