多谢三楼大大的指点, 如下可作出所要之图
with(chickwts, {
plot(weight ~ feed, xaxt="n", las=1)
axis(1, label=FALSE)
levels <- levels(chickwts$feed)
op <- par(xpd=TRUE)
text(seq(levels), rep(par("usr")[3], length(levels)),
levels, srt = 20, pos=1)
par(op)
})
只是不知为何那 label 的顏色有点灰, 即使用了 col="black" 也没用.
[此贴子已经被作者于2008-8-30 22:50:16编辑过]