library(lattice)
dat <- read.csv("http://biostatmatt.com/csv/HouseMtn.csv")
dat$Altitude <- lowess(dat$Altitude, f=1/40)$y
dat$Longitude <- -dat$Longitude

hmp <- cloud(Altitude~Latitude*Longitude, 
         data=dat, type=c("l","h"), 
         scales=list(arrows=FALSE), 
         screen=list(z=60,x=-65), 
         zlab="Elev (ft)",) 

print(hmp)