R 程序怎么实现由A表生成B表

各位大神请问R程序怎么从下表
转化为

1. dat=data.frame(VAR1=c("A1","A2","A3","A1","A2","A1","A2","A3"),VAR2=c("B1","B2","B1","B2","B1","B1","B1","B1","B2"))
   
2. library(reshape2)
   
3. x=melt(dat)
   
4. d=rbind(cbind(acast(x,VAR1~VAR1),acast(x,VAR1~VAR2)),cbind(acast(x,VAR2~VAR1),acast(x,VAR2~VAR2)))

复制代码

没有给出生成规则啊？  如果手动的，你会怎么做出来？

yywan0913 发表于 2014-9-16 09:07

最家答案已经给您了，虽然赢用的dcast解决了。
另外，朋友，能否帮忙：一个数据框中有很多列，有些列只有一个重复的数值，能否将这种列找出来并删除，

1. dat=data.frame(a=1:6,b=3,c=2:7,d=3:8,e=9)
   
2. f=function(x) length(unique(names(table(x))))   ##或者  f=function(x) length(unique(x))
   
3. t=apply(dat,2,f)
   
4. x=which(t==1)
   
5. data=dat[,-x]

复制代码

yywan0913 发表于 2014-9-19 15:06

谢谢你啊，非常棒