R語(yǔ)言-數(shù)據(jù)預(yù)處理

一、日期時(shí)間、字符串的處理
日期
Date: 日期類，年與日
POSIXct: 日期時(shí)間類，精確到秒，用數(shù)字表示
POSIXlt: 日期時(shí)間類，精確到秒，用列表表示
Sys.date(), date(), difftime(), ISOdate(), ISOdatetime()
#得到當(dāng)前日期時(shí)間
(d1=Sys.Date())   #日期        年月日
(d3=Sys.time())   #時(shí)間        年月日時(shí)分秒  通過format輸出指定格式的時(shí)間
(d2=date())       #日期和時(shí)間  年月日時(shí)分秒  "Fri Aug 20 11:11:00 1999"

myDate=as.Date('2007-08-09')
class(myDate)     #Date
mode(myDate)      #numeric

#日期轉(zhuǎn)字符串
as.character(myDate)

birDay=c('01/05/1986','08/11/1976') #
dates=as.Date(birDay,'%m/%d/%Y')    #向量化運(yùn)算，對(duì)向量進(jìn)行轉(zhuǎn)換
dates

# %d    天 (01~31)
# %a    縮寫星期(Mon)
# %A    星期(Monday)
# %m    月份(00~12)
# %b    縮寫的月份(Jan)
# %B    月份(January)
# %y    年份(07)
# %Y    年份(2007)
# %H    時(shí)
# %M    分#得到當(dāng)前日期時(shí)間
(d1=Sys.Date())   #日期        年月日
(d3=Sys.time())   #時(shí)間        年月日時(shí)分秒  通過format輸出指定格式的時(shí)間
(d2=date())       #日期和時(shí)間  年月日時(shí)分秒  "Fri Aug 20 11:11:00 1999"

myDate=as.Date('2007-08-09')
class(myDate)     #Date
mode(myDate)      #numeric

#日期轉(zhuǎn)字符串
as.character(myDate)

birDay=c('01/05/1986','08/11/1976') #
dates=as.Date(birDay,'%m/%d/%Y')    #向量化運(yùn)算，對(duì)向量進(jìn)行轉(zhuǎn)換
dates

# %d    天 (01~31)
# %a    縮寫星期(Mon)
# %A    星期(Monday)
# %m    月份(00~12)
# %b    縮寫的月份(Jan)
# %B    月份(January)
# %y    年份(07)
# %Y    年份(2007)
# %H    時(shí)
# %M    分
# %S    秒

td=Sys.Date()
format(td,format='%B  %d %Y %s')
format(td,format='%A,%a ')
format(Sys.time(), '%H %h %M %S %s')

#日期轉(zhuǎn)換成數(shù)字
as.integer(Sys.Date())  #自1970年1月1號(hào)至今的天數(shù)
as.integer(as.Date('1970-1-1')) #0
as.integer(as.Date('1970-1-2')) #1

sdate=as.Date('2004-10-01')
edate=as.Date('2010-10-22')
days=edate-sdate
days    #時(shí)間類型相互減，結(jié)果顯示相差的天數(shù)

ws=difftime(Sys.Date(),as.Date('1956-10-12'),units='weeks') #可以指定單位

#把年月日拼成日期
(d=ISOdate(2011,10,2));class(d)  #ISOdate 的結(jié)果是POSIXct
as.Date(ISOdate(2011,10,2))     #將結(jié)果轉(zhuǎn)換為Date

ISOdate(2011,2,30)             #不存在的日期 結(jié)果為NA

#批量轉(zhuǎn)換成日期
years=c(2010,2011,2012,2013,2014,2015)
months=1
days=c(15,20,21,19,30,3)

as.Date(ISOdate(years,months,days))

#提取日期時(shí)間的一部分
p=as.POSIXlt(Sys.Date())
p=as.POSIXlt(Sys.time())
Sys.Date()
Sys.time()
p$year + 1900   #年份需要加1900
p$mon + 1       #月份需要加1
p$mday

p$hour
p$min
p$sec
#字符串
x='hello\rwold\n'

