ggplot2 | 不规则面状图形

上篇推文介绍了ggplot2中的一些矩形函数，本篇来介绍一些不规则面状图形的画法。一共有如下几个函数：

• geom_ribbon

• geom_area

• geom_polygon

首先定义如下示例数据：

library(tidyverse)
dta = tibble(
  x0 = seq(-2*pi, 2*pi, 0.01*pi),
  y0 = sin(x0),
  z0 = cos(x0)
)

geom_ribbon()

该函数的映射变量中有一个x变量，两个y变量（即ymin、ymax），不规则图形是两条曲线所夹的图形。

ggplot(dta) +
  geom_ribbon(aes(x0, ymin = y0, ymax = z0),
              fill = "#66BD63", alpha = 0.5) +
  geom_line(aes(x0, y0), col = "red") +
  geom_line(aes(x0, z0), col = "blue") +
  theme_bw()

将ymin和ymax参数的值调换，不会影响所绘制的图形：

ggplot(dta) +
  geom_ribbon(aes(x0, ymin = z0, ymax = y0),
              fill = "#66BD63", alpha = 0.5) +
  geom_line(aes(x0, z0), col = "red") +
  geom_line(aes(x0, y0), col = "blue") +
  theme_bw()

同样地，也可以设置一个y变量，两个x变量（即xmin、xmax）：

ggplot(dta) +
  geom_ribbon(aes(y = x0, xmin = z0, xmax = y0),
              fill = "#66BD63", alpha = 0.5) +
  geom_path(aes(y0, x0), col = "red") +
  geom_path(aes(z0, x0), col = "blue") +
  theme_bw()

geom_area()

该函数的映射变量中x和y各一个，不规则图形是曲线与x轴所围成的图形。

ggplot(dta) +
  geom_area(aes(x0, y = y0),
            fill = "red", alpha = 0.2) +
  geom_area(aes(x0, y = z0),
            fill = "blue", alpha = 0.2) +
  geom_line(aes(x0, y0), col = "red") +
  geom_line(aes(x0, z0), col = "blue") +
  theme_bw()

❝

• 上图中，红色区域是正弦函数与x轴所围成的图形；蓝色区域为余弦函数与x轴所围成的图形；紫色区域为前二者重叠区域。

❞

geom_polygon()

该函数的映射变量中x和y各一个，不规则区域为曲线首尾相连所围成的图形。

ggplot(dta) +
  geom_polygon(aes(x0, y = y0),
            fill = "red", alpha = 0.2) +
  geom_polygon(aes(x0, y = z0),
            fill = "blue", alpha = 0.2) +
  geom_line(aes(x0, y0), col = "red") +
  geom_line(aes(x0, z0), col = "blue") +
  theme_bw()

❝

• 由于在区间内，正弦函数的首、尾点均在x轴上，因此红色区域为正弦函数与直线y = 0（即x轴）所围成的图形；

• 余弦函数的首、尾点均在直线y = 1上，因此蓝色区域为余弦函数与该直线所围成的区域。

❞

当首、尾点不在同一水平线上时：

dta2 = tibble(
  x0 = seq(-pi, 4*pi, 0.01*pi),
  y0 = sin(x0),
  z0 = cos(x0)
)

ggplot(dta2) +
  geom_polygon(aes(x0, y = z0),
            fill = "blue", alpha = 0.2) +
  geom_line(aes(x0, z0), col = "blue") +
  theme_bw()

需要注意的是，geom_polygon()函数绘制图形时，是依次连接各点并将首尾连接，因此变量元素的顺序会影响所绘制的图形。如将示例数据的行顺序随机打乱再进行图形绘制：

n = dim(dta2)[1]
dta3 <- tibble(
  x0 = sample(dta2$x0, n),
  y0 = sin(x0),
  z0 = cos(x0)
)

ggplot(dta3) +
  geom_polygon(aes(x0, y = y0),
            fill = "red", alpha = 0.2) +
  geom_polygon(aes(x0, y = z0),
            fill = "blue", alpha = 0.2) +
  geom_line(aes(x0, y0), col = "red") + 
  geom_line(aes(x0, z0), col = "blue") +
  theme_bw()