Как мне запустить приложение для таблицы data.table?

У меня есть data.table со столбцами со 2 по 20 в виде строк с пробелами (например, , «Имя вида»). Я хочу запустить str_replace () одновременно для всех этих столбцов, чтобы все «Имя вида» стало «Имя вида». Я могу либо сделать:

data.table(apply(as.data.frame(dt[,2:dim(dt)[2], with=F]), 2, 
                               function(x){ str_replace(x," ","_") }))

, либо оставить его в качестве объекта data.table , тогда я могу делать это по одному столбцу за раз:

dt[,SpeciesName := str_replace(SpeciesName, " ", "_")

Как мне сделать это для всех столбцов со 2 по конец, аналогично столбцу выше?