アールメカブ

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