如何解决计算多个文本中的单词时输出错误
我有2个数据集，其中一个包含500个不同的实体，其中测量了一些变量。另一个有500个文本，其中每个文本都属于第一个数据集中的实体。我想在这些文本中搜索3个关键字，并计算每个文本中出现总关键字的次数。
一些随机数据可以作为随机表示使用，关键字是向量，文本是包含文本的列表（我有一个列表，不知道我的示例列表在这里是否正确），而df是数据框加上我实体的变量：
keywords <- c("ab","cd","ef")
texts <- as.list("ab is ef when ef is ef","something something nothing","cd is cd is ab is ab and ef")
var1 <- c("area1","area2","area3")
var2 <- c("15","5","23")
df <- data.frame(var1,var2)
colnames(df) <- c("location","temperature")
正确的答案是关键字在第一个文本中出现4次，在第二个文本中出现0次，在第三个文本中出现5次。但是，当我尝试以下操作时，它将给出错误的输出：
df$count <- 0 # Store the results
# counting for all keywords
for(w in keywords){
df$count <-
df$count +
grepl(w,texts,ignore.case = T)
print(w)
}
df$count
关于我可以做什么的任何提示？最好带有一些示例代码？
预先感谢
解决方法
您的const createGlideRecord = () => {
return { /* ... */ }
}
const instance = createGlideRecord()
const { constructor } = instance
console.log(constructor) // Object
console.log(constructor.name) // "Object"
console.log(constructor === createGlideRecord) // false是一个列表。有什么理由吗？而是使其成为向量。
您也可以更轻松地进行计数。也许尝试使用texts软件包。那你可以做
stringr如果您无法按照上述方式设置图案，也可以尝试
library(stringr)
keywords <- c("ab","cd","ef")
texts <- c("ab is ef when ef is ef","something something nothing","cd is cd is ab is ab and ef")
str_count(texts,"ab|cd|ef")
[1] 4 0 5
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。