作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有时间序列(日期时间、实例、值),在值中有一些 NA。如果所有实例的值 - 相同日期时间的 NA,则意味着数据收集存在差距。我需要强调那个时期。
我的示例脚本和数据:
library(tidyr)
library(ggplot2)
example.data1 <- data.frame( Instance = rep("A",11),
datetime = seq.POSIXt(as.POSIXct("2020-12-26 10:00:00"), as.POSIXct("2020-12-26 10:00:00") + 15*10, "15 sec"),
Value = c(0,1,2,3,4,5,6,NA,NA,9,10)
)
example.data2 <- data.frame( Instance = rep("B",11),
datetime = seq.POSIXt(as.POSIXct("2020-12-26 10:00:00"), as.POSIXct("2020-12-26 10:00:00") + 15*10, "15 sec"),
Value = c(1,2,NA,4,5,6,7,NA,NA,10,11)
)
example.data3 <- data.frame( Instance = rep("C",11),
datetime = seq.POSIXt(as.POSIXct("2020-12-26 10:00:00"), as.POSIXct("2020-12-26 10:00:00") + 15*10, "15 sec"),
Value = c(2,3,4,5,NA,7,8,NA,NA,11,12)
)
example.data <- bind_rows(example.data1, example.data2, example.data3)
ggplot (data = example.data, aes(x=datetime,y=Value, color = Instance)) +
geom_line(size = 1.2) +
theme_bw()
我的结果图片:
我真正需要的是:
如何实现?
更新。
下面的代码是答案不能正常工作。看看那个:
example.data.gap <- example.data %>%
group_by(datetime) %>%
summarise(is_gap = all(is.na(Value))) %>%
# Start and End
mutate(xmin = lag(datetime), xmax = lead(datetime)) %>%
filter(is_gap)
结果是 2 个重叠间隔而不是 1 个:
# A tibble: 2 x 4
datetime is_gap xmin xmax
<dttm> <lgl> <dttm> <dttm>
1 2020-12-26 10:01:45 TRUE 2020-12-26 10:01:30 2020-12-26 10:02:00
2 2020-12-26 10:02:00 TRUE 2020-12-26 10:01:45 2020-12-26 10:02:15
图片 - 如果我们使用 alpha,我们可以看到重叠:
ggplot(data = example.data, aes(x = datetime, y = Value, color = Instance)) +
geom_line(size = 1.2) +
geom_rect(data = example.data.gap, aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf), fill = "grey95", alpha = 0.5, inherit.aes = FALSE) +
theme_bw()
最佳答案
轻微修改:
example.data.gap <- example.data %>%
group_by(datetime) %>%
summarise(is_gap = all(is.na(Value)), .groups = "drop") %>%
mutate(
grp = data.table::rleid(is_gap),
prevtime = lag(datetime),
nexttime = lead(datetime)
) %>%
filter(is_gap) %>%
group_by(grp) %>%
summarize(xmin = min(prevtime), xmax = max(nexttime), .groups = "drop")
ggplot(data = example.data, aes(x = datetime, y = Value, color = Instance)) +
geom_line(size = 1.2) +
geom_rect(data = example.data.gap, aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf), fill = "grey95", alpha = 0.5, inherit.aes = FALSE) +
theme_bw()
如果您没有安装data.table
,rleid
的替代品(只有一个向量,不如data.table 可扩展)::rleid
) 是:
my_rleid <- function(x) { r <- rle(x)$lengths; rep(seq_along(r), times = r); }
关于r - 在 ggplot 图表上突出显示数据差距,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/70461650/
有没有一种方法可以“标记”对象的属性,使它们在反射中“突出”? 例如: class A { int aa, b; string s1, s2; public int AA
我是一名优秀的程序员,十分优秀!