美文网首页
ggplot2优雅的绘制奥运会奖牌

ggplot2优雅的绘制奥运会奖牌

作者: R语言数据分析指南 | 来源:发表于2021-08-03 00:05 被阅读0次

奥运会还在进行中,本节继续介绍如何使用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()

相关文章

网友评论

      本文标题:ggplot2优雅的绘制奥运会奖牌

      本文链接:https://www.haomeiwen.com/subject/aijsvltx.html