thesis - wordcloud & sentiment analysis

[crl6904]

hello all
I am new to R and RStudio so here goes.....
I am doing my thesis on sentiment analysis and wordcloud but am a bit stuck
Am not totally sure where my problem lies so will post a few things hoping that this will shed light on my issue
I have a file that has about 572 entries in 5 columns. Have reduced it to one column and was able to separate the words. Now I am trying to wordcloud the single entries so see how it looks and then sentiment it.
Below is the code that I am trying out
I have tried looping and even just the first entry but with no success
I really can't figure out where I am going wrong
Can someone help me please?
thanks and kind regards
Carlo

library(readxl)
data <- read_excel("C:\\Users\\XXXXX\\OneDrive\\Desktop\\ToPandas.xlsx")

data2 <-data$articlesDescription
data2


#install.packages("wordcloud2")
#install.packages("tidyverse")
#install.packages("tidytext")
#install.packages("stopwords")
#install.packages("stringr")
#install.packages("tm")

library(wordcloud2)
library(tidyverse)
library(tidytext)
library(stopwords)
library(stringr)
library(tm)

data2 <- strsplit(data2, " ")
data3 <- lapply(data2, function(x) gsub("[[:punct:]]", "", x))
data3

x <- data3[[1]]

library(plyr)
library(tibble)

df <- data3
df <- tolower(df)

df <- df %>% anti_join(stopwords)

view(df)

length(df)

for (i in 1:574){
 x <- x %>%
    anti_join(get_stopwords())%>%
    unnest_tokens(word, text) %>%
    count(words, sort = TRUE)
}

[fcas80]

I am using my text, but perhaps this will help:

library(dplyr)
library(tidytext)
library(wordcloud)
library(RColorBrewer)

textfile <- c("I give her all my love.",
"That's all I do.",
"And if you saw my love,",
"You'd love her too.",
"And I love her.",
"She gives me everything",
"And tenderly.",
"The kiss my lover brings",
"She brings to me.",
"And I love her.",
"A love like ours",
"Could never die",
"As long as I",
"Have you near me.",
"Bright are the stars that shine",
"Dark is the sky.",
"I know this love of mine",
"Will never die.",
"And I love her.",
"Bright are the stars that shine",
"Dark is the sky.",
"I know this love of mine",
"Will never die.",
"And I love her.")

df<-data.frame(line=1:length(textfile), text=textfile)
df_words <- df %>% unnest_tokens(word, text) %>%
anti_join(stop_words, by=c("word"="word")) %>%
count(word, sort = TRUE) %>%
left_join(get_sentiments(lexicon = "bing"), by = "word") %>%
mutate(sentiment = ifelse(is.na(sentiment), "neutral", sentiment))
df_words

wordcloud(word=df_words$word, freq=df_words$n, random.order = F, colors = brewer.pal(8, "Dark2"), scale=c(7,.1))

[crl6904]

hi
willtry this and let you know thanks