Как исправить объект, не найденный в следующем коде? - PullRequest
Новая
       6

Как исправить объект, не найденный в следующем коде?

0 голосов
/ 18 января 2019

Я работаю над проектом анализа настроений в R и получаю сообщение об ошибке «объект не найден» всякий раз, когда я запускаю код, используемую библиотеку и код, как показано ниже (также я не забыл указать детали API в моем коде): 

library("twitteR")
library("ROAuth")
library("NLP")
library("twitteR")
library("syuzhet")
library("tm")
library("SnowballC")
library("stringi")
library("topicmodels")
library("syuzhet")
library("ROAuth")
library("wordcloud")
library("ggplot2")

# authorisation keys
#provided by me in the code.

setup_twitter_oauth(consumer_key,consumer_secret,access_token, access_secret)
tweets_g <- searchTwitter("#google", n=500,lang = "en")

google_tweets <- twListToDF(tweets_g)
View(google_tweets)
google_text<- google_tweets$text

google_text<- tolower(google_text) 
google_text <- gsub("rt", "", google_text)
google_text <- gsub("@\\w+", "", google_text)
google_text <- gsub("[[:punct:]]", "", google_text)
google_text <- gsub("http\\w+", "", google_text)
google_text <- gsub("[ |\t]{2,}", "", google_text)
google_text <- gsub("^ ", "", google_text)
google_text <- gsub(" $", "", google_text)

#clean up by removing stop words
google_tweets.text.corpus <- tm_map(google_tweets.text.corpus, function(x)removeWords(x,stopwords()))

#generate wordcloud
wordcloud(google_tweets.text.corpus,min.freq = 10,colors=brewer.pal(8, "Dark2"),random.color = TRUE,max.words = 500)

#getting emotions using in-built function
mysentiment_google<-get_nrc_sentiment((google_text))

#calculationg total score for each sentiment
Sentimentscores_google<-data.frame(colSums(mysentiment_google[,]))

names(Sentimentscores_google)<-"Score"
Sentimentscores_google<-cbind("sentiment"=rownames(Sentimentscores_google),Sentimentscores_google)
rownames(Sentimentscores_google)<-NULL

#plotting the sentiments with scores
ggplot(data=Sentimentscores_google,aes(x=sentiment,y=Score))+geom_bar(aes(fill=sentiment),stat = "identity")+
  theme(legend.position="none")+
  xlab("Sentiments")+ylab("scores")+ggtitle("Sentiments of people behind the tweets on tech giant GOOGLE")

появляется сообщение об ошибке при запуске сценария R: 

Loading required package: RColorBrewer

Attaching package: ‘ggplot2’

The following object is masked from ‘package:NLP’:

    annotate

[1] "Using direct authentication"
Error in tm_map(google_text.corpus, function(x) removeWords(x, stopwords())) :
  object 'google_text.corpus' not found
Execution halted````

Ответы [ 2 ]

0 голосов
/ 19 января 2019

Попробуйте удалить корпус. Просто замените свой код на этот фрагмент 


#generate wordcloud
wordcloud(min.freq = 10,colors=brewer.pal(8, "Dark2"),random.color = TRUE,max.words = 500)
0 голосов
/ 18 января 2019

Ключ object 'google_text.corpus' not found Вы пытаетесь вызвать переменную, которую вы не определили.Вы должны спросить себя, что, по вашему мнению, должно быть google_text.corpus, а затем определить его, как вы делали это для переменной google_tweets со строкой google_tweets <- twListToDF(tweets_g).

...