aurora-mareviv
aurora-mareviv
/ gist:4b092d4bf555d2859beae499fb78e8af
Created
April 27, 2020 14:25
— forked from ofchurches/gist:da902a393ce8e529b33ca0a137cd5ff3
tidy_tuesday_20200421
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(tidytext) | |
| library(wordcloud) | |
| library(reshape2) | |
| library(tidygraph) | |
| library(ggraph) | |
| gdpr_text <- readr::read_tsv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-04-21/gdpr_text.tsv') | |
| #base on https://www.tidytextmining.com/sentiment.html |
aurora-mareviv
/ cSplit.R
Last active
August 29, 2015 14:07
— forked from mrdwab/cSplit.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| cSplit <- function(indt, splitCols, sep = ",", direction = "wide", | |
| makeEqual = NULL, fixed = TRUE, drop = TRUE, | |
| stripWhite = FALSE) { | |
| ## requires data.table >= 1.8.11 | |
| require(data.table) | |
| if (!is.data.table(indt)) setDT(indt) | |
| if (is.numeric(splitCols)) splitCols <- names(indt)[splitCols] | |
| if (any(!vapply(indt[, splitCols, with = FALSE], | |
| is.character, logical(1L)))) { | |
| indt[, eval(splitCols) := lapply(.SD, as.character), |