0
点赞
收藏
分享

微信扫一扫

拓端tecdat|R语言绘制ggplot2双色XY-面积图组合交叉折线图可视化

他说Python 2022-11-10 阅读 53

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

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

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

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

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

  1.  > ggplot +
  2.  geom_ribbon

拓端tecdat|R语言绘制ggplot2双色XY-面积图组合交叉折线图可视化_r语言_02

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

  1.  slope1 <- c
  2.  intcpt1 <- with
  3.  intcpt2 <- with
  4.  x2 <- with
  5.  y3 <- with

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

  1.  > ggplot+ geom_line +
  2.  geom_line +
  3.  geom_point

拓端tecdat|R语言绘制ggplot2双色XY-面积图组合交叉折线图可视化_python_03

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

y4 <- y3

显然还需要额外的错误检查,如上图最左边和最右边的绿点的位置所示——任何两条线都可以有一个交点,超出特定图的范围。

  1.  > cross[which] <- NA
  2.  >segment <- findIntval

为了使 ggplot2 能够在每个线条交叉处改变填充颜色,它需要知道每个彩色区域的起点和终点。因此需要复制中间的交叉点,因为它们将是两个相邻区域的一部分,填充了不同的颜色。

  1.  x3 <- c(tail, NA)
  2.  y5 <- c(tail, NA)
  3.  y6 <- y5

现在需要将两条线的坐标和彩色区域的起点/终点组合成一个长格式的数据帧。

  1.  > crs1 <- css
  2.  > cs2 <- cr[!is.na]
  3.  > co3 <- rss[!is.na]
  4.  > names(cos2) <- names
  5.  > names(cos3) <- names
  6.  > cmo <- rbind
  7.  > omo <- rbind
  8.   
  9.  > ggplot(obo, aes) +
  10.  geom_ribbon

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

每个区间都填充了不同的颜色,但我们希望将填充颜色的数量限制为两种。

  1.  > ggplot + geom_ribbon +
  2.  geom_path + opts

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

拓端tecdat|R语言绘制ggplot2双色XY-面积图组合交叉折线图可视化_python_06



举报

相关推荐

R语言绘制折线图

0 条评论