Я не знаю, работает ли это решение, поскольку оно не было проверено на вашем наборе данных, но я считаю, что оно должно быть в порядке
library(dplyr)
df %>%
group_by(unit) %>%
mutate(event_log_value_desc_lag = lag(event_log_value_desc)) %>%
filter(event_log_value_desc != event_log_value_desc_lag | is.na(event_log_value_desc_lag))