Slide 1

Slide 1 text

69th Tokyo.R @kilometer BeginneR Session 1 -- Data Import / Export -- 2018.04.21 at Roppongi

Slide 2

Slide 2 text

Who!?

Slide 3

Slide 3 text

Who!? 名前: 三村 @kilometer 職業: ポスドク (こうがくはくし) 専門: 行動神経科学(霊長類) 脳イメージング 医療システム工学 R歴: ~ 10年ぐらい 流行: ラム肉

Slide 4

Slide 4 text

BeginneR Session

Slide 5

Slide 5 text

BeginneR

Slide 6

Slide 6 text

BeginneR Advanced Hoxo_m If I have seen further it is by standing on the sholders of Giants. -- Sir Isaac Newton, 1676

Slide 7

Slide 7 text

BeginneR

Slide 8

Slide 8 text

Before After BeginneR Session BeginneR BeginneR

Slide 9

Slide 9 text

Input Output Today’s talk ? ? Table data Image data Other formats Introduction Summary

Slide 10

Slide 10 text

を、始めたいんだけど。 私もそろそろ ぱそこん できるんでしょ?教えてよ。 ぱそこん いいけど、 で何がしたいの? ぱそこん って何でもできるんでしょ? でも、どうしたらいいか分かんないんだ。 一昔前

Slide 11

Slide 11 text

を、始めたいんだけど。 私もそろそろ じんこう ちのー できるんでしょ?教えてよ。 いいけど、 で何がしたいの? って何でもできるんでしょ? でも、どうしたらいいか分かんないんだ。 最近 じんこう ちのー じんこう ちのー

Slide 12

Slide 12 text

を、始めたいんだけど。 私もそろそろ できるんでしょ?教えてよ。 いいけど、 で何がしたいの? って何でもできるんでしょ? でも、どうしたらいいか分かんないんだ。

Slide 13

Slide 13 text

を、始めたいんだけど。 私もそろそろ できるんでしょ?教えてよ。 いいけど、 で何がしたいの? って何でもできるんでしょ? でも、どうしたらいいか分かんないんだ。

Slide 14

Slide 14 text

Input Output Do NOT start from here

Slide 15

Slide 15 text

Input Output Do NOT start from here Whatever …

Slide 16

Slide 16 text

Input Output Do NOT start from here Whatever … 1 2 3

Slide 17

Slide 17 text

Input Output Today’s talk ? ?

Slide 18

Slide 18 text

Integrated Development Environment RStudio https://www.rstudio.com/

Slide 19

Slide 19 text

Integrated Development Environment RStudio https://www.rstudio.com/

Slide 20

Slide 20 text

RStudio

Slide 21

Slide 21 text

Projects RStudio

Slide 22

Slide 22 text

RStudio > Project 一説には2147483647個存在するとも言われるRStudioの利 点のなかでも、 ・Rなどのソースファイルをタブで並べて表示できる ・そのタブの順番を保持できる ・タブの内容をファイルを保存せずにRStudioを終了して しまっても、編集途中の内容を保持してくれている 等が全国2147483647人のRユーザーのQOLを大いに向上さ せたのは、おそらく異論がないことと思われます。 34UVEJPͬͯͳΜͩʁ 1SPKFDUͬͯͳΜͩ !XBLVUFLB https://qiita.com/wakuteka/items/9599bb0a8985d98928d7

Slide 23

Slide 23 text

File > New Project… > New Directory > New Project hogehoge

Slide 24

Slide 24 text

hogehoge ~/Documents/R hogehoge.Rproj .Rproj.user Project Root Directory Double click!! .RData .Rhistory Auto saved project information Open project New!!

Slide 25

Slide 25 text

~/Documents/R project1 project2 project3 project4

Slide 26

Slide 26 text

Input Output Today’s talk ? ? Table data Image data Other formats Summary Introduction

Slide 27

Slide 27 text

Table format data Table data Image data Other formats Introduction Summary

Slide 28

Slide 28 text

x <- read.table("import.txt") Import Table format data object assignment operator file path function

Slide 29

Slide 29 text

x <- read.table("import.txt") Import Table format data object assignment operator file path function

Slide 30

Slide 30 text

~/Documents/ import.txt Target!! data x <- read.table("~/Documents/data/import.txt") setwd("~/Documents/data/") x <- read.table("import.txt") 1. set working directory 2. then use relative path Method②: use absolute path Method ① Import Table format data

Slide 31

Slide 31 text

x <- read.table("~/Documents/data/import.txt") setwd("~/Documents/data/") x <- read.table("import.txt") Method②: use absolute path Method ①: setwd – relative path # working directory wd <- c("~/Documents/data/") # make full path: bind characters path <- paste0(wd, "import.txt") # import data x <- read.table(path) or

Slide 32

Slide 32 text

prj ~/Documents/R prj.Rproj import.txt Default working directory (project root) Target!! x <- read.table("import.txt") can use relative path without setwd

Slide 33

Slide 33 text

x <- read.table(file) Import Table format data

Slide 34

Slide 34 text

x <- read.table(file) Import Table format data you

Slide 35

Slide 35 text

