word_stats函数来自数据帧上的qdap包应用程序

Question

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

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函数。 有可能吗？

Answer 1

text_statistic <- apply(q,1,word_stats)

这将逐行应用word_stats()并返回每行word_stats()的结果列表

Answer 2

您可以通过多种方式执行此操作，lapply或sapply将功能应用于列表或向量。

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

Answer 3

当然看看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