更改距离矩阵中的标签

Question

我有一个带标签的数字列表，希望缩短列表中的所有标签。

我有一条类似的行可以成功地对行名执行此操作：

> rownames(embu) <- paste(substring(rownames(embu),7,22),sep="")

但是这不会转移到标签上

> labels(cell.dist) <- (paste(substring(labels(cell.dist),8,23),sep=""))
Error in labels(cell.dist) <- (paste(substring(labels(cell.dist), 8, 23),  : 
  could not find function "labels<-"

感谢您的协助！

Answer 1

[意识到我的错误，没有意识到对象是一个距离矩阵（由某些第三方代码使用“ as.dist”制成，已通过以下方式修复：

labels <- paste(substring(labels(cell.dist),8,23),sep="")
cell.dist <- dist_setNames(cell.dist, labels)