r中的长度函数有问题

Question

Miner = function(n)
{
  x = sample(c(2,3,5), 1, replace = TRUE, prob = c(1/3,1/3,1/3))
  if (n == 0) {r = 0}
  else if (x == 2) {r = c(2, Miner(n - 1))}
  else if (x == 3) {r = c(3, Miner(n))}
  else if (x == 5) {r = c(5, Miner(n))}
  return(sum(r))
}

我需要返回sum(r)除以sum(r)中数字2出现的次数，而不是返回r。

我已经尝试了从length(r[r == 2])到sum(r == 2)到sum(nchar(r[r == 2]))的所有内容，但似乎没有任何效果。非常感谢一些帮助。