给你个啰嗦，不够优美的代码吧
看谁能简洁些的

字母相同的令频数多或频率大的设为0  怎么个多或大？  是最多的或最大的？
都是双字母吧？
只有A，B字母？

就是两个字母，不一定是A,B字母，也可能是M,N。

如何自动给新产生的变量值标记呢？如本例0表示AA，1表示AB，2表示BB

上面的代码是 1赋值字母不同的情况
                    0 为字母相同，频率最高的时候，此时AA为频数最大
                   2是字母相同，频数小，  此时BB频数相对小。


自动给变量标记是指什么？
不用判断字母是否相同？
只要是AA就是0， AB 1，BB 2?
var2 <- NULL
var2[var1=="AA"]=0
var2[var1=="AB"]=1
var2[var1=="BB"]=2
  这个意思吗？