Rggplot氣泡圖的大小由組的平均值

Question

我想做一個氣泡圖，我有多個z值爲每個xy座標。我想geom_point的大小是每個XY平均Z值座標/ interaction-我的預期輸出會是這樣的：

我試圖通過x和y值的交互分組，但不能得到ggplot採取該組的意思。相反，我得到的是整個數據集的平均值，或者是在同一個xy位置繪製多個點，每個點都具有由z值設置的自己的大小。這裏是我試過前：

library(ggplot2) 

z <- seq(1,20, length.out = 18) 
xy <- expand.grid(c(1,2,3),c(1,2,3)) 
xyz <- data.frame(xy, z) 
names(xyz) <- c("x", "y", "z") 

ggplot(xyz, aes(x, y, group = interaction(x,y)))+ 
    geom_point(size = z, position = position_jitter(width = 0.2, height = 0)) 

其中給出該地塊（抖動顯示該所描繪的多個點）：

所以 - 是有可能按XY位置和通過每個位置的平均值設置大小？當然，如果需要，我可以首先找到意思，但是我想知道ggplot本身是否有一種方法。

在此先感謝，請讓我知道是否需要澄清任何事情。

Answer 1

感謝@Gregor指着我stat_bin_2d這讓我的解決方案，最終爲我工作：

library(ggplot2) 

z <- runif(81, min = 4, max = 10) 
xy <- expand.grid(c(1,2,3),c(1,2,3)) 
xyz <- data.frame(xy, z) 
names(xyz) <- c("x", "y", "z") 

ggplot(xyz, aes(x, y, z = z), col = "black")+ 
    stat_summary_2d(aes(size = ..value..), geom = "point")+ 
    scale_size(range = c(4, 15))+ 
    guides(fill = FALSE) 

，其輸出是這樣的：

Alt根據格雷戈爾和尼古拉斯的說法，這在技術上可以做到我想要的 - 這很少會成爲這樣做的正確方法。

Answer 2

這會讓你在那裏。儘管我寧願先樞轉/彙總數據，然後ggplot彙總的df。

ggplot(data = (xyz %>% group_by(x, y) %>% summarise(z.mean = mean(z))), 
     aes(x, y, size = z.mean)) + 
geom_point(position = position_jitter(width = 0.2, height = 0))