计算字符串中每个元素的每次出现次数

Question

我想计算字符串中每个单个字符的出现次数，并将其输出到数据帧。

这是我的尝试：

q.data<-data.frame(number=1,string=c("COUNTTHESECHARACTERS"))
q.data[,3]<-string.counter(strings=q.data$string, pattern="A")
q.data[,3]<-string.counter(strings=q.data$string, pattern="B")

而且我想获得类似于此的输出：

x <- c("string","C","O","U","...")
colnames(df) <- x
df[1,] <- c("COUNTTHESECHARACTERS","3","1","1","...")
df