A 3D scatterpot in R with a Loess Smoothing Curve that Only Extends to Positive Values

Question

I have the following code:

library(readxl)
library(car)
library(rgl)


input <- read_xlsx("PlotsStatenIsland.xlsx")
Elevation <- c(input$Eleva