r - R中的华夫饼图图标

Question

我制作了一个华夫饼图，显示 9 人中有 5 人正在接受培训，但是否有可能以某种方式将方形图标更改为火柴人？

这是我的代码：

course <- read.csv("courses.csv")
courseES <- filter(course, GEO == "Ireland")



notparti <- c(round(100-courseES$Value,0))

work <- tibble(round(courseES$Value,0),notparti)

colnames(work) <- c('participating','not')


abc <- waffle(work/10, rows=2, size=0.9,  
       colors=c("#009999", "#808080"),
       title="Employed persons participating in job-related non-formal education")

abc + theme(legend.key.size = unit(10, "mm"))

结果如下：

对于方块，我想把它改成这样的火柴人：

数据： https : //appsso.eurostat.ec.europa.eu/nui/show.do?dataset=qoe_ewcs_6_1&lang=en 选择 2015 年爱尔兰值

有可能以某种方式制作这样的东西吗？提前致谢

Answer 1

如果你真的有这么小的图片，你可以通过绘制图像来创建它。您提供的图像周围有很多空白区域。我先把它剪掉了。

## Stack Overflow
## https://stackoverflow.com/q/67628271/4752675

library(png)

StickMan = readPNG("temp/wcBTO.png")

## create a green version of the stickman
GreenMan = StickMan
GreenMan[,,2] = 1


## Make a blank plot
plot(NULL ,xaxt='n',yaxt='n',bty='n',ylab='',xlab='', xlim=c(0,5), ylim=c(0,2))

## Add 5 green men
rasterImage(GreenMan,0,0,1,1)
rasterImage(GreenMan,0,1,1,2)
rasterImage(GreenMan,1,0,2,1)
rasterImage(GreenMan,1,1,2,2)
rasterImage(GreenMan,2,0,3,1)

## Add 4 black men
rasterImage(StickMan,3,0,4,1)
rasterImage(StickMan,3,1,4,2)
rasterImage(StickMan,4,0,5,1)
rasterImage(StickMan,4,1,5,2)