Eco Life & Bioteco

biology and technology in MY LIFE

공부/R & Python

[R]R에서 만든 data를 csv 파일로 저장하는 방법

bioteco 2020. 12. 29. 19:14

r에서 정성을 들여 만들 data를 csv 파일로 저장이 필요할 경우가 있다.

결론적으로 최종 결과물이 될텐데...

이번 포스팅에서는 csv 파일로 저장하는 방법에 대해 알아보도록 하자.


먼저 코드를 살펴보면

다음과 같다.

 

library(xlsx)
data <- read_xlsx("c:/ssss.xlsx", 2)
summary <- summary(data)
summary <- data.frame(summary(data))
summary <- summary[ , -1]
name <- c("hello", "sum")
summary = `colnames<-`(summary, name)
write.csv(summary, "c:/example.csv")

불러온 파일을 분석한 파일이라고 가정하고...

특별하게 분석할게 없어서 summary()를 하기로 했다.

열 이름을 지정해주고,

최종 결과물을 .csv 파일로 저장하는 방법이다.

 

R에서 구동을 해보면...

> library(xlsx)
> data <- read_xlsx("c:/ssss.xlsx", 2) #분석한 data라고 생각하자...
> data #data 구조를 확인하고..

# A tibble: 7 x 2
  alpha  haha
  <chr> <dbl>
1 A        20
2 B        15
3 C        10
4 D         5
5 E         9
6 F        25
7 G        30

> summary <- summary(data) #딱히 분석할게 없어서 summary를 하자...
> summary #결과 확인하고..

    alpha                haha      
 Length:7           Min.   : 5.00  
 Class :character   1st Qu.: 9.50  
 Mode  :character   Median :15.00  
                    Mean   :16.29  
                    3rd Qu.:22.50  
                    Max.   :30.00  
                    
> summary <- data.frame(summary(data)) #data를 데이터 프레임으로 만들어 주기
> summary

   Var1      Var2               Freq
1           alpha Length:7          
2           alpha Class :character  
3           alpha Mode  :character  
4           alpha               <NA>
5           alpha               <NA>
6           alpha               <NA>
7            haha    Min.   : 5.00  
8            haha    1st Qu.: 9.50  
9            haha    Median :15.00  
10           haha    Mean   :16.29  
11           haha    3rd Qu.:22.50  
12           haha    Max.   :30.00  

> summary <- summary[ , -1] #1열이 비어 있으므로 제거해주자
> summary

        Var2               Freq
1      alpha Length:7          
2      alpha Class :character  
3      alpha Mode  :character  
4      alpha               <NA>
5      alpha               <NA>
6      alpha               <NA>
7       haha    Min.   : 5.00  
8       haha    1st Qu.: 9.50  
9       haha    Median :15.00  
10      haha    Mean   :16.29  
11      haha    3rd Qu.:22.50  
12      haha    Max.   :30.00  

> name <- c("hello", "sum") #name이라는 변수에 열이름을 만들어주기
> summary = `colnames<-`(summary, name) #colnames 함수를 이용해서 열 이름 지정
> summary

       hello                sum
1      alpha Length:7          
2      alpha Class :character  
3      alpha Mode  :character  
4      alpha               <NA>
5      alpha               <NA>
6      alpha               <NA>
7       haha    Min.   : 5.00  
8       haha    1st Qu.: 9.50  
9       haha    Median :15.00  
10      haha    Mean   :16.29  
11      haha    3rd Qu.:22.50  
12      haha    Max.   :30.00  

> write.csv(summary, "c:/example.csv") #만들어진 데이터를 .csv 파일로 저장하자

다음과 같이 구동이 된다.

오늘의 포인트는

write.csv(저장할 data, "파일경로지정/파일이름.csv"

이다.

R studio에서 tab키를 누르면

더 많고 다양한 기능들을 확인 할 수 있다.

 

 

잘 저장된 파일

실제로 지정한 파일경로로 들어가면

이름도 지정한 대로 저장이 되어있다.

 

데이터 확인

r에서 확인되었던 데이터 프레임이

엑셀에서 csv파일로도 확인이 가능하다..

 

 

오늘도 누군가에게 도움이 되었길 바라며...    :)