knitr::opts_chunk$set(echo = TRUE)
library(rmarkdown)
library(knitr)
setwd('Z:/data/iris')
head(read.csv('iris.csv'))
## X Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1 1 5.1 3.5 1.4 0.2 setosa
## 2 2 4.9 3.0 1.4 0.2 setosa
## 3 3 4.7 3.2 1.3 0.2 setosa
## 4 4 4.6 3.1 1.5 0.2 setosa
## 5 5 5.0 3.6 1.4 0.2 setosa
## 6 6 5.4 3.9 1.7 0.4 setosa
setwd('Z:/data');setwd('./iris')
head(read.csv('iris.csv'))
## X Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1 1 5.1 3.5 1.4 0.2 setosa
## 2 2 4.9 3.0 1.4 0.2 setosa
## 3 3 4.7 3.2 1.3 0.2 setosa
## 4 4 4.6 3.1 1.5 0.2 setosa
## 5 5 5.0 3.6 1.4 0.2 setosa
## 6 6 5.4 3.9 1.7 0.4 setosa
setwd('z:/data')
list.files()
## [1] "cars" "dataset.zip" "iris" "shpfile" "복숭아"
## [6] "새 폴더"
dir.create('cars')
## Warning in dir.create("cars"): 'cars'은 이미 존재합니다
list.files()
## [1] "cars" "dataset.zip" "iris" "shpfile" "복숭아"
## [6] "새 폴더"
setwd('./cars')
write.csv(cars,'cars.csv')
file.remve를 사용하면 cars파일이 삭제된다.
setwd('../')
list.files()
## [1] "adp" "analysis"
## [3] "application" "crawling"
## [5] "function of code view" "handling"
## [7] "mult core process" "my test code"
## [9] "script.Rproj" "sql"
## [11] "visualization"
file.remove('cars')
## Warning in file.remove("cars"): 파일 'cars'을 지울 수 없습니다, 그 이유는
## 'No such file or directory'입니다
## [1] FALSE
list.files()
## [1] "adp" "analysis"
## [3] "application" "crawling"
## [5] "function of code view" "handling"
## [7] "mult core process" "my test code"
## [9] "script.Rproj" "sql"
## [11] "visualization"
ls는 R내에 존재하는 변수를 확인하는 코드 list.files와 같이 pattern옵션으로 특정 문자가 포함되는 변수의 개수를 볼 수 있음.
assign(‘지정할 이름’,할당할 데이터 및 객체)
get(‘이름’)은 문자로된 ’이름’에 해당하는 객체를 가져오는 역할.
setwd('Z:/data/cars')
list.files()
## [1] "cars.csv"
ls()
## character(0)
for(i in list.files(pattern='csv')){
assign(gsub('.csv','',i),read.csv(i,stringsAsFactors = F))
}
ls()
## [1] "cars" "i"
head(get(ls()[1]))
## X speed dist
## 1 1 4 2
## 2 2 4 10
## 3 3 7 4
## 4 4 7 22
## 5 5 8 16
## 6 6 9 10