重现频率矩阵图

Question

我有一个情节想在 R 中重新创建。情节如下:

来自:Boring, E. G. (1941)。作为动态平衡的统计频率。心理评论, 48(4), 279.

这比我的薪资(能力)高一点，所以在这里问。无聊的状态:

On the first occasion A can occur only 'never' (0) or 'always' (1). On the second occasion the frequencies are 0,1/2, or 1; on the third 0, 1/3, 2/3, or 1 etc, etc.

显然，您不必担心标签等问题。只需提示生成数据以及如何绘图就可以了。 ;) 我什至不知道如何开始...

Answer 1

这是一个例子:

library(plyr)
ps <- ldply(1:36, function(i)data.frame(s=0:i, n=i))
plot.new()
plot.window(c(1,36), c(0,1))
apply(ps, 1, function(x){
  s<-x[1]; n<-x[2];
  lines(c(n, n+1, n, n+1), c(s/n, s/(n+1), s/n, (s+1)/(n+1)), type="o")})
axis(1)
axis(2)

ps代表所有的点。每个点都有两个 child 。所以从每个点到 child 画线。