本文介绍了填充图中多条线之间的区域的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有3条线的图,如下所示:
I have got a plot with 3 lines as follows:
a = data.frame(time = c(1:100), x = rnorm(100))
b = data.frame(time = c(1:100), y = rnorm(100))
c = data.frame(time = c(1:100), z = rnorm(100))
plot(a$time, a$x, type = 'l')
lines(b$time, b$y, type = 'l')
lines(c$time, c$z, type = 'l')
我需要填充线条的最小值和最大值之间的区域,以便获得给定颜色的唯一多边形.
I need to fill the area between the lowest and maximum value of the lines so that I get a unique polygon of a given colour.
我了解 polygon
函数,但是在这种情况下我不知道如何使用它.
I know about the polygon
function but I do not know how to use it in this case.
有什么建议吗?谢谢
推荐答案
以下是一种方法:
a = data.frame(time = c(1:100), x = rnorm(100))
b = data.frame(time = c(1:100), y = rnorm(100))
c = data.frame(time = c(1:100), z = rnorm(100))
计算 pmin
和 pmax
:
min_a <- pmin(a, b, c)
max_a <- pmax(a, b, c)
照常构造多边形:
polygon(c(c$time, rev(c$time)), c(max_a$x ,rev(min_a$x)), col = rgb(1, 0, 0,0.5) )
或使用ggplot:
library(tidyverse)
data.frame(a, b, c) %>% #combine the three data frames
group_by(time) %>% # group by time for next step
mutate(max = max(x, y, z), # calculate max of x, y, z in each time
min = min(x, y, z)) %>% #same as above
select(-time.1, - time.2) %>% #discard redundant columns
gather(key, value, 2:4) %>% #convert to long format so you can color by key in the geom line call
ggplot()+
geom_ribbon(aes(x = time, ymin= min, ymax = max), fill= "red", alpha = 0.3)+
geom_line(aes(x = time, y = value, color = key))
这篇关于填充图中多条线之间的区域的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!