Мы можем использовать str_count
с stringr
library(stringr)
df1$nwords <- str_count(df1$Opinion, "\\w+")
Или с помощью for
l oop
df1$nwords <- NA_integer_
for(i in seq_along(df1$Opinion)) {
df1$nwords[i] <- length(strsplit(df1$Opinion[i], "\\s+")[[1]])
}
Или с strsplit
на весь столбец
df1$nwords <- lengths(strsplit(df1$Opinion, "\\s+"))