CSV ํ์ผ์ ์์ฑํ ๋ค, ์ด๋ฅผ ํน์ ๊ฒฝ๋ก์ ์ฐ๊ณ ์ฝ๊ธฐ๋ฅผ ์ํํ์ฌ ๋ณด์.
In:
df_car = mtcars
df_car %>%
head()
Out:
mpg cyl disp hp drat wt qsec vs am gear carb
Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
โท ์คํ ๋ฐ์ดํฐ๋ก R์ ๋ด์ฅ๋์ด ์๋ mtcars ๋ฐ์ดํฐ๋ฅผ ์ฌ์ฉํ ๊ฒ์ด๋ค.
In:
getwd()
Out:
'C:/Users/user/Desktop/Before'
โท getwd ํจ์๋ฅผ ์ด์ฉํ์ฌ, ํ์ฌ ์ง์ ๋ ๊ฒฝ๋ก๋ฅผ ํ์ธํ์ฌ๋ณด์.
In:
new_wd = 'C:/Users/user/Desktop/After'
setwd(new_wd)
getwd()
Out:
'C:/Users/user/Desktop/After'
โท setwd ํจ์๋ฅผ ์ด์ฉํ์ฌ, new_wd ๋ณ์์ ํ ๋น๋ ๊ฒฝ๋ก ์์น๋ก ๋ฐ๊ฟจ๋ค. getwd ํจ์๋ฅผ ํตํด ํ์ฌ ์ง์ ๋ ๊ฒฝ๋ก์ ์์น๊ฐ ๋ฐ๋์์์ ํ์ธํ ์ ์๋ค.
In:
write.csv(df_car, 'df_car.csv', row.names = TRUE)
read.csv(paste0(new_wd, '/df_car.csv')) %>%
head()
Out:
X mpg cyl disp hp drat wt qsec vs am gear carb
1 Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
2 Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
3 Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
4 Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
5 Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
6 Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
โท write.csv ํจ์๋ฅผ ํตํด ์ฒซ ๋ฒ์งธ ์ธ์์ ํ ๋น๋ ๋ฐ์ดํฐํ๋ ์์ ๋ ๋ฒ์งธ ์ธ์์ ํ ๋น๋ ์ด๋ฆ์ผ๋ก ์ ์ฅํ ์ ์๋ค. ์ด๋, row.names ์ธ์๋ฅผ ํตํด ๋ฐ์ดํฐํ๋ ์์ ํ์ ๋ํ ์ ๋ณด๋ฅผ ๋ฐ๋ก ์๋ก์ด ์ด๋ก ์ถ๊ฐํ์ฌ ์ ์ฅํ ์ง๋ฅผ ๊ฒฐ์ ํ ์ ์๋ค. ์์ ๊ฒฐ๊ณผ๋ ํ์ ๋ํ ์ ๋ณด๊ฐ X ์ด๋ก ์ถ๊ฐ๋ ๋ชจ์ต์ด๋ค.
โท read.csv ํจ์๋ฅผ ํตํด ์ง์ ๋ ๊ฒฝ๋ก์์ ํ์ผ์ ๋ถ๋ฌ์ฌ ์ ์๋ค.
In:
write.csv(df_car, 'df_car.csv', row.names = FALSE)
read.csv(paste0(new_wd, '/df_car.csv')) %>%
head()
Out:
mpg cyl disp hp drat wt qsec vs am gear carb
1 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
2 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
3 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
4 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
5 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
6 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
โท write.csv ํจ์์ row.names ์ธ์์ FALSE๋ฅผ ์ฃผ์ด, ๊ธฐ์กด df_car ๋ฐ์ดํฐํ๋ ์์ ํ์ ๋ํ ์ ๋ณด๊ฐ ํฌํจ๋์ง ์์ ๊ฒ์ ํ์ธํ ์ ์๋ค.
'Programming > R' ์นดํ ๊ณ ๋ฆฌ์ ๋ค๋ฅธ ๊ธ
dplyr ์ฌ์ฉ๋ฒ (0) | 2020.10.22 |
---|---|
๊ฒฐ์ธก์น ๋ค๋ฃจ๋ ๋ฐฉ๋ฒ (0) | 2020.10.21 |
๋ฌธ์์ด ๋ฐ์ดํฐ ๋ค๋ฃจ๋ ๋ฐฉ๋ฒ (0) | 2020.10.20 |
์๊ณ์ด ๋ฐ์ดํฐ ๋ค๋ฃจ๋ ๋ฐฉ๋ฒ (0) | 2020.10.20 |
tidyr ์ฌ์ฉ๋ฒ (0) | 2020.10.19 |