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。