test

require(magrittr)

## Loading required package: magrittr

require(highcharter)

## Loading required package: highcharter

## Highcharts (www.highcharts.com) is a Highsoft software product

## which is not free for commercial and Governmental use

ptcolsumm <-  c("Usuários", "Sessões", "Pageview Único", "Pageviews",  "Tempo Médio", "Rejeição", "Taxa de Rejeição", "Taxa de Saída", "não sei", "ACENTUAÇÃO", "Teste")

organic <- data.frame(organic = as.numeric(c(186,640,278,11,267,117,41,17,38)))
organic <- as.ts(organic)

# Facebook impressions by type
teste <- hchart(organic, name = "Orgânico") %>% 
  hc_rangeSelector(enabled = TRUE) %>% 
  hc_navigator(enabled = TRUE)

Quarterly Results

By Region

teste

### BLOH BLOH 3

require(d3wordcloud)

## Loading required package: d3wordcloud

words <- c("I", "love", "this", "package", "but", "I", "don't", "like", "use", "wordclouds")
freqs <- sample(seq(length(words)))

d3wordcloud(words, freqs)