D3 词云

作者

[编辑] 郑虎;

[审核] .

文云文本展示。

环境配置

系统: Cross-platform (Linux/MacOS/Windows)
编程语言: R
依赖包: data.table; jsonlite; d3wordcloud

# 安装包
if (!requireNamespace("data.table", quietly = TRUE)) {
  install.packages("data.table")
}
if (!requireNamespace("jsonlite", quietly = TRUE)) {
  install.packages("jsonlite")
}
if (!requireNamespace("d3wordcloud", quietly = TRUE)) {
  devtools::install_github("jbkunst/d3wordcloud")
}

# 加载包
library(data.table)
library(jsonlite)
library(d3wordcloud)

数据准备

# 加载数据
data <- data.table::fread(jsonlite::read_json("https://hiplot.cn/ui/basic/d3-wordcloud/data.json")$exampleData$textarea[[1]])
data <- as.data.frame(data)

# 整理数据格式
row.names(data) <- data[, 1]

# 查看数据
head(data)

         word freq
oil       oil   85
said     said   73
prices prices   48
opec     opec   42
mln       mln   31
the       the   26

可视化

# D3 词云
p <- d3wordcloud(
  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

图 1: D3 词云