ggplot2优雅的绘制奥运会奖牌

奥运会还在进行中，本节继续介绍如何使用ggplot2来绘制奥运奖牌;喜欢的小伙伴欢迎扫描文末二维码加入我的交流群更多精彩内容为您而准备

library(tidyverse)
install.packages("emoji")
library(emoji)

my_data <- tibble(
  place=factor(c(1,2,3)),
  n=c(15,7,24))

colors <- c("#ffca00","#999999","#b74c0e")

my_data %>% 
  mutate(emoji=medal(place)) %>% 
  ggplot(aes(place,n))+
  geom_text(aes(label=emoji))+
  geom_segment(aes(xend=place,yend=0,color=place))+
  scale_color_manual(values = colors)+
  ylim(0,NA)+
  guides(color="none")+
  theme_minimal()