工作目录配置
setwd("/Users/chaojinwu/Downloads/Old/R/R培训课件/R培训-第二期")
getwd()
数据结构
a<-2
a<-c("TOM",12,T,F)
a[1]
a[2,3]
a[c(2,3)]
a<-matrix(1:20,nrow=5,ncol=4)
a[3,1]
a<-mtcars
a[3,1]
a[4,]
a[,2]
a[,c(3,4)]
a[1:4,1:4]
a=list(1,"字符串",c(2,3,4),matrix(1:10,nrow=5))
a[[4]][3,]
数据读取
#.xlsx
install.packages("rJava")
install.packages("openxlsx")
library(openxlsx)
setwd("/Users/chaojinwu/Downloads/Old/R/R培训课件/R培训-第一期")
data<-read.xlsx("数据.xlsx",2,encoding = "UTF-8")
data<-read.xlsx("数据.xlsx","yunying",encoding = "UTF-8")
#.csv
datacsv<-read.csv("数据csv.csv")
dataCSV
# 数据库
library(RODBC)
library(RMySQL)
myconn<-dbConnect(RMySQL::MySQL(),host="10.13.1.70",user="root",password="admin")
rmysqlGbk<-dbSendQuery(myconn,"SET NAMES gbk")
datasql<-dbGetQuery(myconn,"select * from news.dianping limit 2")
数据集
#数据读取
data<-read.table(file.choose(),header=T,sep=",",encoding = 'UTF-8')
holiday_analysis_data<-read.csv("节假日分析.csv",header = T, sep = ",",stringsAsFactors=FALSE)
holiday_base_table<-read.csv("节假日.csv")
#数据集:holiday_analysis_data
#列:holiday_analysis_data$product_id, holiday_analysis_data[1], holiday_analysis_data[,1]
#行:holiday_analysis_data[2,]
#值:holiday_analysis_data[2,2]
#查看属性:str()
#基本统计信息:summary()
#寻求帮助:?函数,?函数(), help(函数)
#默认前6行 head(holiday_analysis_data)
#默认后6行 tail(holiday_analysis_data)
#查看属性 str(holiday_analysis_data)
#查看描述 summary(holiday_analysis_data)
#重命名
names(holiday_analysis_data)
names(holiday_analysis_data)[1]<-"cash"
names(holiday_analysis_data)<-c("product_id","product_name","date","cash")
数据类型转换