With these data
Data <- structure(list(ObsVal = c(22L, 50L, 8L, 15L, 54L, 30L, 11L, 90L, 6L, 53L, 9L, 42L, 72L, 40L, 60L, 58L, 1L, 20L, 37L, 2L, 50L, 68L,
You may try to use scale_size_continuous and its range argument. E.g. something like this:
scale_size_continuous
range
p + scale_size_continuous(range = c(2, 10))