R-如何格式化数据表/数据框中几列的日期

怎么样:

dt <- data.frame(date1 = c("14.01.2009", "9/2/2005",  "24/1/2010", "28.01.2014"),var1 = rnorm(4,2,1), date2 = c("09.01.2009", "23/8/2005","17.01.2000", "04.01.2005"))

for(i in c(1,3)){
     dt[,i] <- dmy(dt[,i])
}

这是一个 data.table k 名为的列 dateX :

k = 2
date_cols = paste0('date', 1:k)
for (col in date_cols) {
    set(dt, j=col, value=dmy(dt[[col]])
}

你可以避免循环,但显然循环可能更快;看见 this answer

dt[,(date_cols) := lapply(.SD, dmy), .SDcols=date_cols]

如果您有aribitray列名,则假设数据看起来与OP中的一样

date_cols = names(dt)[grep("^\\d{4}(\\.|/)", names(dt))]
date_cols = c(date_cols, names(dt)[grep("(\\.|/)\\d{4}", names(dt))])

. 或 / ,您可以将其合并为一个 grep

这远不是完美的解决方案,应该更一般:

这里唯一的假设是,日期列包含由以下任一项分隔的数字: . , / 或 - .如果有其他分隔符,可以添加。但是,如果你有另一个类似的变量,但没有日期,这将不会很好地工作。

for (j in seq_along(dt)) if (all(grepl('\\d+(\\.|/|-)\\d+(\\.|/|-)\\d+',dt[,j]))) dt[,j] <- dmy(dt[,j])

这将遍历列并检查是否可以使用正则表达式显示日期。如果是这样,它会将其转换为日期并覆盖该列。

使用 data.table

for (j in seg_along(dt)) if (all(grepl('\\d+(\\.|/|-)\\d+(\\.|/|-)\\d+',dt[,j]))) set(dt,j = j, value = dmy(dt[[j]]))

all 具有 any 如果该列中有任何匹配项,则可以假设该列中的所有值都是可以读取的日期 dmy