如何用R语言画一个橘子

之前和同学开玩笑说 R语言作图，只有你想不到，没有它做不到，当然这句话有些夸张了，但是R语言的功能确实非常强大，基本上能够满足你奇奇怪怪的想法，比如你不知道哪根弦不对，突然想画个橘子，那应该如何实现呢？这里一定要隆重介绍一下Y叔开发的包emojifont，这个包旨在为用户提供表情符号字体。话不多说，我们进入正题吧。

直接使用命令install.packages("emojifont")就可以安装了

可以看到

打开1处的链接可以看到这个包的基本的用法

比如我想送你一朵蓝色的玫瑰花

library (emojifont)
library(ggplot2)
ggplot() + 
  geom_emoji("rose", color='steelblue') + 
  theme_void()

我还想送你一橘子

ggplot() + geom_emoji("orange")+
  theme_void()

颜色好像不太对，我们来更改一下配色

ggplot() + geom_emoji("orange",color="orange")+
  theme_void()

这样看起来是不是就好多啦！

接下来送你橘子加玫瑰花

x <- seq(-sqrt(17), sqrt(17), length.out=30)
y1 <- 8*abs(x)/17 + 15* sqrt(17 - x^2)/17
y2 <- 8*abs(x)/17 - 15* sqrt(17 - x^2)/17
ggplot() + 
  geom_emoji("orange", x = x, y = c (y1, y2),
             color = "orange", size = 10)+
  geom_emoji("rose", color="red",
             x = 0, y = 0.5, size = 150)+
  theme_void()