文字の出現頻度？

まあ，これはこれでご立派なのだが

hash <- new.env(hash=TRUE, parent=emptyenv())
word <- 'abracadabra'
for (c in strsplit(word, NULL)[[1]]) {
  if (exists(c, hash)) {
    assign(c, get(c, hash) + 1, hash)
  } else {
    assign(c, 1, hash)
  }
}

for (c in ls(hash)) {
  cat(sprintf ('%s : %d\n', c, get(c, hash)))
}

word <- 'abracadabra'
table(strsplit(word, NULL)[[1]]) で十分でしょう

> word <- 'abracadabra'
> table(strsplit(word, NULL)[[1]])

a b c d r
5 2 1 1 2