ggpage

ggpage copied to clipboard

``` r library(ggpage) library(tidytext) library(tidyverse) text % unnest_tokens(text, text, token = function(x) str_split(x, "\n")) %>% ggpage_quick() #> Warning: Use of `data_1$x_space_right` is discouraged. Use `x_space_right` #> instead. #> Warning: Use...

EmilHvitfeldt

If enabled would allow for each word to have a paragraph, sentence and word id.

EmilHvitfeldt

Old code: ``` [library](https://www.rdocumentation.org/packages/base/topics/library)(paletteer) sentiment_types % [filter](https://www.rdocumentation.org/packages/stats/topics/filter)(lexicon == "nrc") %>% pull(sentiment) %>% [unique](https://www.rdocumentation.org/packages/base/topics/unique)() prebuild % left_join([filter](https://www.rdocumentation.org/packages/stats/topics/filter)([get_sentiments](https://www.rdocumentation.org/packages/tidytext/topics/get_sentiments)("nrc"), sentiment == .x), by = "word") %>% mutate(sentiment_state = .x, score = [as.numeric](https://www.rdocumentation.org/packages/base/topics/numeric)((sentiment)), score_smooth...

AnttiRask

Incorrect: `midbuild % mutate(score = ifelse(is.na(score), 0, score), score_smooth = zoo::rollmean(score, .x, 0), score_smooth = score_smooth / max(score_smooth), rolls = .x))` Correct: `midbuild % mutate(score = ifelse(is.na(value), 0, value), score_smooth...

AnttiRask