freqpolygon(~age | substance, HELPrct, v=35, fit='normal')
freqpolygon(~age, HELPrct, labels=TRUE, type='count')
freqpolygon(~age, HELPrct, groups=cut(age, seq(10,80,by=10)))
freqpolygon(~age, HELPrct, groups=sex, stripes='horizontal')
freqpolygon(~racegrp, HELPrct, groups=substance,auto.key=TRUE)
## comparison of histogram and frequency polygon
xhistogram(~eruptions, faithful, type='density', width=.5)
ladd( panel.freqpolygon(faithful$eruptions, width=.5 ))
Run the code above in your browser using DataLab