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

##   V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
## 1 20 20 20 20 20 20 20 20 20  20
## 2  0  0  0  0  0  0  0  0  0   0
## 3  6  5  6 18  7  2 15 18 17  11

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 (국어, 영어, 수학, 미술, 탐구)

sort(student$국어) # 오름

## [1]  2  5  6 10 15

sort(student$국어, decreasing=TRUE) # 내림

## [1] 15 10  6  5  2

radarchart(student, maxmin=F)

#-----------------------------
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)