library(fmsb)
df <- as.data.frame(matrix(sample(2:20, 10, replace=T), ncol = 10))
df <- rbind(rep(0, 10), rep(20, 10), rep(0, 10), df)
df

##   V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
## 1  0  0  0  0  0  0  0  0  0   0
## 2 20 20 20 20 20 20 20 20 20  20
## 3  0  0  0  0  0  0  0  0  0   0
## 4 17 18 20  7  7 13  8  6 14  13

par(mfrow=c(1, 1))
# 직전에 작업하던 내용 추가하기
#--------------------------
국어 <-c(10,5,15,6,2)
영어 <-c(10,10,70,60,50)
수학 <-c(50,60,30,40,45)
미술 <-c(60,90,80,90,90)
탐구 <-c(40,50,100,30,100)

student <- data.frame(국어, 영어, 수학, 미술, 탐구)

radarchart(student)

#--------------------------

radarchart(df, maxmin=F, axistype= 2)

radarchart(df, maxmin=F, axistype= 3)

radarchart(df, maxmin=F, axistype= 2, pty=1)

radarchart(df, maxmin=F, axistype= 2, cglty=1)