install.packages("xlsx"); #选择china()的安装即可
library(xlsx);
shouru<-read.xlsx2(file="C:\\shouru.xlsx",sheetIndex=1);#导入C盘shouru.xlsx数据
t(shouru);#转置
plot(as.Date(0:364,orgin="2017-01-01"),t(shouru));#画图x轴2017-01-01...2017-12-31 y轴shouru表数据
指定起始日期
法1:start<-as.Date("2017-01-01")
end<-as.Date("2017-12-31")
seq(from=start,to=end,by=1);
法2:as.Date(0:365,origin="2017-01-01")