Esta solução dplyr
obtém as datas dos primeiros casos confirmados por "uf"
.
Primeiro transformam-se as datas em classe "Date"
e confirmed
em classe "numeric"
.
library(dplyr)
df <- df %>%
mutate(date = as.Date(date, "%d/%m/%Y"),
confirmed = as.numeric(as.character(confirmed)))
Agora obtém-se uma base das primeiras ocorrências de casos confirmados.
prim_conf <- df %>%
filter(confirmed > 0) %>%
group_by(uf) %>%
summarise(date = first(date))
prim_conf
## A tibble: 2 x 2
# uf date
# <chr> <date>
#1 RJ 2020-06-05
#2 SP 2020-06-03
Se se quiser também quantos casos confirmados houve a essas datas, um join com a base original vai buscar esses valores.
prim_conf %>%
ungroup() %>%
left_join(df, by = c("date", "uf"))
## A tibble: 2 x 3
# uf date confirmed
# <chr> <date> <dbl>
#1 RJ 2020-06-05 1
#2 SP 2020-06-03 1
Ou, mais simplesmente, sem desagrupar a base,
prim_conf %>% left_join(df, by = c("date", "uf"))
## A tibble: 2 x 3
# uf date confirmed
# <chr> <date> <dbl>
#1 RJ 2020-06-05 1
#2 SP 2020-06-03 1