Nothing
## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval=FALSE, include=TRUE--------------------------------------------
# devtools::install_github('czxa/hwordcloud')
# # or just use git
# devtools::install_git("https://github.com/czxa/hwordcloud.git")
## ----eval=FALSE, include=TRUE--------------------------------------------
# dir <- system.file("examples", "hwordcloud", package = "hwordcloud")
# setwd(dir)
# shiny::shinyAppDir(".")
## ----echo=TRUE-----------------------------------------------------------
library(hwordcloud)
library(wordcloud2)
df <- head(demoFreq, 50)
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "200px")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "darkgreen")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "darkblue")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "avocado")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "darkunica")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "gray")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "gridlight")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "grid")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "sandsignika")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "300px",
theme = "sunset")
## ----echo=TRUE-----------------------------------------------------------
hwordcloud(text = df$word, size = df$freq,
width = "100%", height = "200px",
theme = "sunset",
title = "Word Cloud",
titleAlign = "center",
titleColor = "#333333",
titleSize = "20px",
subtitle = "czxa.top",
subtitleColor = "#666666",
subtitleAlign = "center",
subtitleSize = "16px")
## ----eval=FALSE----------------------------------------------------------
# hwordcloud(text = df$word, size = df$freq,
# width = "100%", height = "400px",
# theme = "sunset",
# title = "Word Cloud",
# titleAlign = "center",
# titleColor = "#333333",
# titleSize = "20px",
# subtitle = "czxa.top",
# subtitleColor = "#666666",
# subtitleAlign = "center",
# subtitleSize = "16px")
## ----eval=FALSE----------------------------------------------------------
# library(shiny)
# library(wordcloud2)
# ui <- fluidPage(
# titlePanel("word cloud example"),
# mainPanel(
# hwordcloudOutput("shinytest", height = "500px")
# )
# )
# server <- function(input, output) {
# df <- head(demoFreq, 50)
# output$shinytest <- renderHwordcloud({
# hwordcloud(text = df$word, size = df$freq)
# })
# }
# shinyApp(ui = ui, server = server)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.