在1970年之前将因子调整为as.Date（）

Question

早上好，

我已成功将每月市场回报从1900年拉到现在。但是，我遇到了将日期列强制转换为可用内容的问题。原始CSV文件的日期格式为＆＃34; 1-Jan-2000＆＃34;或＆＃34; 1970年4月1日和＃34;时间序列以＆＃34; 1-Oct-33开始。＆＃34;

我已经尝试了所有的东西，但是我遇到了一个路边的路段，试图将因素强制到日期等等。

如何仅将1970年前的数字调整为负数才能正确绘制数据？代码如下：

> data <- read.csv("spxhistoricreturns.csv")
> data$Level <- gsub(",","",data$Level)
> data$Level <- gsub(",","",data$Level)
> data$Level <- as.numeric(data$Level)
> class(data$Level)
[1] "numeric"
> class(data$Date)
[1] "factor"

我试过了rubridate函数，但数字在1970年后增加了

> data$Date <- mdy(data$Date)
> class(data$Date)
[1] "date"

所以情节看起来像这样：

请帮忙！