Table format data Comma-separated values (.csv) Tab-separated values (.tsv) Space-SV Semicolon-SV … Delimiter-separated values

Slide 36

Slide 36 text

Table format data x = np.genfromtxt("hoge.csv", delimiter=",") x <- read.table("hoge.csv", sep=",") Optional argument(s)

Slide 37

Slide 37 text

?read.table Usage read.table(file, header = FALSE, sep = "", quote = "∖", dec = ".", numerals = c("allow.loss", "warn.loss", "no.loss"), row.names, col.names, as.is = !stringsAsFactors, na.strings = "NA", colClasses = NA, nrows = -1, skip = 0, check.names = TRUE, fill = !blank.lines.skip, strip.white = FALSE, blank.lines.skip = TRUE, comment.char = "#", allowEscapes = FALSE, flush = FALSE, stringsAsFactors = default.stringsAsFactors(), fileEncoding = "", encoding = "unknown", text, skipNul = FALSE) Import Table format data

Slide 38

Slide 38 text

?read.table Usage read.table(file, header = FALSE, sep = "", quote = "∖", dec = ".", numerals = c("allow.loss", "warn.loss", "no.loss"), row.names, col.names, as.is = !stringsAsFactors, na.strings = "NA", colClasses = NA, nrows = -1, skip = 0, check.names = TRUE, fill = !blank.lines.skip, strip.white = FALSE, blank.lines.skip = TRUE, comment.char = "#", allowEscapes = FALSE, flush = FALSE, stringsAsFactors = default.stringsAsFactors(), fileEncoding = "", encoding = "unknown", text, skipNul = FALSE) Import Table format data You must specify If not specified, applied this default value Optional argument(s) 引数 "file" がありませんし、省略時既定値もありません If not,

Slide 39

Slide 39 text

?read.table Usage read.table(file, header = FALSE, sep = "", quote = "∖", dec = ".", numerals = c("allow.loss", "warn.loss", "no.loss"), row.names, col.names, as.is = !stringsAsFactors, na.strings = "NA", colClasses = NA, nrows = -1, skip = 0, check.names = TRUE, fill = !blank.lines.skip, strip.white = FALSE, blank.lines.skip = TRUE, comment.char = "#", allowEscapes = FALSE, flush = FALSE, stringsAsFactors = default.stringsAsFactors(), fileEncoding = "", encoding = "unknown", text, skipNul = FALSE) Import Table format data

Slide 40

Slide 40 text

?read.table Usage read.table(file, skip = 0, header = FALSE, nrows = -1, row.names, fileEncoding = "") Import Table format data

Slide 41

Slide 41 text

cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html > x sex height weight 1 F 158 51 2 F 162 55 3 M 177 72 4 M 173 57 5 M 166 64 Import Table format data

Slide 42

Slide 42 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data

Slide 43

Slide 43 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data

Slide 44

Slide 44 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data

Slide 45

Slide 45 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data

Slide 46

Slide 46 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data # 先頭_行は読み込まない # カラム名の行が存在する # 行名のカラム名/番号を指定 # データ部分の行数

Slide 47

Slide 47 text

x <- read.table( "import.txt", skip = 1, header = TRUE, row.names = "data", nrows = 5, fileEncoding = "UTF8") cf. R-Tips: 40. ファイルからデータを読み込む http://cse.naro.affrc.go.jp/takezawa/r-tips/r/40.html Import Table format data # 先頭_行は読み込まない # カラム名の行が存在する # 行名のカラム名/番号を指定 # データ部分の行数

Slide 48

Slide 48 text

第67回 初心者セッション1 @y__mattu https://github.com/ymattu/TokyoR67 Import Table format data

Slide 49

Slide 49 text

x <- read.table("import.csv", header = T, sep = "," quote = "∖", dec = ".") x <- read.csv("import.csv") Import Table format data Wrap

Slide 50

Slide 50 text

x <- read.table(file) Import Table format data you Wrappers

Slide 51

Slide 51 text

x <- read.table(file) Import Table format data you

Slide 52

Slide 52 text

Package … {utils} Package {base} Package

Slide 53

Slide 53 text

Package Package Package Package Package Package Package Package Package Package Package Package Package Package Package

Slide 54

Slide 54 text

packages you

Slide 55

Slide 55 text

cf. http://rpkg.gepuro.net/ cf. https://cran.r-project.org/web/packages/ at 2018.02.20

Slide 56

Slide 56 text

Package Default pkgs Package Package Package CRAN Guithub Package Package Package Package Package Package Package Package install.packages githubinstall

Slide 57

Slide 57 text

utils::read.table(file) Import Table format data Default installed pkg (optional) Function data.table::fread(file) Install REQUIRED

Slide 58

Slide 58 text

Import Table format data List of installed packages

Slide 59

Slide 59 text

Import Table format data data.table::fread (file) Installation (from CRAN) install.packages("data.table") Usage library("data.table") fread (file) or

Slide 60

Slide 60 text

Import Table format data library("data.table") > sessionInfo() ... other attached packages: [1] data.table_1.10.4-3 Global environment # Attach {data.table}

Slide 61

Slide 61 text

