原文链接：http://tecdat.cn/?p=25075 

本文显示如何填充 图表中两条穿插线之间的区域。

让咱们尝试用ggplot2绘制这个图 .

首先，加载 ggplot2 并生成要在示例中应用的数据框（我应用的是略微批改过的数据集，因而最终后果会与原始图有所不同）。

在 ggplot2 中能够填充两条线之间的区域，然而因为咱们须要线段具备不同的色彩，因而须要一些额定的工作。

> ggplot +     geom_ribbon

为了扭转两条线交叉点的填充色彩，须要计算交点。

slope1 <- cintcpt1 <- withintcpt2 <- withx2 <- withy3 <- 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

最受欢迎的见解

1.R语言动态图可视化：如何、创立具备精美动画的图

2.R语言生存剖析可视化剖析

3.Python数据可视化-seaborn Iris鸢尾花数据

4.r语言对布丰投针（蒲丰投针）试验进行模仿和动静

5.R语言生存剖析数据分析可视化案例

6.r语言数据可视化剖析案例：摸索brfss数据数据分析

7.R语言动静可视化：制作历史寰球平均温度的累积动静折线图动画gif视频图

8.R语言高维数据的主成分pca、 t-SNE算法降维与可视化剖析案例报告

9.python主题LDA建模和t-SNE可视化