在ggplot2中修改..count ..

Question

我想使用这样的表达式：

df <- data.frame(x=runif(1000),y=runif(1000),id=sample(1:2,1000,T,c(0.3,0.7)))
df %>%  
  group_by(id) %>%  
  mutate(n=n()) %>%  
  ggplot()+  
  geom_hex(aes(x = x, y = y, fill = ..count../n ))+
  facet_grid(id ~ .)

  

eval（expr，envir，enclos）中的错误：找不到对象'n'

有没有办法修改..count的输出..？ 在示例中，输出将与.density ...相同，但最后我想要除以其他值，它们与长度不同