我知道我们通常这样做:
x=c(rep(0.3,100),rep(0.5,700))
plot(table(x))
但是,我们只能在图中得到几个点或垂直线。
0.3以上100个点,0.5以上700个点怎么办?
像这样的东西?
x <- c(rep(.3,100), rep(.5, 700))
y <- c(seq(0,1, length.out=100), seq(0,1,length.out=700))
plot(x,y)
编辑:(根据OP的评论)
在这种情况下,这样的事情应该可以工作。
x <- rep(seq(1, 10)/10, seq(100, 1000, by=100))
x.t <- as.matrix(table(x))
y <- unlist(apply(x.t, 1, function(x) seq(1,x)))
plot(x,y)
您可以使用linetype
和linewidth
设置...
plot(table(x),lty=3,lwd=0.5)
对于较小的数字(计数),您可以像这样stripchart
使用method="stack"
:
stripchart(c(rep(0.3,10),rep(0.5,70)), pch=19, method="stack", ylim=c(0,100))
但带状图不适用于 700 点。
编辑:
dots()
包TeachingDemos中的功能可能是您想要的:
require(TeachingDemos)
dots(x)