从大量清单中有条件地提取

Question

我正在尝试对我在Facebook上发送的所有消息进行字云分析。我已经从Facebook以json格式下载了所有消息，并将它们导入到 R 中。现在，它们被组织为具有以下模式的大列表

Content
-> [no of conversation (goes down to 1445)
  -> messages 
    -> sender_name
    -> content

其中sender_name是发送消息的人，内容是实际消息。最后，我的目的是列出所有已发送的消息。我可以使用以下代码进行一次对话：

Person1_messages<-content$`messages_all/inbox/conversation1/message.json`$messages$content
Person1_sender_name<-content$`messages_all/inbox/conversation1/message.json`$messages$sender_name
Person1<-cbind(Person1_messages,Person1_sender_name)

Person1.dta<-data.frame(Person1)
newdata <- Person1[ which(Person1.dta$Person1_sender_name=='My name')]

理想情况下，我想在所有对话中都这样做。因此，我的问题是如何循环播放所有对话中的消息？

这将非常有帮助。