Chp2. GRAPH - 3

본론
2-1-4 히스토그램 hist()
특정 데이터의 빈도를 계산해 막대모양으로 나타내는기능 , hist() 함수를 사용함
b <- c(1,1,1,2,2,3)
hist(b)
savePlot("2-1-1.png",type="png")

2-1-5 파이차트 pie()
전체원을 나눠서 구분하는 파이차트 구성
c <- c(100,200,300,400,500)
pie(c)
savePlot("2-1-2.png",type="png")

차트 argument 목록
angle,demsoty,col - pie부분을 구성하는 각도, 수, 색상지정
labels - pie의 각부분에 이름을 지정한다
radius - 원형의 크기 지정
clockwise - 시계방향 , 반시계방향 지정
init.angle - 시작되는 각도 지정

apple <- c(260,300,250,280,310)
pie(apple)
savePlot("2-1-3.png",type="png")

pie(apple,init.angle=90,col=rainbow(length(apple)),labels=c("월","화","수","목","금"))
savePlot("2-1-4.png",type="png")
-->항목이 많아도 color에 rainbow를 사용할수 있음

f_days <- round(apple/sum(apple) *100,1)
f_labels <-paste(f_days,"%",sep="")
pie(apple,main="Apple",col=rainbow(length(apple)),cex=0.8,labels=f_labels)
legend(1,1,c("월","화","수","목","금"),cex=0.8,fill=rainbow(length(apple)))
savePlot("2-1-5.png",type="png")
-->범례 사용예제

f_day2 <- c("월","화","수","목","금")
f_labels <- paste(f_day2,"\n",f_days,"%")
pie(apple,main="Apple",col=rainbow(length(apple)),cex=0.8,labels=f_labels)
savePlot("2-1-6.png",type="png")

-->범례 사용하지않고 바로 table에 붙힌다


2-1-6 상자 차트 (주식 봉차트) boxplot()
-->최대,최소,평균을 한자리에 모두 올린다
-->주식,기온변화,강수량 분석에 사용

apple <- c(10,12,15,11,20)
banana <- c(6,7,15,8,9)
peach <- c(11,20,15,18,13)
-->각 object 를 벡터로 생성한다

boxplot(apple,banana,peach)
-->boxplot함수가 각 object를 분석해서 object의 최대 최소 평균을 박스에 그리는것

savePlot("2-1-7.png",type="png")


boxplot argument list
col - 박스 내부 색지정
names - 막대의 라벨을 지정할 문자백터 생성
range - 박스의 끝에서 수염까지 길이 지정
width - 박스폭 지정
notch - true 로 지정하면 박스의 허리가 얇아짐
horizontal - 상자를 수평으로 그림 , 아래부터 박스생성

boxplot(apple,banana,peach,col=c("yellow","cyan","green"),names=c("apple","banana","peach"),horizontal=T)

savePlot("2-1-8.png",type="png")

2-1-7 sunflowerplot()
-->한점 주위에 여러개의 데이터가 있을때사용한다
x <- rnorm(100)
-->random 으로 100개의 수를 생성하는것
y <- data.frame(round(x,d=1),round(x,d=1))
sunflowerplot(y)
savePlot("2-1-9.png",type="png")

2-1-7 persp() - 3차원 데이터 그리기 함수
-->x,y,z 를 이용해 3차원 제도를 그린다

x <-seq(-10,10,length(10))
y <-x
f <-function (x,y) {
r <-sqrt(x^2+y^2); 10*sin(r) /r}
z <- outer(x,y,f)
persp(x,y,z,theta=30,phi=30,expand=0.5,col=rainbow(50),border=NA)
savePlot("2-1-10.png",type="png")