R 6日目

外部データの使用

install.packages("readxl")
library(readxl)

df_exam <- read_excel("excel_exam.xlsx")	#엑셀 파일을 불러와 df_exam에 할당
df_exam

##	id  class  math  english  science

##	1   1	   50	 98		  50
##	2   1	   60	 97		  60
##	3   1	   45	 86		  78
##	4   1	   30	 98		  58
##	5   2	   25	 80		  65
....

mean(df_exam$english)

## [1] 84.9

mean(df_exam$science)

##[1] 59.45

Excelファイルの最初の行が変数名でない場合は?

1行目のデータとして認識

Excelファイルには複数のページがありますか?

df_exam_sheet <- read_excel("excel_exam_sheet.xlsx", sheet = 3)

CSVファイルの読み込み

df_csv_exam <- read.csv("csv_exam.csv")
df_csv_exam

##   id class math english science
##1   1     1   50      98      50
##2   2     1   60      97      60
##3   3     1   45      86      78
##4   4     1   30      98      58
##5   5     2   25      80      65
...

文字を含むファイルを読み込む場合、stringAssoctors=F

df_csv_exam <- read.csv("csv_exam.csv", stringAsFactors = F

データフレームをCSVファイルとして保存

df_midterm <- data.frame(english = c(90, 80, 60, 70),
			 math = c(50, 60, 100, 20),
             		 class = c(1, 1, 2, 2))
                     
df_midterm

##   english  math  class
## 1      90   50     1
## 2      80   60     1
## 3      60  100     2
## 4      70   20     2

write.csv(df_midterm, file = "df_midterm.csv")

RDataファイルの利用

save(df_midterm, file = "df_midterm.rda")

rm(df_midterm)	#데이터 프레임 삭제

df_midterm
## error

load("df_midterm.rda")

df_midterm

##   english  math  class
## 1      90   50     1
## 2      80   60     1
## 3      60  100     2
## 4      70   20     2

df_exam <- read_excel("excel_exam.xlsx")

df_csv_exam <- read.csv("csv_exam.csv")

load("df_midterm.rda")