применить с SF

# use st_drop_geometry

lapply(st_drop_geometry(df[,c(5:17)]), function(x) round(x,1))
marcofaga