r in mutate 조건에 맞는 열 복제 생성

library(readxl)

library(stringr)

library(openxlsx)

library(writexl)

library(dplyr)

 

getwd()

setwd('주소')

 

#엑셀파일 불러오기

h1 <- read_excel("파일명.xlsx", sheet="시트명",na="NA")

#na="NA" 안해주면 chr으로 인식해버림

 

str(h1)

 

#조건에 맞는 열 복제 생성

h01 <- mutate(h1, 추가열이름 = paste(ifelse(조건, 복사할 열이름 , NA),
                                ifelse(조건, NA, NA)))

 

#paste와 paste0의 차이점 알아내기

 

#형변환

h01$열이름 <- as.numeric(h01$열이름) #복사한 값들이 chr로 들어가있어서 numeric으로 바꿔줌

 

#불필요한 열 제거(복사시사용되었던 열은 이제 불필요해서 제거)

h01$복사시사용되었던열 <- nULL

 

#새로운 엑셀 파일로 저장

write_xlsx(h01,'저장할 이름.xlsx')