본문 바로가기
  • "You can't manage what you can't measure" Peter Drucker
데이터 분석 (with Rstudio)

[R studio] 다른 디렉터리 (디렉토리, 폴더) 파일 불러오기 저장하기

by Vitaminymc 2023. 10. 7.
반응형

하위 디렉터리는 './'로 이동하고, 상위 디렉터리는 '../'로 이동한다.

디렉터리를 직접 지정할 수도 있다.

 

하위 디렉터리(폴더) 파일 불러오기

setwd('C:/Rstudio')

getwd()
> getwd()
[1] "C:/Rstudio"
slam_dunk <- read.csv('./10_input_data/slam_dunk_total.csv', fileEncoding = 'cp949')

str(slam_dunk)
> str(slam_dunk)
'data.frame': 48 obs. of  8 variables:
 $ uniform_no: int  4 5 6 7 8 9 10 11 12 13 ...
 $ name      : chr  "채치수" "권준호" "이달재" "송태섭" ...
 $ height    : int  197 178 164 168 170 180 189 187 170 171 ...
 $ weight    : int  90 62 NA 59 NA NA 83 75 NA NA ...
 $ blood.type: chr  "A" "A" NA "B" ...
 $ age       : int  19 19 18 18 18 18 17 17 17 17 ...
 $ position  : chr  "C" "SF" "PG" "PG" ...
 $ school    : chr  "상북" "상북" "상북" "상북" ...
slam_dunk <- read.csv('./10_input_data/slam_dunk_total.csv', fileEncoding = 'cp949')

 

300x250

하위 디렉터리(폴더)에 저장하기

library(tidyverse)

slam_dunk_shohoku <- slam_dunk %>%
  filter (school == "상북")

write.csv(slam_dunk_shohoku,'./20_output/slam_dunk_shohoku.csv', fileEncoding = 'cp949') 
write.csv(slam_dunk_shohoku,'./20_output/slam_dunk_shohoku.csv', fileEncoding = 'cp949')

다른 디렉터리(폴더) 파일 불러오기

rm(slam_dunk)  #slam_dunk Datafame 삭제
rm(slam_dunk_shohoku)  # slam_dunk_shohoku 삭제

setwd('./20_output')   #디렉터리 변경
getwd()
> getwd()
[1] "C:/Rstudio/20_output"
slam_dunk <- read.csv('../10_input_data/slam_dunk_total.csv', fileEncoding = 'cp949')  #..로 이동

str(slam_dunk)
> str(slam_dunk)
'data.frame': 48 obs. of  8 variables:
 $ uniform_no: int  4 5 6 7 8 9 10 11 12 13 ...
 $ name      : chr  "채치수" "권준호" "이달재" "송태섭" ...
 $ height    : int  197 178 164 168 170 180 189 187 170 171 ...
 $ weight    : int  90 62 NA 59 NA NA 83 75 NA NA ...
 $ blood.type: chr  "A" "A" NA "B" ...
 $ age       : int  19 19 18 18 18 18 17 17 17 17 ...
 $ position  : chr  "C" "SF" "PG" "PG" ...
 $ school    : chr  "상북" "상북" "상북" "상북" ...
rm(slam_dunk)

getwd()
> getwd()
[1] "C:/Rstudio/20_output"
slam_dunk <- read.csv('c:/Rstudio/10_input_data/slam_dunk_total.csv', fileEncoding = 'cp949')

str(slam_dunk)
> str(slam_dunk)
'data.frame': 48 obs. of  8 variables:
 $ uniform_no: int  4 5 6 7 8 9 10 11 12 13 ...
 $ name      : chr  "채치수" "권준호" "이달재" "송태섭" ...
 $ height    : int  197 178 164 168 170 180 189 187 170 171 ...
 $ weight    : int  90 62 NA 59 NA NA 83 75 NA NA ...
 $ blood.type: chr  "A" "A" NA "B" ...
 $ age       : int  19 19 18 18 18 18 17 17 17 17 ...
 $ position  : chr  "C" "SF" "PG" "PG" ...
 $ school    : chr  "상북" "상북" "상북" "상북" ...

 

다른 디렉터리(폴더)에 파일 저장하기

rm(slam_dunk)

setwd('../10_input_data')
getwd()
> getwd()
[1] "C:/Rstudio/10_input_data"
slam_dunk <- read.csv('slam_dunk_total.csv', fileEncoding = 'cp949')

slam_dunk_shohoku <- slam_dunk %>%
  filter (school == "상북")

write.csv(slam_dunk_shohoku,'../20_output/slam_dunk_shohoku.csv', fileEncoding = 'cp949')  #..로 이동
write.csv(slam_dunk_shohoku,'c:/Rstudio/20_output/slam_dunk_shohoku.csv', fileEncoding = 'cp949') 

Pixabay로부터 입수된 Memed_Nurrohmad님의 이미지 입니다.

 

728x90