小编awz*_*wz1的帖子

我有下面的代码，可以生成饼图和图例。有没有办法让表情符号和饼图具有相同的对应颜色，因为目前表情符号是黑色的。另外，我希望删除图例中的方形色块，并且术语“男性”和“女性”出现在正确的表情符号旁边

library(tidyverse)
library(emojifont)
load.emojifont("OpenSansEmoji.ttf")

gender<-data.frame(`Gender`=c("Male","Female"),
                   `Proportion`=c(45,55), symbol=c("\UF182","\UF183"))

ggplot(gender, aes(x="", Proportion, fill=symbol, label=symbol)) +
  geom_bar(width = 1, stat = "identity")+
  coord_polar("y", start=0)+
  xlab(NULL)+ylab(NULL) +
  theme(legend.text=element_text(family='fontawesome-webfont'))