R语言sfnetworks包，as_sfnetwork()#将外部对象转换为SFN网络

# Mon Jul 26 14:59:41 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.1 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(sfnetworks)
rm(list = ls());gc()

?as_sfnetwork()#将外部对象转换为SFN网络
# From an sf object.
library(sf, quietly = TRUE)

#使用线串几何图形。
as_sfnetwork(roxel)

oldpar = par(no.readonly = TRUE)
par(mar = c(1,1,1,1), mfrow = c(1,2))
plot(st_geometry(roxel))
plot(as_sfnetwork(roxel))
par(oldpar)

#点几何图形。
p1 = st_point(c(7, 51))
p2 = st_point(c(7, 52))
p3 = st_point(c(8, 52))
points = st_as_sf(st_sfc(p1, p2, p3))
as_sfnetwork(points)

oldpar = par(no.readonly = TRUE)
par(mar = c(1,1,1,1), mfrow = c(1,2))
plot(st_geometry(points))
plot(as_sfnetwork(points))
par(oldpar)

#从一个linnet对象。
if (require(spatstat, quietly = TRUE)) {
  as_sfnetwork(simplenet)
}
as_sfnetwork(simplenet) |>
  plot()

#从一个psp对象。
if (require(spatstat.geom, quietly = TRUE)) {
  set.seed(42)
  test_psp = psp(runif(10), runif(10), runif(10), runif(10), window=owin())
  as_sfnetwork(test_psp)
}
psp(runif(10), runif(10), runif(10), runif(10), window=owin()) |>
  as_sfnetwork() |>
  plot()
# Mon Jul 26 15:27:44 2021 --
dev.copy(png, "2.png");dev.off()

image.png

image.png

image.png