Import Table format data library("data.table") fread (file, data.table = FALSE) Fast!!! Flexible!!! Need installation Should specify: data.table =FALSE Automatic!!! Simple!!!

Slide 62

Slide 62 text

write.table(x, "export.txt") write.csv(x, "export.csv") object file path Export Table format data Wrapper

Slide 63

Slide 63 text

Input Output Today’s talk ? ? Table data Image data Other formats Summary Introduction

Slide 64

Slide 64 text

Image data Table data Image data Other formats Summary Introduction

Slide 65

Slide 65 text

Export image data ?

Slide 66

Slide 66 text

Export image data Use Graphic Device ready graphic device close graphic device draw graph(s) plotting functions ・High-level ・Low-level ・Interactive Basic Graphics in R http://bcb.dfci.harvard.edu/~aedin/courses/BiocDec2011/2.Plotting.pdf

Slide 67

Slide 67 text

Export image data Use Graphic Device ready close draw png("hoge.png") plot(iris) dev.off() High-level plotting function

Slide 68

Slide 68 text

hogehoge ~/Documents/R hogehoge.Rproj hoge.png New!!

Slide 69

Slide 69 text

Export image data Graphic Devices in {grDevices} > help(device) pdf png jpeg tiff bmp ... Write PDF graphics commands to a file PNG bitmap device JPEG bitmap device TIFF bitmap device BMP bitmap device

Slide 70

Slide 70 text

Export image data Graphic Devices in {grDevices} pdf png jpeg tiff bmp svg cairo_pdf cairo_ps Scalable vector graphics Cairographics based PDF Cairographics based PostScript

Slide 71

Slide 71 text

Export plot ready graphic device close graphic device draw graph(s) Image data processing Import & Export image x <- read***( ) write***(x, ) processing

Slide 72

Slide 72 text

png::readPNG Import image data tiff::readTIFF jpeg::readJPEG bmp::read.bmp

Slide 73

Slide 73 text

png::readPNG Import image data tiff::readTIFF jpeg::readJPEG bmp::read.bmp

Slide 74

Slide 74 text

png::readPNG Import image data tiff::readTIFF jpeg::readJPEG bmp::read.bmp EBImage::readImage magick::image_read imager::load.image OpenImageR::readImage biOps::readJpeg

Slide 75

Slide 75 text

png::readPNG Import image data tiff::readTIFF jpeg::readJPEG bmp::read.bmp EBImage::readImage magick::image_read imager::load.image OpenImageR::readImage biOps::readJpeg

Slide 76

Slide 76 text

Import image data EBImage::readImage magick::image_read Export image data EBImage::writeImage # not CRAN pkg magick::image_write # low googlability

Slide 77

Slide 77 text

Import image data EBImage::readImage magick::image_read Export image data EBImage::writeImage # not CRAN pkg magick::image_write # low googlability

Slide 78

Slide 78 text

No content

Slide 79

Slide 79 text

No content

Slide 80

Slide 80 text

No content

Slide 81

Slide 81 text

Salvador Dalí 1904-1989 profile of time wikipedia

Slide 82

Slide 82 text

http://seekr.jp/

Slide 83

Slide 83 text

No content

Slide 84

Slide 84 text

No content

Slide 85

Slide 85 text

No content

Slide 86

Slide 86 text

Input Output Today’s talk ? ? Table data Image data Other formats Summary Introduction

Slide 87

Slide 87 text

Table data Image data Other formats Other formats Summary Introduction

Slide 88

Slide 88 text

.xls or .xlsx readxl::read_excel( file, GJMFQBUI sheet = 1) TIFFUOBNFPS/P

Slide 89

Slide 89 text

.json jsonlite::read_json(file) jsonlite::write_json(file) Wrap from_json(file, simplifyVector =T) Wrap to_json(obj, file, simplifyVector =T)

Slide 90

Slide 90 text

tuneR::readMP3(file) .wav or .mp3 tuneR::readWave(file) tuneR::writeWave(object, file)

Slide 91

Slide 91 text

.sas or .dta or .sav SAS Stata SPSS haven::read_sas("hoge.sas7bdat") haven::read_dta("hoge.dta") haven::read_sav("hoge.sav")

Slide 92

Slide 92 text

Summary Table data Image data Other formats Summary Introduction

Slide 93

Slide 93 text

Input Output Do NOT start from here Whatever … 1 2 3

Slide 94

Slide 94 text

Data Import / Export ? ?

Slide 95

Slide 95 text

packages you

Slide 96

Slide 96 text

Data Import / Export ? ? {readxl} {data.table} {EBImage} {magick} {jsonlite} {tuneR} {haven} {grDevices} {utils} packages

Slide 97

Slide 97 text

~/Documents/R project1 project2 project3 project4

Slide 98

Slide 98 text

Before After BeginneR Session BeginneR BeginneR ?

Slide 99

Slide 99 text

BeginneR Advanced Hoxo_m If I have seen further it is by standing on the sholders of Giants. -- Sir Isaac Newton, 1676

Slide 100

Slide 100 text

Enjoy!! KMT˝

Slide 101

Slide 101 text

Bar DraDra KMT˝