R重塑数据帧的形状_R_Reshape

R重塑数据帧的形状

R重塑数据帧的形状,r,reshape,R,Reshape,我有一个数据框ema_sma_actual，如下所述 fiscal_quarter actual forecast_ema forecast_sma 20071 6371428347 NA NA 20072 4370623177 NA NA 20073 3377139334 5056396953 5063969536

我有一个数据框ema_sma_actual，如下所述

fiscal_quarter     actual    forecast_ema forecast_sma
         20071  6371428347           NA           NA
         20072  4370623177           NA           NA
         20073  3377139334    5056396953    5063969536
         20074  8380921297    6953659125    5762279366
         20081  7315765174    7054712149    6579419356
         20082 11325882146    9155297148    9075228726
         20083  6311248678    7653272913    8176319996

我想把它变成

 type               Amount              fiscal_quarter
        actual    6371428347          20071
  forecast_ema         NA             20071
  forecast_sma         NA             20071
        actual    3377139334          20072
  forecast_ema    5056396953          20072
  forecast_sma    5063969536          20072
        actual    8380921297          20073
  forecast_ema    6953659125          20073
  forecast_sma    5762279366          20073
       actual    7315765174          20074
 forecast_ema    7054712149          20074
 forecast_sma    6579419356          20074
       actual   11325882146          20081
 forecast_ema    9155297148          20081
 forecast_sma    9075228726          20081
       actual    6311248678          20082
 forecast_ema    7653272913          20082
 forecast_sma    8176319996          20082
       actual    7356638637          20083
 forecast_ema    7559955775          20083
 forecast_sma    8312564876          20083

我怎样才能做到这一点？

一个简单的解决方案

试试图书馆2；非常感谢你。。它起作用了..NP，请停止恢复我的编辑

df<-read.table(text="fiscal_quarter     actual    forecast_ema forecast_sma
20071  6371428347           NA           NA
20072  4370623177           NA           NA
20073  3377139334    5056396953    5063969536
20074  8380921297    6953659125    5762279366
20081  7315765174    7054712149    6579419356
20082 11325882146    9155297148    9075228726
20083  6311248678    7653272913    8176319996", header=T)


library(tidyr) 
library(dplyr)

df %>% gather(key,amount, 2:4)

df %>% 
   gather(key,amount, 2:4) %>%
   arrange(fiscal_quarter, key)