# NOT RUN {
require(grDevices)
# }
# NOT RUN {
<!-- % this does not call plot.factor! -->
# }
# NOT RUN {
<!-- % plot(PlantGrowth) # -> plot.data.frame -->
# }
# NOT RUN {
plot(weight ~ group, data = PlantGrowth) # numeric vector ~ factor
plot(cut(weight, 2) ~ group, data = PlantGrowth) # factor ~ factor
## passing "..." to spineplot() eventually:
plot(cut(weight, 3) ~ group, data = PlantGrowth,
col = hcl(c(0, 120, 240), 50, 70))
plot(PlantGrowth$group, axes = FALSE, main = "no axes") # extremely silly
# }
Run the code above in your browser using DataLab