所以我有一張看起來像這樣的桌子
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
我想要一個這樣的矩陣，所以我可以繪制一個馬戲團圖
TRA11 TRA8 TRA9
TRB1 1 0 0
TRB15 0 1 0
TRB7 0 0 2
我設法從矩陣開始修復，但我不知道如何填寫值，
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
我將不勝感激任何幫助。
非常感謝
uj5u.com熱心網友回復：
table(df[-1])
Var2
Var1 TRB1 TRB15 TRB7
TRA11 1 0 0
TRA8 0 1 0
TRA9 0 0 2
如果您希望它作為資料框：
as.data.frame.matrix(table(df[-1]))
TRB1 TRB15 TRB7
TRA11 1 0 0
TRA8 0 1 0
TRA9 0 0 2
uj5u.com熱心網友回復：
所以我設法做到了這一點，
tb <- with(df, table(df$Var1, df$Var2))
a <- as.matrix(tb)
它就像一個魅力。
多謝你們
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/477218.html