我有下表，想用 T/F 值制作一個“開始”和“結束”列：
| 扳機 | 開始 | 結尾 |
|---|---|---|
| 1 | 噸 | F |
| 1 | F | F |
| 0 | F | 噸 |
| 1 | 噸 | F |
| 0 | F | 噸 |
| 1 | 噸 | F |
| 1 | F | F |
這如何在 R 中完成？
非常感謝
uj5u.com熱心網友回復：
根據：
df <- data.frame(Trigger = c(1, 1, 0, 1, 0, 1, 1))
df$Beginning <- df$Trigger & !c(0, df$Trigger[-nrow(df)])
df$End <- !df$Trigger & c(0, df$Trigger[-nrow(df)]
整理宇宙：
mutate(
df,
Beginning = Trigger & !lag(Trigger, default = FALSE),
End = !Trigger & lag(Trigger, default = TRUE) # May want to use FALSE depending on use case.
)
uj5u.com熱心網友回復：
基礎 R 解決方案：
# Import data: df => data.frame
df <- structure(list(Trigger = c(1L, 1L, 0L, 1L, 0L, 1L, 1L)),
row.names = c(NA, 7L), class = "data.frame")
# Determine if an event has begun or ended: df => data.frame
df[,c("Begining", "End")] <- t(
outer(
c(1, -1),
with(
df,
diff(
c(
0,
Trigger
)
)
),
`==`
)
)
tidyverse():: 解決方案：
library(tidyverse)
df %>%
mutate(event_diff = c(0, diff(Trigger))) %>%
map2(., c(1, -1), `==`) %>%
set_names(., c("Begining", "End")) %>%
bind_cols(Trigger = df$Trigger, .)
data.table():: 解決方案：
library(data.table)
dt <- data.table(df)
dt[,trigger_diff := c(0, diff(Trigger)),]
dt[,c("Begining", "End") := lapply(c(1, -1), function(x){trigger_diff == x}),]
dt[,trigger_diff := NULL, ]
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/318542.html