R语言，apexcharter包，add_point添加注释点
2020-11-20_22-53-30.png
2020-11-20_22-56-20.png
2020-11-20_22-56-52.png
# Fri Nov 20 22:50:04 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
rm(list=ls());gc()
.rs.restartR()
library(apexcharter)
# add_point添加注释点
apex(
data = iris,
aes(Sepal.Length, Sepal.Width),
"scatter"
) %>%
add_point(
x = mean(iris$Sepal.Length),
y = mean(iris$Sepal.Width)
)
# 实心点
apex(
data = iris,
aes(Sepal.Length, Sepal.Width),
"scatter"
) %>%
add_point(
x = mean(iris$Sepal.Length),
y = mean(iris$Sepal.Width),
fill = "#A6CE44", # 填充色
color = "#E8AEB0", # 边色
size = 8, # 大小
label = label(text = "嗷嗷嗷w(ﾟДﾟ)w", offsetY = 0) # 标签
)
# 多点：
clusters <- kmeans(iris[, 1:2], 3)
apex(
data = iris,
aes(Sepal.Length, Sepal.Width),
"scatter"
) %>%
add_point(
x = clusters$centers[, 1],
y = clusters$centers[, 2]
)
# Fri Nov 20 22:57:03 2020 --end
