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