寻找在R中的多列上转置数据帧

debugcn 发表于 Dev

jazz_learn

这是我有一个示例数据框

 mydataf.tickersymbol mydataf.yr_qtr mydataf.act_mean
1                  ABC          20084               BB
2                  ABC          20091               BB
3                  ABC          20092               BB
4                  ABC          20093               BB
5                  DEF          20084               BB
6                  DEF          20091               BB
7                  DEF          20092               BB
8                  DEF          20093               BB
9                  DEF          20094               BB
10                 GEF          20092               BB
11                 GEF          20093               BB
12                 GEF          20094                M

尝试通过加入yr_qtr每个行情自动收录器并关心丢失的数据值来获得的输出。我可以遍历此循环并为所有检查创建逻辑，但似乎通过数据框我应该能够使用r数据框功能来做到这一点？

       20084    20091   20092   20093   20094
ABC     AA      BB      BB      BB      
DEF     BB      BB      BB      BB      BM
GEF                     BB      BB      M

史蒂文·波普雷（StevenBeaupré）

我会简单地做：

library(tidyr)
df %>% spread(mydataf.yr_qtr, mydataf.act_mean)

或使用reshape2包装：

library(reshape2)
dcast(df, mydataf.tickersymbol ~ mydataf.yr_qtr,
                        value.var = "mydataf.act_mean")

这使：

  mydataf.tickersymbol 20084 20091 20092 20093 20094
1                  ABC    BB    BB    BB    BB  <NA>
2                  DEF    BB    BB    BB    BB    BB
3                  GEF  <NA>  <NA>    BB    BB     M

或者，如果我们需要“ mydataf.tickersymbol”作为行名，请使用acast它将给出矩阵输出，然后将其转换回data.frameas.data.frame

library(reshape)#reshape2_1.4  
as.data.frame(acast(df, mydataf.tickersymbol~mydataf.yr_qtr, 
              value.var='mydataf.act_mean', fill=''))
#     20084 20091 20092 20093 20094
# ABC    BB    BB    BB    BB      
# DEF    BB    BB    BB    BB    BB
# GEF                BB    BB     M

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。