[[Rの備忘録]] #データを確認 table( wine00[,"PP"] ) length( table( wine00[,"PP"] )) # 適当にブレークポイントを設定 myBreak <- c(80,83,86,89,92,95,98,102) cut( wine00[,"PP"] , breaks = myBreak, lab = rev(LETTERS[1:length(myBreak )-1 ]) )