Chp2. GRAPH - 4

본론
2-1-8 stars() 함수
-->R 내장함수로 다양한 속성에대한 분포표를 볼수있음

student_info_csv.csv 파일 활용

이름 국어 영어 수학 국사 화학 물리
이효우 90 85 55 88 91 79
양덕유 70 65 80 75 76 89
박민정 92 95 76 65 89 91
장동희 76 89 88 98 100 91
이천균 97 87 83 91 86 91
홍진관 80 86 97 85 69 77
최보희 20 30 40 50 70 90
윤정웅 50 52 54 56 58 60
주인혜 60 70 80 75 65 55

jumsu <-read.csv("student_info_csv.csv",header=T,sep=",")
row.names(jumsu) <- jumsu$이름
jumsu
이름 국어 영어 수학 국사 화학 물리
이효우 이효우   90   85   55   88   91   79
양덕유 양덕유   70   65   80   75   76   89
박민정 박민정   92   95   76   65   89   91
장동희 장동희   76   89   88   98  100   91
이천균 이천균   97   87   83   91   86   91
홍진관 홍진관   80   86   97   85   69   77
최보희 최보희   20   30   40   50   70   90
윤정웅 윤정웅   50   52   54   56   58   60
주인혜 주인혜   60   70   80   75   65   55

stars(jumsu,flip.labels=F,draw.segment=F,frame.plot=T,full=T,main="학생별 분석 다이어그램")

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

label <- names(jumsu)
val <-table(label)
pie(val,labels=label,radius=0.1,cex=0.6,col=NA)

savePlot("2-1-12.png",type="png")
-->범주로 사용하기 위한 그래프를 만든것

stars(jumsu,labels=FALSE,draw.segment=TRUE,frame.plot=TRUE,full=T,main="학생별 분석 다이어그램")
-->draw.segment=TRUE 을 사용하면 색을 넣을수 있다

label <- names(jumsu)
val <-table(label)
color<- c("black","red","green","blue","cyan","violet")
pie(val,labels=label,col=color,radius=0.1,cex=0.6)
savePlot("2-1-14.png",type="png")

stars(jumsu,flip.labels=F,draw.segment=T,frame.plot=T,full=F,main="학생별 분석 다이어그램")
savePlot("2-1-15.png",type="png")

2-1-9 bar chart로 데이터 표현하기

data <- read.table("student_info_v.txt",header=T,sep=",")
> data
  과목 박민정 양덕유 이효우
1 국사     65     75     88
2 국어     92     70     90
3 물리     91     89     79
4 수학     76     80     55
5 영어     95     65     85
6 화학     89     76     91
>
data2 <- data[,2:4]
  박민정 양덕유 이효우
1     65     75     88
2     92     70     90
3     91     89     79
4     76     80     55
5     95     65     85
6     89     76     91

barplot(as.matrix(data2),main="학생별 성적분석",ylab="점수",beside=T,col=rainbow(6),ylim=(c(0,100)))
abline(h=75,lty=3,col="red",lwd=2)
legend(18,140,c("국사","국어","물리","수학","영어","화학"),cex=0.8,fill=rainbow(6))
savePlot("2-1-16.png",type="png")