再现频率矩阵图

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

来源：Boring, E. G. (1941)。作为动态平衡的统计频率。心理学评论，48（4），279。

这略高于我的工资等级（能力），因此在这里询问。无聊的状态：

第一次 A 只能出现“从不”(0) 或“总是”(1)。在 第二次频率 是0，1/2，或1；在第三个 0, 1/3, 2/3，或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代表所有点。每个点有两个孩子。 因此，从每个点到孩子们画一条线。