search for: freqthresh

...Titanic) survived<-dframe[dframe$Survived=="Yes",] attach(survived) balloonplot(x=Class,y=list(Age,Sex),z=Freq,sort=TRUE,show.zeros=TRUE,cum.margins=FALSE,             main="BalloonPlot : Surviving passengers") # standard plot # Now comes the attempt at something more special FreqThresh=50 # A threshold level Freqdev<-Freq-FreqThresh # A new variable colors=ifelse(Freqdev>0,"green","magenta") balloonplot(x=Class,y=list(Age,Sex),z=Freqdev,sort=TRUE,show.zeros=TRUE,cum.margins=FALSE,dotcol=colors, show.margins=FALSE,main="BalloonPlot : Surviving passe...