R。和引用符

Question

napis <- paste0("Ala","Ma","Kota","Tomek","ma","psa") 
a6=length((table(strsplit(napis, "")))) 
print(a6)#A 
#b 
c=max(table(unlist(strsplit(napis, "")))) 
print(c) 
print((which.max(c))) 

最終印刷ショー値= 5

私は5回（それの「A」）occourた文字を表示したいと私は、これを試してみてください「」

Answer 1

のようにそれを表示したいです

names(which.max(table(unlist(strsplit(napis, ""))))) 
#[1] "a"