Excelからデータを読み込む

readxl パッケージを使う

library(readxl)
d <- read_excel(path = "data/car-random.xlsx", sheet = 1)
d

## # A tibble: 10 x 3
##    番号  車                 速度 
##    <chr> <chr>              <chr>
##  1 01    Fiat X1-9          99   
##  2 02    Merc 450SLC        100.5
##  3 03    Dodge Challenger   118.4
##  4 04    Porsche 914-2      95.1 
##  5 05    Chrysler Imperial  102.7
##  6 06    Lotus Europa       50.9 
##  7 07    Fiat X1-9          106.8
##  8 08    Valiant            116.7
##  9 09    Cadillac Fleetwood 110.3
## 10 10    Honda Civic        95.3

クリップボードを使う

• 読みこみたいExcelファイルを開いて，データをクリップボードにコピー
• header=TRUE: 最初の行をカラム名として使う
• sep="\t": データの区切り（行ごとの列の区切り）.Excel は タブ文字（\t）

d <- read.table("clipboard", header=TRUE, sep="\t")

CSVに変換してから読み込む

• Excel を開いて，CSVファイルとして保存する（ファイル > 名前を付けて保存）
• fileEncodingは，
  • CSV UTF-8 で保存した場合: UTF-8-BOM
  • CSV で保存した場合は: SJIS

d <- read.csv(file = "data/car-random.csv", header=TRUE, fileEncoding = "UTF-8-BOM")
d

##    番号                 車  速度
## 1     1          Fiat X1-9  99.0
## 2     2        Merc 450SLC 100.5
## 3     3   Dodge Challenger 118.4
## 4     4      Porsche 914-2  95.1
## 5     5  Chrysler Imperial 102.7
## 6     6       Lotus Europa  50.9
## 7     7          Fiat X1-9 106.8
## 8     8            Valiant 116.7
## 9     9 Cadillac Fleetwood 110.3
## 10   10        Honda Civic  95.3