Dodawanie punktów do filled.contour w R - w odpowiednim miejscu

Question

Chciałbym dodać punkt do istniejącego filled.contour działce, stosując następujący kod:

MyFunction <- function(x,y){ 
    return(dnorm(sqrt(x^2+y^2))) 
} 
wrapper <- function(x, y, my.fun, ...) {sapply(seq_along(x), FUN = function(i) my.fun(x[i], y[i], ...))} 
meshstep <- 0.5 
x<- seq(-20,20,meshstep) 
y <-seq(-20,20,meshstep) 
z <- outer(x,y,FUN = wrapper, my.fun=MyFunction) 
filled.contour(x,y,z, col=rev(heat.colors(n=20, alpha=0.7)), nlevels=15) 
points(0,0) 

Jestem bardzo zaskoczony, że points(0,0) didn nie umieścił punktu na początku wykresu, ale z grubsza znajduje się w punkcie x = 10, y = 0. Również, locator() wydaje się również monitować współrzędne w odniesieniu do tego "nowego" układu współrzędnych. Dlaczego?

Answer 1

Najlepszym rozwiązaniem jest użycie plot.axes argumentu jak wspomniano przez @juba. Ale jeśli naprawdę musisz dodać coś po zakończeniu fabuły, możesz użyć locator, aby kliknąć 2 punkty na wykresie, gdzie znasz wartości punktów w układzie współrzędnych, którego chcesz użyć (przeciwległe rogi), a następnie użyj funkcja updateusr z pakietu TeachingDemos, aby zmodyfikować bieżący układ współrzędnych do tego, którego chcesz użyć. Następnie można dodać do wykresu za pomocą nowego układu współrzędnych (może być konieczne ustawienie par(xpd=NA)).

Answer 2

można znaleźć szczegółowe odpowiedź tutaj: Plotting a box within filled.contour plots in R?

w skrócie, filled.contour stosowanie dwóch różnych systemów współrzędnych, jeden dla napełnionego konturu i jeden dla legendy. Aby rozwiązać problem, trzeba albo użyć innej funkcji lub umieszczania points do plot.axes argumentu:

filled.contour(x,y,z, col=rev(heat.colors(n=20, alpha=0.7)), nlevels=15, 
       plot.axes={points(0,0)})