r - NA 时有条件地遮蔽 dygraph 时间序列的区域

Question

我想添加背景阴影，其中时间序列中的值为 NA ，无需指定日期范围。 dygraphs 中的基本着色选项像这样工作:

library(dygraphs)
dygraph(nhtemp, main = "New Haven Temperatures") %>% 
  dyShading(from = "1920-1-1", to = "1930-1-1") %>%
  dyShading(from = "1940-1-1", to = "1950-1-1")

我想为缺少的时间序列的约 50 个区域添加背景阴影，因此手动执行此操作是不可行的。举个简单的例子，我怎么知道 dygraphs为这个时间序列中的缺失值添加背景阴影而不指定日期范围？

nhtemp2 <- nhtemp
nhtemp2[10:20] <- NA
dygraph(nhtemp2, main = "New Haven Temperatures")

Answer 1

一个可能的解决方案:

library(dygraphs)

nhtemp2 <- nhtemp
nhtemp2[10:20] <- NA
nhtemp2[30:45] <- NA

# Convert years to DyShading date format
dates <- sprintf('%d-1-1',time(nhtemp2))

# find NA intervals
start = dates[which(diff(is.na(nhtemp2))==1)]
stop = dates[which(diff(is.na(nhtemp2))==-1)+1] 


g <- dygraph(nhtemp2, main = "New Haven Temperatures")

# Loop over NA intervals to add shading
for (i in 1:length(start)) {
  g <- dygraphs::dyShading(
    g,
    from  = start[i],
    to    = stop[i],
    color = 'lightgrey')
}
g

请注意，这仅适用于时间序列不以 NA 开头的情况。 ，但可以改进以应对此问题。