用R中的df制作矩阵

Question

So I have a table that looks something like this

name <- c("AGTC","ATTC","ATGC", "ATCC")
Var1 <- c("TRA11","TRA8","TRA9", "TRA9")
Var2 <- c("TRB1", "TRB15", "TRB7", "TRB7")
df <-data.frame(name, Var1, Var2)

df
  name  Var1  Var2
1 AGTC TRA11  TRB1
2 ATTC  TRA8 TRB15
3 ATGC  TRA9  TRB7
4 ATCC  TRA9  TRB7

I want a matrix like this so I can plot a circos plot

       TRA11  TRA8  TRA9 
TRB1     1      0     0
TRB15    0      1     0
TRB7     0      0     2

I managed to fix start with the matrix but I have no idea how to fill the values in,

A <- sort(unique(unlist(strsplit(paste(df$Var1, collapse=","), ","))))
B <- sort(unique(unlist(strsplit(paste(eee$Var2, collapse=","), ","))))
mat <- matrix(nrow = length(A), ncol = length(B))
colnames(mat) <- B
rownames(mat) <- A

mat
       TRA11  TRA8  TRA9 
TRB1     0      0     0
TRB15    0      0     0
TRB7     0      0     0

I would appreciate any help.

Thanks a lot

Answer 1

table(df[-1])

       Var2
Var1    TRB1 TRB15 TRB7
  TRA11    1     0    0
  TRA8     0     1    0
  TRA9     0     0    2

If you want it as a dataframe:

as.data.frame.matrix(table(df[-1]))

      TRB1 TRB15 TRB7
TRA11    1     0    0
TRA8     0     1    0
TRA9     0     0    2

Answer 2

So I managed to do it this way,

tb <- with(df, table(df$Var1, df$Var2))
a <- as.matrix(tb)

and it worked like a charm.

Thanks guys