R for 循环：使用拆分创建数据帧？

Question

我有要按日期分隔的数据，我已设法通过以下方式手动执行此操作：

tsssplit <- split(tss, tss$created_at)

然后为我使用的每个列表创建数据框。

t1 <- tsssplit[[1]]

t2 <- tsssplit[[2]]

但我不知道我需要多少拆分，因为有时 og 数据框可能有 6 个日期要拆分，有时可能有 5 个，等等。所以我想创建一个 for 循环。

在 for 循环中，我想合并此代码，它连接到 function：

bscore3 <- score.sentiment(t3$cleaned_text,pos.words,neg.words,.progress='text')
score3 <- as.integer(bscore3$score[[1]])

然后我希望能够创建一个新的数据框，其中包含每个列表的分数。

所以本质上我希望for循环：

1. 使用 split 将数据拆分为列表
2. 将每个列表拆分为每个不同日期的单独数据框
3. 为每个数据框打分
4. 把它放到一个新的数据框中

只要我能在最后想出分数的可视化，就不必完全像这样。

谢谢！

Answer 1

不建议在全局环境中创建单独的数据框，它们很难跟踪。 而是将它们放在一个列表中。 通过使用split和创建数据框列表，您已经很好地开始了。 然后，您可以遍历列表中的每个 dataframe 并在每个上应用 function。

按此by将如下所示：

by(tss, tss$created_at, function(x) {
  bscore3 <- score.sentiment(x$cleaned_text,pos.words,neg.words,.progress='text')
  score3 <- as.integer(bscore3$score[[1]])
  return(score3)
}) -> result

result