# Install packages
if (!requireNamespace("data.table", quietly = TRUE)) {
install.packages("data.table")
}if (!requireNamespace("jsonlite", quietly = TRUE)) {
install.packages("jsonlite")
}if (!requireNamespace("d3wordcloud", quietly = TRUE)) {
::install_github("jbkunst/d3wordcloud")
devtools
}
# Load packages
library(data.table)
library(jsonlite)
library(d3wordcloud)
D3 Wordcloud
Display the wordcloudγ
Setup
System Requirements: Cross-platform (Linux/MacOS/Windows)
Programming language: R
Dependent packages:
data.table
;jsonlite
;d3wordcloud
Data Preparation
# Load data
<- data.table::fread(jsonlite::read_json("https://hiplot.cn/ui/basic/d3-wordcloud/data.json")$exampleData$textarea[[1]])
data <- as.data.frame(data)
data
# convert data structure
row.names(data) <- data[, 1]
# View data
head(data)
word freq
oil oil 85
said said 73
prices prices 48
opec opec 42
mln mln 31
the the 26
Visualization
# D3 Wordcloud
<- d3wordcloud(
p words = data[, 1],
freqs = data[, 2],
padding = 0,
rotate.min = 0,
rotate.max = 0,
size.scale = "linear",
color.scale = "linear",
spiral = "archimedean",
font = "Arial",
rangesizefont = c(10, 90)
)
p