R语言绘制ggplot2双色XY-面积图组合交叉折线图数据可视化

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

由Kaizong Ye,Liao Bao撰写

让我们尝试用ggplot2绘制这个图 :

首先,加载 ggplot2 并生成要在示例中使用的数据框(我使用的是稍微修改过的数据集,因此最终结果会与原始图有所不同)。

在 ggplot2 中可以填充两条线之间的区域,但是由于我们需要线段具有不同的颜色,因此需要一些额外的工作。

> ggplot +
     geom_ribbon

为了改变两条线交叉点的填充颜色,需要计算交点。

slope1 <- c
intcpt1 <- with
intcpt2 <- with
x2 <- with
y3 <- with

现在,我们确保计算正确,我们目视检查交叉点的位置:


课程

R语言数据分析挖掘必知必会

从数据获取和清理开始,有目的的进行探索性分析与可视化。让数据从生涩的资料,摇身成为有温度的故事。

立即参加

> ggplot+ geom_line +
     geom_line +
     geom_point

当我计划为上面使用 geom\_ribbon 生成的图着色时,交叉点也需要以 geom\_ribbon 的形式呈现——一个y3 复制变量就可以做到这一点。


R语言空气污染数据的地理空间可视化和分析:颗粒物2.5(PM2.5)和空气质量指数(AQI)

阅读文章


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

可下载资源

关于作者

Kaizong Ye拓端研究室(TRL)的研究员。

本文借鉴了作者最近为《R语言数据分析挖掘必知必会 》课堂做的准备。

​非常感谢您阅读本文,如需帮助请联系我们!

 
QQ在线咨询
售前咨询热线
15121130882
售后咨询热线
0571-63341498

关注有关新文章的微信公众号


永远不要错过任何见解。当新文章发表时,我们会通过微信公众号向您推送。

技术干货

最新洞察

This will close in 0 seconds