如何将R语言DataTable列名中的下划线替换为空格？

有几种实用方法可以实现需求：

方法1：直接修改数据框的列名 #

先通过gsub()替换列名里的下划线为空格，再生成DataTable，这种方式会修改原数据框的列名：

library(DT)

D_d <- c("34","43","43")
d_g <- c("45","54","54")
f <- data.frame(D_d,d_g)

# 替换列名下划线为空格
colnames(f) <- gsub("_", " ", colnames(f))

# 生成表格
dt::datatable(f)

方法2：在datatable函数中指定列名 #

不修改原数据框，直接在datatable()的colnames参数里设置替换后的列名：

library(DT)

D_d <- c("34","43","43")
d_g <- c("45","54","54")
f <- data.frame(D_d,d_g)

# 生成表格时指定新列名
dt::datatable(f, colnames = gsub("_", " ", colnames(f)))

方法3：用columnDefs自定义表头（适合复杂场景） #

如果需要对表头做更多自定义设置，可以用options里的columnDefs参数单独指定每一列的显示标题：

library(DT)

D_d <- c("34","43","43")
d_g <- c("45","54","54")
f <- data.frame(D_d,d_g)

dt::datatable(f, 
              options = list(
                columnDefs = list(
                  list(targets = 0, title = gsub("_", " ", colnames(f)[1])),
                  list(targets = 1, title = gsub("_", " ", colnames(f)[2]))
                )
              )
)

内容的提问来源于stack exchange，提问作者firmo23