レーダーチャートで使用したプログラム文
library(fmsb)

data <- data.frame(
"読解力"=c(5,0,2,3,4),
"理解力"=c(5,0,2,3,3),
"異文化理解"=c(5,0,1,2,2),
"発言力"=c(5,0,1,1,2),
"マネジメント力"=c(5,0,1,3,5))

png("公益の評価チャート4",width=800,height=600)
radarchart(data, axistype = 1,
           pcol = c("red", "blue" ,"green" ),          # 各データの線の色
           pfcol = c(rgb(1, 0, 0, 0.3), rgb(0, 0, 1, 0.3),
	 rgb(0, 1, 0, 0.3)),  # 塗りつぶし色
           plwd = 2,                         # 線の幅
           cglcol = "grey",                  # グリッド線の色
           cglty = 1,                        # グリッド線のタイプ (1: 実線, 2: 破線など)
           axislabcol = "black",             # 軸ラベルの色
           caxislabels = seq(0, 6, 1),    # グリッドラベルの範囲
           cglwd = 0.8,                      # グリッド線の幅
           vlcex = 0.8)

 legend("topleft", legend = c("緑：三年生","青：二年生","赤:一年生"), col = c("green","blue","red"), text.col =c("green","blue","red"), pch = c(0,1,2), lty = "solid",lwd = 2)

plot(1:10, 1:10, main = "Sample Plot", xlab = "X-axis", ylab = "Y-axis")

dev.off()