I'm not sure how you got your variogram, but using some of the code and info from this link, I was able to get something that may help you.
Using the geoR
package, function variog
you can manipulate the plot
as usual.
> sampleV <-
read.table(header = TRUE, text = "Station Av8top Lat Lon
1 60 7.225806 34.13583 -117.9236
2 69 5.899194 34.17611 -118.3153
3 72 4.052885 33.82361 -118.1875
4 74 7.181452 34.19944 -118.5347
5 75 6.076613 34.06694 -117.7514
6 84 3.157258 33.92917 -118.2097
7 85 5.201613 34.01500 -118.0597
8 87 4.717742 34.06722 -118.2264
9 88 6.532258 34.08333 -118.1069
10 89 7.540323 34.38750 -118.5347", row.names = 1)
> library(geoR)
> sampleVMF <- variog(coords = sampleV[,3:4], data = sampleV[,2],
breaks = seq(0, 1.5, length = 11))
> plot(sampleVMF, axes = FALSE,
xlab="Distance between Point Pairs (km)",
ylab="Semivariance ((C/km) )")
> axis(1, at = sampleVMF$u)
> axis(2, at = sampleVMF$v)
> box()
> text(median(sampleVMF$u), median(sampleVMF$v), "Hello world!")
> lines(sampleVMF$u, sampleVMF$v)