연습문제2 다양한 자료 불러오기

정형데이터 가져오기

 

먼저 파일을 불러오고 저장할 위치를 정해준다

setwd("c:/Temp")

그러면 그 폴더의 파일명으로 찾을 수 있다 

인코딩은 한글깨짐 방지용

txt1 = readLines("구매후기.txt", encoding="UTF-8")

 

테이블 형식으로도 불러올 수 있다

단 header=T를 통해 컬럼명을 정해줘야한다

그렇지 않으면 컬럼명도 데이터화 된다

txt2 = read.table("전공.txt", header=T, fileEncoding="UTF-8")

 

스페이스나 탭으로 분리한게 아닌 특수 기호로 분리한 테이블을 가져올 땐 sep=""을 사용한다

txt3 = read.table("전공2.txt", header=T, sep=",", fileEncoding="UTF-8")

 

read.csv는 ',' 구분을 하지 않아도 된다

txt4 = read.csv("전공2.txt", header=T, fileEncoding="UTF-8")

 

엑셀 파일을 불러올땐 패키지를 미리 인스톨 적용해준다

install.packages("readxl")
library("readxl")

txt5 <- read_excel("c:/Temp/전공3.xlsx", "Sheet1", na="", col_names=T)

 

키보드 입력을 받는 방법

데이터를 모두 받은 후 콘솔에서 엔터 두번이면 끝난다

 

숫자를 받을 때

noes <- scan() #숫자받을때

 

문자나 날짜를 받을 때

names <- scan(what='') #문자나 날짜받을 때

 

문장을 받을 때

lines <-readline()

 

 

---

 

데이터프레임을 엑셀파일로 저장하는 방법

일단 패키지가 필요하다

install.packages("xlsx")
library("xlsx")

write.xlsx(데이터프레임 명, "c:/Temp/전공5.xlsx", sheetName="년도정보", col.names=T, row.names=F, append=T)

 

---

그래프 등을 저장하는 방법

par(mar=c(1,1,1,1))
par("mar")

windows()
x <- c(1,2,3,4,9,12)
plot(x) #그래프를 그리는 것
savePlot("x.jpg", type="jpg") #그린 그래프 이미지로 저장 png도 가능