如何获取矩阵中的各个ID，而不是R(sf包)中的行名称

发布于08月09日

我得到了每个物种ID之间的距离矩阵.我如何获得该矩阵来显示个人的实际ID，而不是行号？

library(sf)

species <- data.frame(longitude = c(-106.425668, -96.111617, -96.5,-96.5, -96.5, -96.5), 
                      latitude = c(23.18127, 15.779873, 19.68, 19.68, 19.68, 19.68), 
                      id = c("0-1","0-2","0-3","0-4","0-5","0-6"))

species_sf <- st_as_sf(species, coords = c("longitude", "latitude"), crs = 4326)

st_distance(species_sf)

我的输出如下:

Units: [m]
        [,1]      [,2]      [,3]      [,4]      [,5]      [,6]
[1,]       0 1357855.2 1098291.3 1098291.3 1098291.3 1098291.3
[2,] 1357855       0.0  435620.5  435620.5  435620.5  435620.5
[3,] 1098291  435620.5       0.0       0.0       0.0       0.0
[4,] 1098291  435620.5       0.0       0.0       0.0       0.0
[5,] 1098291  435620.5       0.0       0.0       0.0       0.0
[6,] 1098291  435620.5       0.0       0.0       0.0       0.0

我想让方括号显示真实的物种ID.

谢谢.

推荐答案

您可以使用rownames()&；colnames()设置名称:

species_sf |>
  st_distance() |>
  `rownames<-`(species_sf$id) |>
  `colnames<-`(species_sf$id)
#> Units: [m]
#>         0-1       0-2       0-3       0-4       0-5       0-6
#> 0-1       0 1357855.2 1098291.3 1098291.3 1098291.3 1098291.3
#> 0-2 1357855       0.0  435620.5  435620.5  435620.5  435620.5
#> 0-3 1098291  435620.5       0.0       0.0       0.0       0.0
#> 0-4 1098291  435620.5       0.0       0.0       0.0       0.0
#> 0-5 1098291  435620.5       0.0       0.0       0.0       0.0
#> 0-6 1098291  435620.5       0.0       0.0       0.0       0.0