빅데이터 5일차 - 복습

사용한 데이터 제주 올레코스 현황

https://www.data.go.kr/data/15043496/fileData.do

공공데이터 포털

 

getwd()
setwd("D:/R")
jeju <- read.csv("jeju.csv",encoding="utf-8")
names(jeju) <- c("course","course_name","km","time","start_end","date")
head(jeju)
str(jeju)
summary(jeju)
par(mfrow=c(1,4)) # 1*4 개의 가상화면 분할
colors <- c('Royal Blue','Spring Green','Red 4','Maroon','Gold 1','Magenta 1')
barplot(table(jeju$time),
        main="barplot_jeju_time",
        col=colors)
pie(table(jeju$time),
    main="pie_jeju_time",
    col=colors)
hist(table(jeju$km),
      main="histogram_jeju_km",
     col=colors)
boxplot(jeju$km,
        main="boxplot_jeju_km",
        col=colors)

[그림1] 예제 출력

[그림2] 예제 출력

[그림3] 그래프 출력 

 

출처 : 모두를 위한 R 데이터 분석 입문 한빛아카데미