#11. 기초 시각화 [ R 내장 함수 ]

기초 시각화 [ R 내장 함수 ]

[ 해당 자료는 알까기2를 참조하였습니다. ]

# 빠른 탐색적 자료분석을 위한 그래프 (R 기본 그래프)

# plot, barplot, hist, boxplot 

DF <- read.csv("data/example_studentlist.csv")

detach(DF)

attach(DF)

plot(age)

plot(height,weight) 

plot(weight ~ height)

# plot(독립변수, 종속변수)

# plot(종속변수 ~ 독립변수)

plot(height,sex) # 독립변수가 수치형이라 sex (명목형) 변수도 1과 2로 대체하여 나타냄.

plot(sex,height) # 독립변수가 Sex(명목형) 이므로 해당 그래프를 boxplot으로변형하여 height를 그려줌

# plot(값,값,값) 형태는 안되지만 plot(data.frame) 은 가능하다.

plot(DF[,c(3,7,8)])  

plot(DF)

# 각 항목별 상관관계를 볼때 사용되므로 유의해 두어야 한다. 

# Levels 별로 그래프 그리기. 

# ex) 몸무게와 키의 산포도 그래프를 보면서 점의 종류로 남자와 여자의 별도로 표시를 원한다면 

plot(weight ~ height,pch=as.integer(sex))

legend("topleft",c("남","여"), pch=sex)

# coplot() 조건화 그래프 어떤 명목형 변수에 대해 알아보기 위한 그래프 

coplot(weight ~ height|sex)

# 그래프 주석 달기

plot(weight~height, ann=F)  # ann=F를 통해 독립, 종속 변수 (라벨) 삭제 

# main : 그래프의 이름  xlab = "독립변수"  ylab = "종속변수"

title(main="A대학 B학과 학생 모뭄게와 키의 상관관계",xlab="키",ylab="몸무게")  

grid()  # 격자 추가 

heightMean<- mean(height)

abline(v=heightMean, col = "red")  # v = 세로

weightMean <- mean(weight)

abline(h=weightMean, col = "blue")  # h = 가로

FreqBlood <- table(bloodtype)

barplot(FreqBlood)

title(main="혈액형 도수별 빈도수",xlab="혈액형",ylab="빈도수")

HeightOfBlood <- tapply(height, bloodtype, mean)

barplot(HeightOfBlood, ylim=c(0,200))  # ylim = y축 길이를 0~200

plot(HeightOfBlood) 

boxplot(HeightOfBlood)

# Level 별로 boxplot 그리기 

boxplot(height ~ bloodtype)

# hist

hist(height)

hist(height,breaks = 10) # 계급갯수를 늘린다. breaks 개 만큼.

hist(height,breaks = 10, prob=T) # 상대도수밀도

lines(density(height))  # hist에 line추가 

# 한 화면에 여러개의 그래프 그리기 

par(mfrow=c(2,3))    # 2 x 3 개 그래프 그리기. 

plot(weight,height)

plot(sex,height)

barplot(table(bloodtype))

boxplot(height)

boxplot(height~bloodtype)

hist(height,breaks=10)

par(mfrow=c(1,1))

plot(weight ~ height + age + grade + absence + sex) # 넘어가면서 그래프 보기 

# 두 라인을 겹쳐 비교하는 그래프

TS1 <- c(round(runif(30)*100)) # 랜덤 값 

TS2 <- c(round(runif(30)*100)) # 랜덤 값 

TS1 <- sort(TS1, decreasing = F)

TS2 <- sort(TS2, decreasing = F)

plot(TS1, type = "l")

lines(TS2, lty="dashed",  col="red")