data.csv
seller.csv
###########安装包###############
#install.packages("lubridate") 包含month()
#install.packages("reshape") 包含reshape()
library(lubridate) #?如何查找函数在哪个包
library(reshape)
install.packages("RMySQL")
#########工作空间配置##############
setwd("E:\\work\\R培训") #可以用 / or \\
getwd()
dir.create("name")
setwd("name")
setwd("..")
########数据输入##############
data<-read.csv("data.csv",stringsAsFactors=FALSE)
seller<-read.csv("seller.csv",strin