foreign

Rで学ぶ中級データインポート

Filip Schouwenaars

Instructor, DataCamp

foreign

R コアチーム
一貫性はやや低い
非常に包括的
あらゆる外部データ形式に対応
SAS、STATA、SPSS、Systat、Weka など

install.packages("foreign")
library(foreign)

SAS

.sas7bdat はインポート不可
SASライブラリのみ対応：.xport
sas7bdat パッケージを使用

STATA

STATA 5 ～ 12
read.dta() - read.dta()

read.dta(file, 
         convert.factors = TRUE,
         convert.dates = TRUE,
         missing.type = FALSE)

read.dta()

ontime <- read.dta("ontime.dta")
ontime

         Airline March_1999 June_1999 August_1999
1            TWA       84.4      69.4        85.0
2      Southwest       80.3      77.0        80.4
3      Northwest       80.8      75.1        81.0
4       American       72.7      65.1        78.3
5          Delta       78.7      72.2        77.7
6    Continental       79.3      68.4        75.1
7         United       78.6      69.2        71.6
8     US Airways       73.6      68.9        70.1
9         Alaska       71.9      75.4        64.4
10 American West       76.5      70.3        62.5

read.dta()

ontime <- read.dta("ontime.dta")
str(ontime)

convert.factors はデフォルトで TRUE

'data.frame':    10 obs. of  4 variables:
 $ Airline    : Factor w/ 10 levels "Alaska",..: 8 7 6 2 5 4 ...
 $ March_1999 : num  84.4 80.3 80.8 72.7 78.7 79.3 78.6 ...
 $ June_1999  : num  69.4 77 75.1 65.1 72.2 68.4 69.2 68.9 ...
 $ August_1999: num  85 80.4 81 78.3 77.7 75.1 71.6 70.1 ...
 - attr(*, "datalabel")= chr "Written by R.              "
 - attr(*, "time.stamp")= chr ""
 - attr(*, "formats")= chr  "%9.0g" "%9.0g" "%9.0g" "%9.0g"
 - attr(*, "types")= int  108 100 100 100
 - attr(*, "val.labels")= chr  "Airline" "" "" ""
 - attr(*, "var.labels")= chr  "Airline" "March_1999" ...
 - attr(*, "version")= int 7
 - attr(*, "label.table")=List of 1
  ..$ Airline: Named int  1 2 3 4 5 6 7 8 9 10
  .. ..- attr(*, "names")= chr  "Alaska" "American" ...

read.dta() - convert.factors

ontime <- read.dta("ontime.dta", convert.factors = FALSE)
str(ontime)

'data.frame': 10 obs. of  4 variables:
 $ Airline    : int  8 7 6 2 5 4 9 10 1 3
 $ March_1999 : num  84.4 80.3 80.8 72.7 78.7 79.3 78.6 ...
 $ June_1999  : num  69.4 77 75.1 65.1 72.2 68.4 69.2 68.9 ...
 $ August_1999: num  85 80.4 81 78.3 77.7 75.1 71.6 70.1 ...
 - attr(*, "datalabel")= chr "Written by R.              "
 - attr(*, "time.stamp")= chr ""
 - attr(*, "formats")= chr  "%9.0g" "%9.0g" "%9.0g" "%9.0g"
 - attr(*, "types")= int  108 100 100 100
 - attr(*, "val.labels")= chr  "Airline" "" "" ""
 - attr(*, "var.labels")= chr  "Airline" "March_1999" ...
 - attr(*, "version")= int 7
 - attr(*, "label.table")=List of 1
  ..$ Airline: Named int  1 2 3 4 5 6 7 8 9 10
  .. ..- attr(*, "names")= chr  "Alaska" "American" ...

read.dta() - その他の引数

read.dta(file, 
         convert.factors = TRUE,
         convert.dates = TRUE,
         missing.type = FALSE)

convert.factors: STATAのラベル付き値をRのファクターに変換

convert.dates: STATAの日付・時刻をDateおよびPOSIXctに変換

missing.type:

FALSE の場合、すべての欠損値をNAに変換
TRUE の場合、欠損の種類を属性に保存

SPSS

read.spss()

read.spss(file,
          use.value.labels = TRUE,
          to.data.frame = FALSE)

use.value.labels: SPSSのラベル付き値をRのファクターに変換

to.data.frame: リストの代わりにデータフレームを返す

trim.factor.names

trim_values

use.missings

練習しましょう！

Rで学ぶ中級データインポート