Ich versuche mit R eine Heatmap zu erstellen. Ich versuche mit ggplot2. Mein tatsächlicher Datenrahmen ist viel größer, aber hier füge ich nur einen kleinen Teil hinzu.

x <- c(502.9, 512.1, 716.6, 759.7, 776.1, 776.5, 736.1, 271.3, 304.7, 279.9, 263.8, 726.6, 767.6, 778.8, 779.2, 263.6, 291.8, 472.6, 499.9, 684.9) 
y <- c(374.6, 367.4, 378.1, 373.7, 381.4, 395.7, 412.1, 399.2, 364.6, 382.1, 409.1, 410.4, 411.1, 429.4, 477.4, 468.6, 406.5, 343.2, 356.9, 365.2)
a <- data.frame(x,y)
ggplot(a, aes(x = x, y =y))  + stat_density2d(geom = "tile", aes(fill = ..density..), contour = FALSE) + scale_fill_gradient (low= "green", high="red") + geom_point()

Ich möchte etwas Ähnliches wie dieses Bild erhalten. Je roter der Bereich ist, desto mehr Punkte gibt es in diesem Bereich.

Wie Sie sehen, ist mein Hintergrund grün, wenn ich dies versuche. Wie kann ich meinen Code ändern, um eine Heatmap wie die im Bild gezeigte zu erhalten? Wie kann ich ein Bild als Hintergrund einfügen?

Vielen Dank