【发布时间】：2017-03-22 16:19:46
【问题描述】：
我正在尝试从基于原始数据生成的数据框列表中对表格进行交叉制表。原始数据框由 8 个变量的 1004 个观测值组成。
> summary(mydata)
ARTICLE COMPSYNT2 POSITION COMPTYPE SUBSTYPE2 VARIANT
No :832 NP :342 Fin :535 Hum :435 Comp : 2 Lieu :504
Yes:172 DetPoss :334 Init:284 SoA :232 Conc : 12 Place:500
NFClau :238 Med :185 Conc :160 Contr:426
SubClau : 30 Abstr :102 Dep : 45
ProForm : 20 Prop : 31 Emp :104
PronPers: 16 Plant : 17 Repl :327
(Other) : 24 (Other): 27 Subst: 88
DECADE GENRE2
Min. :1500 Treat_Ess:299
1st Qu.:1618 Novel :219
Median :1650 Drama :143
Mean :1644 Poetry : 86
3rd Qu.:1680 Memoirs : 82
Max. :1710 Corresp : 81
(Other) : 94
我想为变量“DECADE”的每个级别获取一个数据框（有 21 个十年）。我做了以下事情：
> mydata.split<-split(mydata, mydata$DECADE)
# remove the column "DECADE" since no longer needed
> mydata.split<-lapply(mydata.split, function(x) x=x[, -7])
> french.split[1:2] # outputs the first two elements of the list
$`1500`
ARTICLE COMPSYNT2 POSITION COMPTYPE SUBSTYPE2 VARIANT GENRE2
1 No NFClau Med SoA Contr Lieu Poetry
$`1510`
ARTICLE COMPSYNT2 POSITION COMPTYPE SUBSTYPE2 VARIANT GENRE2
2 No PronPers Fin Hum Contr Lieu Novel
3 No NP Init Hum Repl Lieu Novel
4 No NP Init Conc Subst Lieu Treat_Ess
然后，为了在变量“VARIANT”的函数中对列表的每个数据框进行交叉制表，我分别访问了每个表，并在 for 循环中对列 1:n 和列“VARIANT”应用了交叉制表然后尝试将所有数据帧堆叠成一个（每十年），但未成功。
> y1560s<-as.data.frame(mydata.split[6])
> for(i in 1:ncol(y1560s)){
+ cross.table<-table(y1560s[, i], y1560s[, 6])
+ data.list<-append(cross.table, data.list)
+ big.table<-do.call(cbind, data.list)
+ }
而且输出很奇怪：
> head(big.table)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [,27]
[,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [,38] [,39] [,40]
[,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [,50] [,51] [,52] [,53]
[,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] [,62] [,63] [,64] [,65] [,66]
[,67] [,68] [,69] [,70] [,71] [,72] [,73] [,74] [,75] [,76] [,77] [,78] [,79]
[,80] [,81] [,82] [,83] [,84] [,85] [,86] [,87] [,88] [,89] [,90] [,91] [,92]
原意是一张像下面这样的大表，但当时采用的过程相当繁琐。
> article<-table(y1560s[, 1], y1560s[, 6])
> compsynt<-table(y1560s[, 2], y1560s[, 6])
> position<-table(y1560s[, 3], y1560s[, 6])
> comptype<-table(y1560s[, 4], y1560s[, 6])
> substype<-table(y1560s[, 5], y1560s[, 6])
> genre<-table(y1560s[, 7], y1560s[, 6])
> big.table<-rbind(article, compsynt, position, comptype, substype, genre)
> big.table
Lieu Place
No 14 4
Yes 0 3
AdjP 0 0
DetPoss 0 4
Gap 0 0
NFClau 6 0
NP 6 2
Num 0 0
ProForm 2 1
PronPers 0 0
PronPoss 0 0
SubClau 0 0
Fin 7 5
Init 2 2
Med 5 0
Abstr 3 1
Act 0 0
Anim 0 0
Conc 2 0
Hum 1 6
Plant 2 0
Prop 0 0
SoA 6 0
Comp 0 0
Conc 0 0
Contr 6 1
Dep 0 2
Emp 0 1
Repl 4 2
Subst 4 1
Corresp 0 0
Drama 1 1
Memoirs 0 0
Non-Litt 0 0
Novel 0 1
Other 0 0
Pamphlet 0 0
Poetry 0 1
Rhetoric 0 0
Travel 0 0
Treat_Ess 13 4
Undef 0 0
是否有更简单的方法来 1) 访问存储在十年列表中的数据帧，以及 2) 将变量“VARIANT”作为十年列表中每个元素的常数堆叠所有表？
非常感谢您的建议和技巧。
CBechet。
编辑：尝试以下看起来很有希望，我只是无法将结果数据帧存储到列表中以供进一步处理。
> for(i in 1:length(mydata.split)) {
+ mytable<-as.data.frame(mydata.split[i])
+ article<-table(mytable[, 2], mytable[, 1])
+ compsynt<-table(mytable[, 3], mytable[, 1])
+ position<-table(mytable[, 4], mytable[, 1])
+ comptype<-table(mytable[, 5], mytable[, 1])
+ substype<-table(mytable[, 6], mytable[, 1])
+ genre<-table(mytable[, 7], mytable[, 1])
+ big.table<-as.data.frame(rbind(article, compsynt, position, comptype, substype, genre))
}
【问题讨论】：
-
它可能就在那里。只需尝试查看
big.table[1:5, 1:5]或类似的东西来验证信息是否在附近。 -
不可能获得所有这些列的值，因为它们实际上不存在。好像大表已经被矢量化了。