data <- read.table("power.txt", sep=";",header=TRUE)

#这句顺利导入，没什么问题；用data查看数据后无误；

data$Date <- as.Date(data$Date, "%d/%m/%y")
#这句改变格式后，2006年莫名其妙成为了2020年，神奇，详情请看图片2；不知道哪里错误了，请教。因为这里错误了，下面三句也无法测试对错了。无奈，着急！帮忙解决者给高分，谢谢了！

1问，为啥时间变了。
startdate <- as.Date("2006-12-16")
enddate <- as.Date("2006-12-17")
newdata <- data[which(data$date>=startdate&data$date<=enddate)，]


#开始作图；
hist(newdata$Global_active_power, col="green")

。

这句测试后出现这个问题（提示

）