1

我知道我们通常这样做:

x=c(rep(0.3,100),rep(0.5,700))
plot(table(x))

但是,我们只能在图中得到几个点或垂直线。

0.3以上100个点,0.5以上700个点怎么办?

4

3 回答 3

0

像这样的东西?

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)
于 2013-01-18T08:11:01.977 回答
0

您可以使用linetypelinewidth设置...

plot(table(x),lty=3,lwd=0.5)

在此处输入图像描述

于 2013-01-18T09:33:55.830 回答
0

对于较小的数字(计数),您可以像这样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)
于 2013-01-18T09:49:30.333 回答