R 展平data.table中的数据帧

R 展平data.table中的数据帧,r,dataframe,data.table,R,Dataframe,Data.table,我有一个具有以下特征的data.table > print(wb_failures_summary) V1 codes enodeb IMSI 1: BACT <data.frame> <data.frame> <data.frame> 2: BREERAB <data.frame> <data.frame> <data.frame>

我有一个具有以下特征的data.table

> print(wb_failures_summary)
            V1        codes       enodeb         IMSI
 1:       BACT <data.frame> <data.frame> <data.frame>
 2:    BREERAB <data.frame> <data.frame> <data.frame>
 3:     DETACH <data.frame> <data.frame> <data.frame>
 4:     ATTACH <data.frame> <data.frame> <data.frame>
 5: MMPAGEHIGH <data.frame> <data.frame> <data.frame>
 6:     SVCREQ <data.frame> <data.frame> <data.frame>
 7:         HO <data.frame> <data.frame> <data.frame>
 8:        BHO <data.frame> <data.frame> <data.frame>
 9:    PAGEMED <data.frame> <data.frame> <data.frame>
10:         NA <data.frame> <data.frame> <data.frame>
11:        TAU <data.frame> <data.frame> <data.frame>
12:    PAGELCS <data.frame> <data.frame> <data.frame>
13:       BMOD <data.frame> <data.frame> <data.frame>
14:      BPRSV <data.frame> <data.frame> <data.frame>
我需要代码,enodeb,imsi看起来像下面的命名列表,例如,对于代码,我希望它们如下所示

c(“006B000000”=“439962”、“000906001A”=“8117”…)

我想我需要适当地展平data.frame才能这样做。。。不知道怎么做。
指针会有很大帮助。

最后..你成功地解决了。。。 一个简单的粘贴是必要的。。。 最终代码

frequency_of_data <- function(x){
  t<-table(x)
  t<-as.data.frame(t,stringAsFactors=FALSE)
  t<-t[order(-t$Freq),]
  t<-t[1:10,]
  **t1<-paste(t$x,"=",t$Freq)**
  t1
}
wb_failures_summary <- wb_failures_errorcode[,.(codes=.(frequency_of_data(code)),enodeb=.(frequency_of_data(V16)),IMSI=.(frequency_of_data(V2)),APN=.(frequency_of_data(V58)),QCI=.(frequency_of_data(V57))),by=V1]
拉吉布

frequency_of_data <- function(x){
  t<-table(x)
  t<-as.data.frame(t,stringAsFactors=FALSE)
  t<-t[order(-t$Freq),]
  t<-t[1:10,]
  **t1<-paste(t$x,"=",t$Freq)**
  t1
}
wb_failures_summary <- wb_failures_errorcode[,.(codes=.(frequency_of_data(code)),enodeb=.(frequency_of_data(V16)),IMSI=.(frequency_of_data(V2)),APN=.(frequency_of_data(V58)),QCI=.(frequency_of_data(V57))),by=V1]
> wb_failures_summary
            V1                                                                                                            codes
 1:       BACT       006B000000 = 437962,000906001A = 8117,0023000000 = 992,002006001A = 872,0009060023 = 819,0069000000 = 450,
 2:    BREERAB 002C000000 = 679672,0057000000 = 98492,000906001A = 61815,0024000000 = 9614,00090A0004 = 8426,0023000000 = 5514,
 3:     DETACH                0018000000 = 5130,004C000000 = 514,004F000000 = 73,003C000000 = 36,001F000000 = 4,0024000000 = 1,
 4:     ATTACH       008006001A = 5328,0036000000 = 4927,0018000000 = 3689,007D000000 = 1139,004C06001A = 399,0038000000 = 381,
 5: MMPAGEHIGH                                                                = 100088,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,
 6:     SVCREQ    008006001A = 35198,00BE000000 = 8893,00800A0004 = 4523,00BD000000 = 3958,003E000000 = 1626,004F000000 = 1200,
 7:         HO           0032000000 = 4458,0050000000 = 742,004C060006 = 448,004F000000 = 347,007C000000 = 166,000D000000 = 41,
 8:        BHO                                                                  = 3046,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,
 9:    PAGEMED                                                                   = 332,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,
10:         NA                                                                = 318082,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,
11:        TAU        005A000000 = 11075,003E000000 = 1998,004D000000 = 1631,0038000000 = 903,0019000000 = 253,004F000000 = 39,
12:    PAGELCS                                                                   = 593,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,
13:       BMOD                   000906001A = 41,000A05002C = 35,0020060000 = 22,0009060023 = 13,0005000000 = 5,0027000000 = 5,
14:      BPRSV                                                         0027000000 = 23,NA = NA,NA = NA,NA = NA,NA = NA,NA = NA,