如何按组对所有数字向量求和，期望data.table中的字符向量？

Question

我有一个数据框，由数字和字符向量组成，我试图将所有向量相加并除以4，我的代码如下

df2 =  df1%>%
  group_by(city,name,day,hour, age ,sex) %>%
  summarise_if(is.numeric, function(x) sum(x/4,na.rm =T))

我们如何在data.table包中编写相同的代码，以便我们节省时间。 提前谢谢。