Основание R тень между линиями, имеющими Н.

Question

Есть ли возможный способ оттенить область между двумя lines с использованием базы R с учетом этих двух ограничений:

• Я не могу использовать ggplot2, потому что другие части моего приложения не будет работа (a ShinyclickId ограничение, более конкретно, использование ggplot2clickId не дает реальных значений x и y данных).
• Я также не могу использовать polygon потому что NA s содержатся в моих данных, что делает «тень», созданный polygon, преждевременно.

Вот SSCCE (за исключением Shiny компонентов):

#my sample data 
vals_time <- c(1:10) 
vals_line1 <- c(8, 9, NA, NA, 7, 8, 7, NA, 9, 4) 
vals_line2 <- c(4, 5, NA, NA, 6, 10, 8, NA, 5, 2) 

#create line graphs without the shade 
plot(x = vals_time, y = vals_line1, type = "l", ylim = c(0,11)) 
lines(x= vals_time, y = vals_line2) 

Вот как я использовал polygon функцию:

polygon(x = c(vals_time, vals_time[10:1]), 
     y = c(vals_line1, vals_line2[10:1]), 
     col = rgb(1, 0, 0, 0.5)) 

Answer 1

Вы можете разделить свои данные, па значения, а затем используйте polygon по расщепленным данным. Сначала я бы создал data.frame. Тогда вы можете splitdata.frame на NA и использовать na.omit, чтобы опустить NA значений. Наконец, для построения данных используйте lapply и polygon.

df <- data.frame(time = vals_time, 
       l1 = vals_line1, 
       l2 = vals_line2) 
plot(x = df$time, y = df$l1, type = "l", ylim = c(0, 11)) 
lines(x = df$time, y = df$l2) 
lst <- lapply(split(df, cumsum(is.na(df$l1))), na.omit) 
lapply(lst, function(d) 
    polygon(x = c(d$time, rev(d$time)), y = c(d$l1, rev(d$l2)), col = rgb(1,0,0,0.5)))