Coords into dataframe

library(terra)
## terra version 1.1.2
##
## Attaching package: 'terra'
## The following object is masked from 'package:knitr':
##
##     spin


longitude <- c(-72.875691, -72.869782, -72.862467, -72.858593, -72.850833, -72.849032, -72.858058)
latitude <- c(2.212863, 2.219539, 2.22007, 2.227792, 2.230666, 2.216927, 2.2097)
lonlat <- cbind(longitude, latitude)


pts <- vect(lonlat)
class(pts)

[1] "SpatVector"
attr(,"package")
[1] "terra"

pts

 class       : SpatVector 
 geometry    : points 
 dimensions  : 7, 0  (geometries, attributes)
 extent      : -72.87569, -72.84903, 2.2097, 2.230666  (xmin, xmax, ymin, ymax)
 coord. ref. :  

geom(pts)

     geom part         x        y hole
[1,]    1    1 -72.87569 2.212863    0
[2,]    2    1 -72.86978 2.219539    0
[3,]    3    1 -72.86247 2.220070    0
[4,]    4    1 -72.85859 2.227792    0
[5,]    5    1 -72.85083 2.230666    0
[6,]    6    1 -72.84903 2.216927    0
[7,]    7    1 -72.85806 2.209700    0

crdref <- "+proj=longlat +datum=WGS84"
pts <- vect(lonlat, crs=crdref)
pts

 class       : SpatVector 
 geometry    : points 
 dimensions  : 7, 0  (geometries, attributes)
 extent      : -72.87569, -72.84903, 2.2097, 2.230666  (xmin, xmax, ymin, ymax)
 coord. ref. : +proj=longlat +datum=WGS84 +no_defs 

crs(pts)

[1] "GEOGCRS[\"unknown\",\n    DATUM[\"World Geodetic System 1984\",\n        ELLIPSOID[\"WGS 84\",6378137,298.257223563,\n            LENGTHUNIT[\"metre\",1]],\n        ID[\"EPSG\",6326]],\n    PRIMEM[\"Greenwich\",0,\n        ANGLEUNIT[\"degree\",0.0174532925199433],\n        ID[\"EPSG\",8901]],\n    CS[ellipsoidal,2],\n        AXIS[\"longitude\",east,\n            ORDER[1],\n            ANGLEUNIT[\"degree\",0.0174532925199433,\n                ID[\"EPSG\",9122]]],\n        AXIS[\"latitude\",north,\n            ORDER[2],\n            ANGLEUNIT[\"degree\",0.0174532925199433,\n                ID[\"EPSG\",9122]]]]"

# Generate random precipitation values, same quantity as points
precipvalue <- runif(nrow(lonlat), min=100, max=1000)
df <- data.frame(ID=1:nrow(lonlat), precip=precipvalue)

#Combine Spatial vector with the Dataframe
ptv <- vect(lonlat, atts=df, crs=crdref)

ptv

 class       : SpatVector 
 geometry    : points 
 dimensions  : 7, 2  (geometries, attributes)
 extent      : -72.87569, -72.84903, 2.2097, 2.230666  (xmin, xmax, ymin, ymax)
 coord. ref. : +proj=longlat +datum=WGS84 +no_defs