bjulius

# This code creates an example Nested Column Chart of the type developed by Brittany Rosenau
# this code will produce the graphic below if you paste it into R Studio and run it
# to run it in a Power BI R visual, just import the csv into Power Query
# and then paste in the code below, changing df <- dataset
# note that "dataset" is the variable name used by convention in Power BI to call the table 
# resulting from the previous step

# Load necessary libraries
library(ggplot2)
library(dplyr)

bradleyboehmke

# See http://text2vec.org/glove.html for more details about text2vec
get_embeddings <- function(text) {
  
  # Create iterator over tokens
  tokens <- text2vec::space_tokenizer(text)
  
  # Create vocabulary. Terms will be unigrams (simple words).
  message("Creating vocabulary...")
  it <- text2vec::itoken(tokens, progressbar = FALSE)
  vocab <- text2vec::create_vocabulary(it)