Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/unix/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R中的类枢轴数操作_R - Fatal编程技术网

R中的类枢轴数操作

R中的类枢轴数操作,r,R,我试图在聚合中嵌套两个子集数据。但它返回的数据长度不同,因此无法计算。 我有什么选择 newfile<- aggregate(cbind(subset(IVA,IVA$IVR.Agent =="Agent"),subset(IVA,IVA$IVR.Agent=="IVR")) ~ IVA$OrderNo, FUN = length, rm.action = TRUE) 我试图创建一个透视表,它将在单独的列中显示代理计数和IVR计数,就像在excel中一样,如果特定的顺序没有IVR,它将显

我试图在聚合中嵌套两个子集数据。但它返回的数据长度不同,因此无法计算。 我有什么选择

newfile<- aggregate(cbind(subset(IVA,IVA$IVR.Agent =="Agent"),subset(IVA,IVA$IVR.Agent=="IVR")) ~ IVA$OrderNo, FUN = length, rm.action = TRUE)
我试图创建一个透视表,它将在单独的列中显示代理计数和IVR计数,就像在excel中一样,如果特定的顺序没有IVR,它将显示null,否则它的计数

数据集看起来像这样

OrderNo IVR/Agent
    A1  IVR
    B1  Agent
    A2  Agent
    B2  IVR
    A3  Agent
    B3  Agent
    A4  Agent
    B4  Agent
    A5  IVR
    B5  Agent

因此,您需要查看
restrape2
包和
cast
函数。查看下面的代码:

# install.packages('reshape2') # only run if you haven't downloaded before
library(reshape2)

datCast <- dcast(dat, OrderNo ~ IVR.Agent, fun.aggregate = length, margins = T)

datCast
   OrderNo Agent IVR (all)
1       A1     0   1     1
2       A2     1   0     1
3       A3     1   0     1
4       A4     1   0     1
5       A5     0   1     1
6       B1     1   0     1
7       B2     0   1     1
8       B3     1   0     1
9       B4     1   0     1
10      B5     1   0     1
11   (all)     7   3    10
#install.packages('reforme2')#仅在您以前未下载的情况下运行
图书馆(E2)

datCast因此,您需要查看
restrape2
包和
cast
函数。查看下面的代码:

# install.packages('reshape2') # only run if you haven't downloaded before
library(reshape2)

datCast <- dcast(dat, OrderNo ~ IVR.Agent, fun.aggregate = length, margins = T)

datCast
   OrderNo Agent IVR (all)
1       A1     0   1     1
2       A2     1   0     1
3       A3     1   0     1
4       A4     1   0     1
5       A5     0   1     1
6       B1     1   0     1
7       B2     0   1     1
8       B3     1   0     1
9       B4     1   0     1
10      B5     1   0     1
11   (all)     7   3    10
#install.packages('reforme2')#仅在您以前未下载的情况下运行
图书馆(E2)

datCast因此,您需要查看
restrape2
包和
cast
函数。查看下面的代码:

# install.packages('reshape2') # only run if you haven't downloaded before
library(reshape2)

datCast <- dcast(dat, OrderNo ~ IVR.Agent, fun.aggregate = length, margins = T)

datCast
   OrderNo Agent IVR (all)
1       A1     0   1     1
2       A2     1   0     1
3       A3     1   0     1
4       A4     1   0     1
5       A5     0   1     1
6       B1     1   0     1
7       B2     0   1     1
8       B3     1   0     1
9       B4     1   0     1
10      B5     1   0     1
11   (all)     7   3    10
#install.packages('reforme2')#仅在您以前未下载的情况下运行
图书馆(E2)

datCast因此,您需要查看
restrape2
包和
cast
函数。查看下面的代码:

# install.packages('reshape2') # only run if you haven't downloaded before
library(reshape2)

datCast <- dcast(dat, OrderNo ~ IVR.Agent, fun.aggregate = length, margins = T)

datCast
   OrderNo Agent IVR (all)
