R中根据频数大小产生新变量

数据集为
var1
AB
AB
AA
BB
AA
BB
AB
AA
AA
AB
BB


类似的变量很多，希望编程实现，要求将字母不同的设为1，字母相同的令频数多或频率大的设为0，另一个设为2
var1 var2
AB     1
AB     1
AA     0
BB     2
AA     0
BB     2
AB     1
AA     0
AA     0
AB     1
BB     2


谢谢！

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

1. data <- read.table(text="var1
   
2. AB
   
3. AB
   
4. AA
   
5. BB
   
6. AA
   
7. BB
   
8. AB
   
9. AA
   
10. AA
    
11. AB
    
12. BB",header=T,stringsAsFactors=F)
    
13. 
    
14. #把第一列字母分开，判断是否相同
    
15. data$var1<-as.character(data$var1)
    
16. dat.sp<-matrix(unlist(strsplit(data$var1,split="")),ncol=2,byrow=T)
    
17. dat.1<-dat.sp[,1]!=dat.sp[,2]#逻辑值，字母是否相同
    
18. 
    
19. 
    
20. var2<-NULL
    
21. 
    
22. var2[dat.sp[,1]!=dat.sp[,2]]=1#字母不同时为1
    
23. var2[data$var1==names(which.max(table(data[!dat.1,])))]=0#当字母相同，且频数最大时为0
    
24. var2[dat.sp[,1]==dat.sp[,2]&data$var1!=names(which.max(table(data[!dat.1,])))]=2#当字母相同，频数非最大时为2
    
25. 
    
26. new.dat <-cbind(var1=data$var1,var2)
    
27. as.data.frame(new.dat)

复制代码

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

yywan0913 发表于 2013-11-27 13:26
字母相同的令频数多或频率大的设为0  怎么个多或大？  是最多的或最大的？
都是双字母吧？
只有A，B字母？ ...

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

jmpamao 发表于 2013-11-27 16:48
给你个啰嗦，不够优美的代码吧
看谁能简洁些的

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

dxystata 发表于 2013-11-27 22:27
如何自动给新产生的变量值标记呢？如本例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
  这个意思吗？

jmpamao 发表于 2013-11-27 23:16
上面的代码是 1赋值字母不同的情况
                    0 为字母相同，频率最高的时候，此时AA为频数最 ...

不是！以0 1 2表示，但标签是AA AB BB

dxystata 发表于 2013-11-27 23:22
不是！以0 1 2表示，但标签是AA AB BB

那就简单了啊 ，算下AA和BB 的个数，谁多谁为0，另外一个为2     AB为0就行了呗

yywan0913 发表于 2013-11-28 08:27
那就简单了啊 ，算下AA和BB 的个数，谁多谁为0，另外一个为2     AB为0就行了呗

AB为1    汗  打错了

谢谢