如何在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)