使用koRpus包将有意义的名称附加到文本

Question

我在一个文件夹中有一组近3000个文本，我想使用此处答案中解释的方法进行分析： How to calculate readabilty in R with the tm package。但是，这将给我一个3000个文本的列表，我只能用它们的索引号来引用它。有没有办法将有意义的方法附加到tagged.text对象？然后，我会计算，例如作者的平均句子长度等。

Answer 1

您是否期待setNames？

setNames( list('file1','file2','file3'), c("foo", "bar", "baz") )
$foo
[1] "file1"

$bar
[1] "file2"

$baz
[1] "file3"