如何在pimage中定製x/y軸上的標籤

Question

我想知道如何自定義x/y軸上的標籤到我在排列圖像繪圖中使用的距離矩陣中的行/列名稱。謝謝！

library("seriation") 
dm <- data.frame(matrix(1:100, nrow = 10)) 
colnames(dm) <- c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") 
rownames(dm) <- c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") 
dt <- as.dist(dm) 
ser <- seriate(dt, method = "MDS") 
pimage(dt, ser, colorkey=TRUE) 

我想在這兩個軸上使用「a」，「b」，「c」作爲標籤。

p.s.當單元的數量很少時（例如9個單元），單元標籤被正確顯示，但是當存在更多單元時，標籤被隱藏，如上例。

Answer 1

您可以在值對象ser排序：

ser[[1]] <- sort(ser[[1]]) 

情節：

pimage(dt, ser, colorkey = TRUE)