Вам необходимо импортировать первый как данные, а не заголовки. Затем измените формат в соответствии с вашим желанием. Наконец, назначьте первую строку в качестве имени столбца и удалите ее следующим.
library(readr)
sales <- read_csv("W:/Sales_data/sales.csv",
col_names = FALSE)
sales[1,4:6] <- format(as.Date(sales[1,4:6], origin = "1899-12-30"), "%b_%Y")
colnames(sales) <- sales[1,]
sales <- sales[-1,]