其他
学下图层，收下这颗小星星
前言
最近国外的疫情有点生猛，大家做好防护保重啊。周末了也不敢多走动，还是继续宅家学点东西写点笔记。
我是因为要用ggplot2画图所以才学R的。我相信做数据分析的人多多少少听过ggplot2。它是一个非常流行的做数据可视化的R包。熟悉它的绘图语法后，平时的数据可视化会变得很简单，而且也会反过来让你去思考数据的准备与清洗等等。在我还是小菜鸟的时候，当然现在了解越多越知道自己不知道的还有很多，所以现在仍然是一枚小菜鸟。
我就在想为什么ggplot2中的star不是⭐️，如果我想用自己定义的形状来画点可以不？在我老板Y叔的指点下，抽空尝试自己先写了个简单的图层。就是画小星星的图层。
安装
我已经打包放在github上了，感兴趣的自取。顺便说下，如果这篇分享的阅读量超200。那我就再分享下关于R包开发打包的微文。
if (!requireNamespace("remotes", quietly=TRUE))
install.packages("remotes")
remotes::install_github("xiangpin/ggstar")
使用
国旗
先画一面国旗，df是⭐️的坐标位置，以及大小的标签。geom_star就是实现的简单图层。
library(ggplot2)
library(ggstar)
df <- data.frame(x=c(0.13, 0.2, 0.25, 0.25, 0.2),
y=c(0.89, 0.96, 0.915, 0.855, 0.80),
size=c("B",rep("S",4)))
p <- ggplot(data=df, mapping=aes(x=x, y=y, size=size)) +
geom_star(fill="yellow",
angle=c(180, 30, 20, 180, 330),
show.legend=FALSE) +
scale_size_manual(values=c(10, 3)) +
theme_bw() +
theme(axis.text=element_blank(),
axis.ticks=element_blank(),
axis.title=element_blank(),
panel.grid=element_blank(),
panel.border=element_blank(),
panel.background=element_rect(fill="red"))
代替点图
library(ggplot2)
library(ggstar)
p2 <- ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width, fill=Species)) +
geom_star(size=3.5) +
scale_fill_manual(values=c("#999999", "#E69F00", "#56B4E9")) +
theme_bw() +
theme(panel.grid=element_blank())
p2
set.seed(1024)
year <- rep(c(2017:2020), each=3)
para <- rep(c("length", "weight", "condition"), 4)
z_score <- runif(12, min = -5, max = 5)
daf <- data.frame(year=year, parameters=para, z_score=z_score)
daf
## year parameters z_score
## 1 2017 length -2.8191084
## 2 2017 weight 4.8763424
## 3 2017 condition -1.5153811
## 4 2018 length -1.1895301
## 5 2018 weight -4.7901404
## 6 2018 condition 2.4972687
## 7 2019 length -3.3704196
## 8 2019 weight -1.8095871
## 9 2019 condition 0.9789026
## 10 2020 length 0.8799732
## 11 2020 weight -4.8230487
## 12 2020 condition 4.5879460
legend_size <- c(10,8,5,1,5,8,10)
p3 <- ggplot(data=daf, aes(year, parameters)) +
geom_star(aes(fill = z_score, size = z_score)) +
scale_fill_continuous(type = "viridis", breaks = c(-3:3)) +
scale_size(breaks = c(-3:3), range = c(1,15)) +
guides(fill = guide_legend(),
size=guide_legend(override.aes = list(size = legend_size)))
p3
与点图搭配
p4 <- ggplot(mapping=aes(x=wt, y=mpg, fill=drat)) +
geom_point(data=subset(mtcars, cyl>6),
shape=21,
size=3,
stroke=0) +
geom_star(data=subset(mtcars, cyl<=6),
size=3.2) +
scale_fill_gradient(low="blue", high="red")+
theme_bw() +
theme(panel.grid=element_blank())
p4
总结
虽然实现了⭐️图层，但还不是最佳的方法，因为当图片拉伸后，⭐️会变形，而且也不能通过geom_point的shape来进行简单映射。翻看源码后才知道geom_point还是调用了grid，所以貌似要实现拉伸不变形以及可以和geom_point一起映射的话得再了解更深点。
期待更多技术分享，请长按下方二维码关注本公众号