# 安装包
if (!requireNamespace("echarts4r", quietly = TRUE)) {
install.packages("echarts4r")
}if (!requireNamespace("echarts4r.assets", quietly = TRUE)) {
install.packages("echarts4r.assets")
}
# 加载包
library(echarts4r)
library(echarts4r.assets)
自定义图标散点图
可自定义图标的散点图。
环境配置
系统: Cross-platform (Linux/MacOS/Windows)
编程语言: R
依赖包:
echarts4r
;echarts4r.assets
数据准备
# 加载数据
<- read.delim("files/Hiplot/035-custom-icon-scatter-data.txt", header = T)
data
# 整理数据格式
<- data.frame(
draw_data x = data[["mpg"]],
y = data[["wt"]],
size = data[["qsec"]]
)rm(data)
# 查看数据
head(draw_data)
x y size
1 21.0 2.620 16.46
2 21.0 2.875 17.02
3 22.8 2.320 18.61
4 21.4 3.215 19.44
5 18.7 3.440 17.02
6 18.1 3.460 20.22
可视化
# 自定义图标散点图
<- draw_data |>
p e_charts(x) |>
e_scatter(
y,
size,symbol = ea_icons("warning"),
name = "warning"
)
p