1       A1     0   1     1
2       A2     1   0     1
3       A3     1   0     1
4       A4     1   0     1
5       A5     0   1     1
6       B1     1   0     1
7       B2     0   1     1
8       B3     1   0     1
9       B4     1   0     1
10      B5     1   0     1
11   (all)     7   3    10
#install.packages('reforme2')#仅在您以前未下载的情况下运行
图书馆(E2)

datCast如果您的数据被称为
myData
,那么以下内容似乎就是您所需要的

table(myData)

# which yields

       IVR.Agent
OrderNo Agent IVR
     A1     0   1
     A2     1   0
     A3     1   0
     A4     1   0
     A5     0   1
     B1     1   0
     B2     0   1
     B3     1   0
     B4     1   0
     B5     1   0
如果你想要的话,只要把这些列加起来就可以了

gt <- rowSums( table(s) )

gt如果您的数据被称为
myData
,以下内容似乎就是您所需要的

table(myData)

# which yields

       IVR.Agent
OrderNo Agent IVR
     A1     0   1
     A2     1   0
     A3     1   0
     A4     1   0
     A5     0   1
     B1     1   0
     B2     0   1
     B3     1   0
     B4     1   0
     B5     1   0
如果你想要的话,只要把这些列加起来就可以了

gt <- rowSums( table(s) )

gt如果您的数据被称为
myData
,以下内容似乎就是您所需要的

table(myData)

# which yields

       IVR.Agent
OrderNo Agent IVR
     A1     0   1
     A2     1   0
     A3     1   0
     A4     1   0
     A5     0   1
     B1     1   0
     B2     0   1
     B3     1   0
     B4     1   0
     B5     1   0
如果你想要的话,只要把这些列加起来就可以了

gt <- rowSums( table(s) )

gt如果您的数据被称为
myData
,以下内容似乎就是您所需要的

table(myData)

# which yields

       IVR.Agent
OrderNo Agent IVR
     A1     0   1
     A2     1   0
     A3     1   0
     A4     1   0
     A5     0   1
     B1     1   0
     B2     0   1
     B3     1   0
     B4     1   0
     B5     1   0
如果你想要的话,只要把这些列加起来就可以了

gt <- rowSums( table(s) )


gt在不显示数据结构的情况下给您任何答案都是非常困难的(实际上是不可能的)。然而,我对透视表的首选方法是
plyr
包中的
ddply
,或者如果您熟悉
dplyr
请查看
groupby
请查看。我刚刚添加了上面的数据集结构。这非常困难(实际上不可能)在不显示数据结构的情况下给出任何答案。然而,我对透视表的首选方法是
plyr
包中的
ddply
,或者如果您熟悉
dplyr
请查看
groupby
请查看。我刚刚添加了上面的数据集结构。这非常困难(实际上不可能)在不显示数据结构的情况下给出任何答案。然而,我对透视表的首选方法是
plyr
包中的
ddply
,或者如果您熟悉
dplyr
请查看
groupby
请查看。我刚刚添加了上面的数据集结构。这非常困难(实际上不可能)在不显示数据结构的情况下给出任何答案。但是,我对透视表的首选方法是
plyr
包中的
ddply
,或者如果您熟悉
dplyr
请查看
groupby
请查看。我刚刚添加了上面数据集的结构。在运行代码后,我得到了以下错误。datCast您是否加载了
重塑2
?R也区分大小写。您能确认大写字母吗?是,已加载整形,库(整形2)newdata@Shoaibkhanz,整形!=在运行代码后,我得到了以下错误。datCast您是否加载了
重塑2
?R也区分大小写。您能确认大写字母吗?是,已加载整形,库(整形2)newdata@Shoaibkhanz,整形!=在运行代码后,我得到了以下错误。datCast您是否加载了
重塑2
?R也区分大小写。您能确认大写字母吗?是,已加载整形,库(整形2)newdata@Shoaibkhanz,整形!=在运行代码后,我得到了以下错误。datCast您是否加载了
重塑2
?R也区分大小写。您能确认大写字母吗?是,已加载整形,库(整形2)newdata@Shoaibkhanz,整形!=重塑2。