导入带有日期标题的csv

Question

• 我正在导入具有大量列的excel csv文件。每列表示不同的日期。例如1990年3月，1990年4月。
• 导入时，列标题将更改为数字，例如34355、34356。
• 如何保存日期？

我尝试使用r studio导入功能

sales <- read_csv("W:/Sales_data/sales.csv")

预期

First_Name Sir_name Region Jan_1980 Feb_1980 Mar_1980

George      Dell    LA      52        23      121
Lisa        Stevens NY                234     122
Peter       Hunt    TX      3242      12      123

实际

First_Name Sir_name Region  34524    34525    34526

George      Dell    LA      52        23      121
Lisa        Stevens NY                234     122
Peter       Hunt    TX      3242      12      123

非常感谢您的帮助。

Answer 1

您需要将第一个作为数据而不是标题导入。然后，更改格式以符合您的要求。最后，将第一行分配为列名，然后将其删除。

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,]