Блог

Когда я доберусь до этой части кода,

 res["date"] lt;- as.Date(res["date"], "%d-%m-%y")  

Я получаю эту ошибку:

 Error in charToDate(x) :   character string is not in a standard unambiguous   

Я попытался заменить «%d-%m-%y» на «%d/%m/%y» и «%d.%m.%y», и я заменил его одной датой просто для проверки, и он запустился. Я пытаюсь собрать все данные по ключевым словам из комментариев Reddit для всех дат.

Я учусь и ценю любые советы, которые у вас могут быть. Спасибо!

 library("RedditExtractoR") library("radarchart") library("tm") library("syuzhet") library("plyr") library("dplyr") library("lubridate") library("psych") install.packages("R.utils") library("R.utils")  # Getting Reddit Data  linkslt;- find_thread_urls(keywords = "Ghostbusters Afterlife",  sort_by = "comments",  subreddit = NA,  period = "all") # function to iterate through all posts content = get_thread_content(links$URL) x0 = vector() funct = function(i){ content = get_thread_content(links$url[i]) com = iconv(content$comment, to = 'utf-8') clov = get_nrc_sentiment(com) x1 = 100*colSums(clov)/sum(clov) x1 = cbind(x0, t(x1)) return(x1) } ls = 1:nrow(links) res = lapply(ls, funct) res = do.call(rbind, res) res["date"] lt;- as.Date(res["date"], "%d-%m-%y") # aggregate data by month res["month"] = floor_date((res["date"]), unit="month") # summarize all results xx = res %gt;% group_by(month) %gt;% summarise(positive = mean(positive), negative = mean(negative)) %gt;% as.data.frame()