Comment
Author: Admin | 2025-04-28
#> 1 rec.sport.hockey 53560 3.89 18#> 2 rec.sport.hockey 53602 3.83 30#> 3 rec.sport.hockey 53822 3.83 6#> 4 comp.windows.x 66905 3.32 19#> 5 comp.windows.x 66906 3.32 19#> 6 comp.os.ms-windows.misc 9904 3.29 7#> 7 rec.sport.hockey 53645 3.23 13#> 8 rec.autos 102768 3.2 5#> 9 misc.forsale 75965 3 5#> 10 misc.forsale 76037 3 5#> # ℹ 3,554 more rowsLet’s check this by looking at the most positive message in the whole dataset. To assist in this we could write a short function for printing a specified message.print_message function(group, message_id) { result cleaned_text %>% filter(newsgroup == group, id == message_id, text != "") cat(result$text, sep = "\n")}print_message("rec.sport.hockey", 53560)#> Everybody. Please send me your predictions for the Stanley Cup Playoffs!#> I want to see who people think will win.!!!!!!!#> Please Send them in this format, or something comparable:#> 1. Winner of Buffalo-Boston#> 2. Winner of Montreal-Quebec#> 3. Winner of Pittsburgh-New York#> 4. Winner of New Jersey-Washington#> 5. Winner of Chicago-(Minnesota/St.Louis)#> 6. Winner of Toronto-Detroit#> 7. Winner of Vancouver-Winnipeg#> 8. Winner of Calgary-Los Angeles#> 9. Winner of Adams Division (1-2 above)#> 10. Winner of Patrick Division (3-4 above)#> 11. Winner of Norris Division (5-6 above)#> 12. Winner of Smythe Division (7-8 above)#> 13. Winner of Wales Conference (9-10 above)#> 14. Winner of Campbell Conference (11-12 above)#> 15. Winner of Stanley Cup (13-14 above)#> I will summarize the predictions, and see who is the biggest#> INTERNET GURU PREDICTING GUY/GAL.#> Send entries to Richard Madison#> rrmadiso@napier.uwaterloo.ca#> PS: I will send my entries to one of you folks so you know when I say#> I won, that I won!!!!!It looks like this message was chosen because it uses the word “winner” many times. How about the most negative message? Turns out it’s also from the hockey site, but has a very different attitude.sentiment_messages %>% arrange(sentiment)#> # A tibble: 3,564 × 4#> newsgroup id sentiment words#> #> 1 rec.sport.hockey 53907 -3 6#> 2 sci.electronics 53899 -3 5#> 3 talk.politics.mideast 75918 -3 7#> 4 rec.autos 101627 -2.83 6#> 5 comp.graphics 37948 -2.8 5#> 6 comp.windows.x 67204 -2.7 10#> 7 talk.politics.guns 53362 -2.67 6#> 8 alt.atheism 51309 -2.6 5#> 9 comp.sys.mac.hardware 51513 -2.6 5#> 10 rec.autos 102883 -2.6 5#> # ℹ 3,554 more rowsprint_message("rec.sport.hockey", 53907)#> Losers like us? You are the fucking moron who has never heard of the Western#> Business School, or the University of Western Ontario for that matter. Why #> don't you pull your head out of your asshole
Add Comment