代码
#茎叶图
library(DAAG)
with(ais, stem(ht[sport=="Row"])) #图1
#盒形图
with(fossum, boxplot(totlngth, main="使用boxplot函数绘制垂直盒形图", ylab="总长度", xlab="")) #图2
with(fossum, boxplot(totlngth, main="使用boxplot函数绘制水平盒形图", xlab="总长度", ylab="", horizontal=TRUE)) #图3
with(fossum, bwplot(totlngth, main="使用bwplot函数绘制水平盒形图", xlab="总长度")) #图4
效果
图1
图2
图3
图4