2019년 4월 9일 Assignment

library(fmsb)

## Warning: package 'fmsb' was built under R version 3.5.2

library(MASS)

mtb<- mta<-matrix(sample(2:20,10,replace = T),ncol=10)
mtb <-rbind(mtb, mta)

sample(2:20,10,replace = F)

##  [1] 14 17 19 15 13  8 16  7 11 12

data = as.data.frame(matrix(sample(2:20,10,replace = T),ncol=10))

colnames(data)=
  c("math","english","biology","music","R-cording",
    "data-viz","french","physic","statistic","sport")

data = rbind(rep(20,10),rep(0,10),data)

#par(mar=c(1, 0.5, 3, 1), mfrow=c(3,2))

radarchart(data)

#---------------------------------------------
dt1 <- data.frame( 분석력=c(5,1), 창의력=c(15,3), 판단력=c(3,0),리더십=c(5,1),  사교성=c(5,1))

#set.seed(123)  #임의의 체이블 생성

dt2 <- data.frame(분석력=runif(3,1,5), 창의력=rnorm(3, 10,2),판단력=c(0.5,NA, 3), 리더십=runif(3,1,5), 사교성=c(5,2.5,4))

dt3<-rbind(dt1, dt2)
#op<-par(mar=c(1, 0.5, 3, 1), mfrow=c(2,2))

radarchart(dt3, axistype=1, vlcex=1, centerzero=F, seg=5, plty=1, title="스타일 1")

radarchart(dt3, axistype=2, plty=1, pcol= topo.colors(3), title="스타일 2")

radarchart(dt3, axistype=3, pty=32, axislabcol="grey", na.itp=FALSE, plty=1, title="스타일 3")

radarchart(dt3, axistype=4, plwd=1, plty=16, pcol=1, title="스타일 4")