Как преобразовать несколько выбранных имен столбцов из целого числа в дату в r

Question

У меня есть набор данных с именами столбцов, которые выглядят следующим образом.

INPUT

Country  X1.22.20 X1.23.20 X1.24.20 X1.25.20 X1.26.20 X1.27.20 
    India      40        20      30       21       25      28
    USA        21        22      23       45       32      19
    CHINA      30        45      32       46       78      48

X1.22.20 представляет 1/22/2020

Требуемый выход

Country  01/22/20 01/23/20 01/24/20 01/25/20 01/26/20 01/27/20 
     India      40        20      30       21       25      28
     USA        21        22      23       45       32      19
     CHINA      30        45      32       46       78      48

Answer 1

Мы можем избежать этого преобразования, если мы читаем с check.names = FALSE

df1 <- read.csv('file.csv', check.names = FALSE, stringsAsFactors = FALSE)

---

, если мы уже читаем его без опции check.names = FALSE, конвертируем в класс Date и затем format

names(df1)[-1] <- format(as.Date(names(df1)[-1], format = "X%m.%d.%y"), "%m/%d/%y")

---

Или другой вариант sub

names(df1)[-1] <- sub("^X(\\d+)\\.(\\d+)\\.(\\d+)", "\\1/\\2/\\3", names(df1)[-1])