本文显示如何填充 图表中两条交叉线之间的区域。
让我们尝试用ggplot2绘制这个图 .
首先，加载 ggplot2 并生成要在示例中使用的数据框（我使用的是稍微修改过的数据集，因此最终结果会与原始图有所不同）。
在 ggplot2 中可以填充两条线之间的区域，但是由于我们需要线段具有不同的颜色，因此需要一些额外的工作。
> ggplot + geom_ribbon
为了改变两条线交叉点的填充颜色，需要计算交点。
slope1 <- c intcpt1 <- with intcpt2 <- with x2 <- with y3 <- with
现在，我们确保计算正确，我们目视检查交叉点的位置：
> ggplot+ geom_line + geom_line + geom_point
当我计划为上面使用 geom\_ribbon 生成的图着色时，交叉点也需要以 geom\_ribbon 的形式呈现——一个y3 复制变量就可以做到这一点。
y4 <- y3
显然还需要额外的错误检查，如上图最左边和最右边的绿点的位置所示——任何两条线都可以有一个交点，超出特定图的范围。
> cross\[which\] <- NA >segment <- findIntval
为了使 ggplot2 能够在每个线条交叉处改变填充颜色，它需要知道每个彩色区域的起点和终点。因此需要复制中间的交叉点，因为它们将是两个相邻区域的一部分，填充了不同的颜色。
x3 <- c(tail, NA) y5 <- c(tail, NA) y6 <- y5
现在需要将两条线的坐标和彩色区域的起点/终点组合成一个长格式的数据帧。
> crs1 <- css > cs2 <- cr\[!is.na\] > co3 <- rss\[!is.na\] > names(cos2) <- names > names(cos3) <- names > cmo <- rbind > omo <- rbind > ggplot(obo, aes) + geom_ribbon
每个区间都填充了不同的颜色，但我们希望将填充颜色的数量限制为两种。
> ggplot + geom_ribbon + geom_path + opts
