可视化绘图分析（一）

getwd() ###### Import data & Summary statistics ###### data<-read.csv("data.csv") keydata <- data[,c("Year","Month","Day","TradingDay","BA","KR")] BA <- data.frame(keydata[-length(keydata$BA), c("Year

>>阅读原文<<