从r中的现有变量创建新变量类别

以下是数据：

var1 <- c("A", "B", "K", "L", "G", "M", "M")
var2  <- c("B", "A", "K", "L", "H", "M", "M")
mydata <- data.frame (var1, var2)
     var1 var2
1    A    B
2    B    A
3    K    K
4    L    L
5    G    H
6    M    M
7    M    M

mydata$var3 mydata
var1 var2 var3
1 A B AB
2 B A AB
3KKK
4升
5克生长激素
6米毫米
7米毫米
>str（mydata）
“data.frame”：7个obs。共有3个变量：
$var1：系数w/6级“A”、“B”、“G”、“K”…：1 2 4 5 3 6
$var2：系数w/6级“A”、“B”、“H”、“K”…：2 1 4 5 3 6
$var3：系数w/5水平“AB”、“GH”、“KK”、..：1 3 4 2 5

谢谢；我试图按var3进行排序，但mydata[，order（mydata$var3）]不起作用……有没有办法输出为1:n级而不是字符，只是方便下游分析

 var1 var2   caterory
1    A    B   1 
2    B    A   1
3    K    K   2
4    L    L   3
5    G    H   4
6    M    M   5
7    M    M   6

mydata$var3<-as.factor(apply(mydata,1,function(x){paste(x[order(x)],collapse='')}))

> mydata
  var1 var2 var3
1    A    B   AB
2    B    A   AB
3    K    K   KK
4    L    L   LL
5    G    H   GH
6    M    M   MM
7    M    M   MM

> str(mydata)
'data.frame':   7 obs. of  3 variables:
 $ var1: Factor w/ 6 levels "A","B","G","K",..: 1 2 4 5 3 6 6
 $ var2: Factor w/ 6 levels "A","B","H","K",..: 2 1 4 5 3 6 6
 $ var3: Factor w/ 5 levels "AB","GH","KK",..: 1 1 3 4 2 5 5