如何解决从 R 中的 *.las 点云创建正射镶嵌
有没有办法将 R 中的 *.las 点云导出为正射镶嵌?我用包lidR加载了包含点的las文件。我想导出一个 tif,它以 RGB 显示从上方的点云,类似于正射影像的样子。数据是使用地面激光扫描仪收集的。
解决方法
好的,所以我想出了怎么做,虽然它不是很优雅:
# load data
points <- readLAS(input_path)
# returns the RGB values for the highest points
RGBZ <- function(r,g,b,z) {
bands = list(
R = r[which.max(z)],G = g[which.max(z)],B = b[which.max(z)]
)
return(bands)
}
# create & save ortho
ortho <- grid_metrics(points,~RGBZ(R,G,B,Z),res = 0.1)
writeRaster(ortho,output_path)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。