us_state_point <-
coordinates_to_geometry(layer_us_state,
lon_lat = c("intptlon", "intptlat"))
state <-
geolevel(name = "state",
layer = layer_us_state,
key = c("geoid")) |>
add_geometry(layer = us_state_point)
Run the code above in your browser using DataLab