SAS、R如何手動(dòng)輸入數(shù)據(jù)

一道簡(jiǎn)單的題目，將下面的數(shù)據(jù)分別手動(dòng)輸入到SAS和R中，如何實(shí)現(xiàn)？

一、SAS

解決方案：

data cust_base_info;

inputcust_no$ name$sex$ is_marriage$birthday:yymmdd10.aum_m_avgods_date:yymmdd10.@@;

format birthday yymmdd10. ods_date yymmdd10.;

cards;

1LiMingMaleTRUE1984052151428.0620170331

2ZhangHongyiFemaleTRUE198201285203.420170331

3WangSimingMaleFALSE19830806214820170331

4ZhangCongMaleTRUE19830225110092.820170331

5LiuYingFemaleTRUE1988092038004.520170331

6MaMingyueFemaleFALSE198910191168020170331

;

run;

結(jié)果：

備注：

(1)字符型的變量需要在變量名后加上'$'符，比如：'cust_no$','name$';數(shù)值型變量就不需要，比如：'aum_m_avg'。

(2)日期型的變量，比如'birthday',需要加上相應(yīng)的格式，比如:'birthday:yymmdd10.'和'format birthday yymmdd10.'。

(3)'@@'表示即時(shí)輸入時(shí)不換行，SAS按照輸入的順序依次讀取數(shù)據(jù)。

二、R語(yǔ)言

解決方案：

##在R中手動(dòng)輸入數(shù)據(jù)

cust_no <- c('1','2','3','4','5','6')

name<-c('LiMing','ZhangHongyi','WangSiming','ZhangCong','LiuYing','MaMingyue')

sex<-c('Male','Female','Male','Male','Female','Female')

is_marriage<-c('True','True','False','True','True','False')

##R語(yǔ)言中日期的默認(rèn)輸入格式為yyyy-mm-dd

birthday <- c('1984-05-31','1982-01-28','1983-08-06','1983-02-25','1988-09-20','1989-10-19')

##將日期的類型由字符型轉(zhuǎn)化為date型

birthday <- as.Date(birthday)

aum_m_avg<- c(51428.06,5203.4,2148,110092.8,38004.5,11680)

##數(shù)據(jù)處理日期，由字符型轉(zhuǎn)為date型

ods_date<- as.Date(rep('2017-03-31',6))

cust_base_info<- data.frame(cust_no,name,sex,is_marriage,birthday,aum_m_avg,ods_date)

##查看數(shù)據(jù)前6行

head(cust_base_info)

結(jié)果：

三、小結(jié)

手動(dòng)輸入數(shù)據(jù)，數(shù)值型變量最好處理，字符型變量加些格式，也好處理。難點(diǎn)在于日期的輸入。

1、SAS中，需要在input時(shí)在變量后面加上特殊的日期格式，比如'ods_date:yymmdd10.'和'format ods_date yymmdd10.'。

2、R語(yǔ)言中，默認(rèn)的輸入格式是'yyyy-mm-dd'，比如'1984-05-31'。輸入完成后，因?yàn)樗亲址妥兞浚枰獙⑺胊s.Date()函數(shù)轉(zhuǎn)化為date型，例如birthday <- as.Date(birthday)。