# NOT RUN {
data(baltimore)
str(baltimore)
if (requireNamespace("sf", quietly = TRUE)) {
library(sf)
baltimore_sf <- baltimore %>% st_as_sf(., coords = c("X","Y"))
plot(baltimore_sf["PRICE"])
}
# }
Run the code above in your browser using DataLab