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

내가 (그것의 "A") 5 회 occour하는 편지를 보여주고 싶은 나는 "A"

Answer 1

이 시도처럼 보여주고 싶은,

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