Question

我有一张这样的桌子：

   Anno Mese     `No quotations`
      <int> <chr>                  <int>
    1  2018 Feb                    169
    2  2018 Jan                    147
    3  2019 Feb                    102
    4  2019 Jan                    222

我想像这样转换数据

              Feb-2018   Jan-2018
No quotation    169         147

，依此类推。基本上我需要时间在专栏上。

我尝试了melt和reshape，但没有成功。

我可以使用dcast

dcast(report1, . ~ Anno+Mese)

这就是输出

 . 2018_febbraio 2018_gennaio 2019_febbraio 2019_gennaio
1 .           169          147           102          222

我希望拥有

                  2018_febbraio 2018_gennaio 2019_febbraio 2019_gennaio
No_quotation            169          147           102          222

我也可以有多个numeri值（除了“无引号”列之外）

软件R。谢谢

Answer 1

样本数据

library(data.table)
dt<-fread("    2018 Feb                    169
                2018 Jan                    147
                2019 Feb                    102
                2019 Jan                    222", header = FALSE)
dt
# V1  V2  V3
# 1: 2018 Feb 169
# 2: 2018 Jan 147
# 3: 2019 Feb 102
# 4: 2019 Jan 222

代码

dcast(dt, . ~ paste0(V2, "-", V1), value.var = "V3")
#    . Feb-2018 Feb-2019 Jan-2018 Jan-2019
# 1: .      169      102      147      222

R-转换数据

1 个答案: