#ライブラリの読み込み library("fmsb") #最大、最小データの準備 maxmin <- data.frame( total = c(5, 1), phys = c(15, 3), psycho = c(3, 0), social = c(5, 1), env = c(5, 1)) #描写データの準備 RNGkind("Mersenne-Twister") set.seed(123) dat <- data.frame( total = runif(3, 1, 5), phys = rnorm(3, 10, 2), psycho = c(0.5, NA, 3), social = runif(3, 1, 5), env = c(5, 2.5, 4)) dat <- rbind(maxmin, dat) #データの結合 #ラベルの設定,データの行名を取得 VLabel <- co