1

我有一个数据框，其中一列包含字符串。

q = data.frame(number=1:2,text=c("The surcingle hung in ribands from my body.", "But a glance will show the fallacy of this idea."))

我想对每个单独的记录使用 word_stats 函数。可能吗？

4

3 回答 3

0 
text_statistic <- apply(q,1,word_stats)

这将word_stats()逐行应用并返回一个列表，其中包含word_stats()每一行的结果

于 2017-11-07T08:18:57.190 回答
0

当然看看grouping.var论据：

dat = data.frame(number=1:2,text=c("The surcingle hung in ribands from my body.", "But a glance will show the fallacy of this idea."))


with(dat, qdap::word_stats(text, number))

##   number n.sent n.words n.char n.syl n.poly wps cps sps psps   cpw   spw pspw n.state p.state n.hapax grow.rate
## 1 2           1      10     38    14      2  10  38  14    2 3.800 1.400 .200       1       1      10         1
## 2 1           1       8     35    12      1   8  35  12    1 4.375 1.500 .125       1       1       8         1
于 2017-11-07T20:54:37.253 回答
0

您可以通过多种方式执行此操作，lapply或者sapply在列表或向量上应用函数。

word_stats <- function(x) {length(unlist(strsplit(x, ' ')))} sapply(q$text, word_stats)

于 2017-11-07T08:20:14.843 回答