whatsapp人均平均字长的R代码

我是R的新手。目前，我已经解析了来自Whatsapp聊天组的消息，现在我正在尝试可视化每个成员的平均字长数据

我使用这个代码来计算每次“Eddy”消息的字数

for（i在grep中（“Eddy”，chatcv[，2]，fixed=TRUE））{
长度（即.na（chatcv[i，4:111]））
}

这不会返回任何输出或任何错误消息

我的意图是将总长度加起来，然后除以一个人的信息次数。最后，我计划将平均值作为向量，并将其可视化为条形图

---

谢谢你

你的语法错了。你应使用：

allnames <- chatcsv[,2] #or cimilar
eddyindexes <- grep("Eddy",allnames,fixed=TRUE) #return indexes of eddys chats
eddyschats <- chatcsv[eddyindexes, 4:100]
eddysavgcharacters <- apply[eddyschats,function(x) mean(nchar(x))] #average nchars of eddys chats

---

allnames我认为您来自一种非函数式语言。（不是一种功能失调的语言，而是一种非“功能性语言”。）您的表达式
length（即（！is.na（chatcv[i，4:111]）
将不起任何作用，因为它位于
for
循环中，但未指定任何名称。它就这样消失了。您需要使用
res创建一个命名向量（比如
res
），请使这个问题重现。这包括示例代码（包括列出非基本R包）、示例数据（例如，
dput（head（x））
）和预期输出。参考文献：，还有。谢谢。所以我可以说，当使用GRIP时，你不能使用字符向量参数的子集吗？如果答案是好的，请考虑接受它。Grep返回True或False，因此您应该使用which（）只获取真值，另一个问题是您在循环中除了调用length而不将其分配给任何变量之外，什么都不做。您应该这样做，或者如果您只想打印该长度，请使用print。
 res[i] <-  length(which(!is.na(chatcsv[i,4:111])))