Zastosuj z SF
# use st_drop_geometry
lapply(st_drop_geometry(df[,c(5:17)]), function(x) round(x,1))
marcofaga
# use st_drop_geometry
lapply(st_drop_geometry(df[,c(5:17)]), function(x) round(x,1))