Try levelplot in package lattice instead of filled.contour: you will
be able to annotate the plot using the grid package. Moreover, you can
remove the key using the colorkey argument.
library(lattice)
library(grid)
z <- as.matrix(read.table("hist_2d"))
dimnames(z) <- NULL
Data <- expand.grid(x = seq(-4.45, 4.45, len = 90),
y = seq(-4.45, 4.45, len = 90))
Data$z <- c(z)
rm(z)
Cols <- colorRampPalette(c("white", "blue","yellow","red"))
levelplot(z ~ x * y, data = Data,
aspect = 1, colorkey = FALSE, col.regions = Cols(6),
panel = function(...){
panel.levelplot(...)
grid.circle(x = 0.62, y = 0, r = 2.5, default.units = "native")
})
Best,
Renaud
2006/12/17, Webmaster <[EMAIL PROTECTED]>:
> > The output produced by 'filled.contour' is actually a combination
> > of two plots; one is the filled contour and one is the legend.
> > Two separate coordinate systems are set up for these two plots,
> > but they are only used internally - once the function has
> > returned
> > these coordinate systems are lost. If you want to annotate the
> > main contour plot, for example to add points, you can specify
> > graphics commands in the 'plot.axes' argument. An example is
> > given below.
>
> Thanks!
>
> I now have another question (hopefully the last) for which I couldn't
> find an answer in the mailing-list archives: how can I get rid of the
> color key on the contour.filled() plot? I that question, unanswered,
> in a post one year ago on this same list, so I hope it's by any mean
> possible... (I think it's possible to change the code completely and
> use image(), but it's much less pretty).
>
> FX
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Renaud LANCELOT
Département Elevage et Médecine Vétérinaire (EMVT) du CIRAD
Directeur adjoint chargé des affaires scientifiques
CIRAD, Animal Production and Veterinary Medicine Department
Deputy director for scientific affairs
Campus international de Baillarguet
TA 30 / B (Bât. B, Bur. 214)
34398 Montpellier Cedex 5 - France
Tél +33 (0)4 67 59 37 17
Secr. +33 (0)4 67 59 39 04
Fax +33 (0)4 67 59 37 95
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
