Use data.table function instead of dplyr in R

[JojoSouza]

I would like to use the data.table function instead of dplyr to calculate m. How can I do this?

  library(dplyr)
     
    df1 <- structure(
  list( Id = c("1","1","1","1","1","1","1","1"),
 date1= c("2021-06-28","2021-06-28","2021-06-28","2021-06-28","2021-06-28",
                "2021-06-28","2021-06-28","2021-06-28"),
       date2 = c("2021-06-25","2021-06-25","2021-06-27","2021-07-07","2021-07-07","2021-07-09","2021-07-09","2021-07-09"),
       Category = c("FDE","ABC","ABC","ABC","CDE","FGE","ABC","CDE"),
       Week= c("Wednesday","Wednesday","Friday","Wednesday","Wednesday","Friday","Friday","Friday"),
       DR1 = c(4,1,4,3,6,4,3,5),
       DR01 = c(4,1,4,3,3,4,3,6), DR02= c(4,2,6,7,3,2,7,4),DR03= c(9,5,4,3,3,2,1,5),
       DR04 = c(5,4,3,3,6,2,1,9),DR05 = c(5,4,5,3,6,2,1,9),
       DR06 = c(2,4,3,3,5,6,7,8),DR07 = c(2,5,4,4,9,4,7,8),
       DR08 = c(4,0,0,1,2,4,4,4),DR09 = c(2,5,4,4,9,4,7,8),DR010 = c(2,5,4,4,9,4,7,8),DR011 = c(4,7,3,2,2,7,7,7), 
       DR012 = c(4,4,2,3,0,4,4,5),DR013 = c(4,4,1,4,0,3,2,0),DR014 = c(0,3,1,2,0,2,2,2)),
  class = "data.frame", row.names = c(NA, -8L))
    
    dmda<-"2021-07-09"
    CategoryChosse<-"CDE"
    

m<-df1 %>%
group_by(Id,Category,Week) %>%
dplyr::summarize(dplyr::across(starts_with("DR1"), mean), .groups = 'drop')

m<-subset(m, Week == df1$Week[match(ymd(dmda), ymd(df1$date2))] & Category == 
CategoryChosse)$DR1
[1] 5

[pathos]

I'm assuming you want this for speed. You definitely want to check out tidytable:

Tidy Interface to data.table