存储/制表变量之间的交互频率

Question

我想跟踪R.P，R.S，R.R，P.R，P.S等之间的相互作用：

history <- c("R", "P", "P", "S", "S", "S")
ix <- 1:length(history)
for (i in ix) {
    y <- history[c(ix[i], ix[i+1])];
    z <- interaction(y[[1]],y[[2]])
    print(z)
}

现在我的代码产生：

[1] R.P
Levels: R.P
[1] P.P
Levels: P.P
[1] P.S
Levels: P.S
[1] S.S
Levels: S.S
[1] S.S
Levels: S.S
[1] <NA>
Levels:

当我真正想要这样的事情时：

R.P 1
P.P 1
P.S 1
S.S 2

如何调整/重构我的代码来完成此任务？