cat(x)    #woldo  hello遇到\r光標(biāo)移到頭接著打印wold覆蓋了之前的hell變成woldo
print(x)  #
#字符串長(zhǎng)度
nchar(x)  #字符串長(zhǎng)度
length(x) #1 向量中元素的個(gè)數(shù)

#字符串拼接
board=paste('b',1:4,sep='-') #"b-1" "b-2" "b-3" "b-4"
board

mm=paste('mm',1:3,sep='-')   #"mm-1" "mm-2" "mm-3"
mm

outer(board,mm,paste,sep=':') #向量的外積
  #[,1]       [,2]       [,3]      
  #[1,] "b-1:mm-1" "b-1:mm-2" "b-1:mm-3"
  #[2,] "b-2:mm-1" "b-2:mm-2" "b-2:mm-3"
  #[3,] "b-3:mm-1" "b-3:mm-2" "b-3:mm-3"
  #[4,] "b-4:mm-1" "b-4:mm-2" "b-4:mm-3"

#拆分提取
board
substr(board,3,3) #子串
strsplit(board,'-',fixed=T) #拆分

#修改
sub('-','.',board,fixed=T) #修改指定字符
board
mm                 #"mm-1" "mm-2" "mm-3"
sub('m','p',mm)    #替換第一個(gè)匹配項(xiàng) "pm-1" "pm-2" "pm-3"
gsub('m','p',mm)   #替換全部匹配項(xiàng) "pp-1" "pp-2" "pp-3"

#查找
mm=c(mm, 'mm4')   #"mm-1" "mm-2" "mm-3" "mm4"
mm
grep('-',mm)      #1 2 3 向量中1,2,3包含'-'

regexpr('-',mm)   #匹配成功會(huì)返回位置信息，沒有找到則返回-1
二、數(shù)據(jù)預(yù)處理
保證數(shù)據(jù)質(zhì)量

準(zhǔn)確性
完整性
一致性
冗余性
時(shí)效性
...
1、提取有效數(shù)據(jù)，需要業(yè)務(wù)人員配合（主觀），及相關(guān)的技術(shù)手段保障
2、了解數(shù)據(jù)定義，統(tǒng)一對(duì)數(shù)據(jù)定義的理解
...
數(shù)據(jù)集成 : 對(duì)多數(shù)據(jù)源進(jìn)行整合
數(shù)據(jù)轉(zhuǎn)換 :
數(shù)據(jù)清洗 : 異常數(shù)據(jù)，缺失數(shù)據(jù)
數(shù)據(jù)約簡(jiǎn) : 提煉，行，列

三、數(shù)據(jù)集成
通過merge對(duì)數(shù)據(jù)進(jìn)行集成
#數(shù)據(jù)集成
#數(shù)據(jù)集成
#merge pylr::join (包::函數(shù))
(customer = data.frame(Id=c(1:6),State=c(rep("北京",3),rep("上海",3))))
(ol = data.frame(Id=c(1,4,6,7),Product=c('IPhone','Vixo','mi','Note2')))

merge(customer,ol,by=('Id'))  #inner join
merge(customer,ol,by=('Id'),all=T) # full join
merge(customer,ol,by=('Id'),all.x=T)  # left outer join 左鏈接，左邊數(shù)據(jù)都在
merge(customer,ol,by=('Id'),all.y=T)  # right outer join 右鏈接，右邊數(shù)據(jù)都在

#union 去重 在df1 和df2 有相同的列名稱下
(df1=data.frame(id=seq(0,by=3,length=5),name=paste('Zhang',seq(0,by=3,length=5))))
(df2=data.frame(id=seq(0,by=4,length=4),name=paste('Zhang',seq(0,by=4,length=4))))

rbind(df1,df2)

merge(df1,df2,all=T)     #去重,不使用by

merge(df1,df2,by=('id')) #重名的列會(huì)被更改顯示
四、數(shù)據(jù)轉(zhuǎn)換
構(gòu)造屬性
規(guī)范化（極差化、標(biāo)準(zhǔn)化）
離散化
改善分布