今天的推文就简单画一个月饼(简称 画饼 )吧,没有想到太好的办法,基本的逻辑就是用ggplot2添加已经做好的图片
library(ggimage)
library(ggplot2)
library(patchwork)
ggplot()+
geom_image(aes(x=1,y=1),
image="https://www.emojiall.com/en/header-svg/%F0%9F%A5%AE.png",
size=1)+
theme_void()+
geom_text(aes(x=1,y=0.2),
label="中秋节快乐!",
size=10,hjust=0.7,vjust=1,
family="STKaiti")+
ylim(0,2) -> p1
ggplot()+
geom_image(aes(x=1,y=1),
image="https://www.emojiall.com/en/header-svg/%F0%9F%A5%AE.png",
size=1)+
theme_void()+
geom_text(aes(x=1,y=0.2),
label="教师节快乐!",
size=10,hjust=0.7,vjust=1,
family="STKaiti")+
ylim(0,2) -> p2
p1+p2
image.png
这次推文没有示例数据,数据是和代码写到一起了,代码直接在推文中复制就行