r - 在 ggplot 中插入值的百分比

Question

我对 R 还很陌生，但我正在尝试使用 R 中的 ggplot 包做一个 facet_grid ，为了更好的数据可视化，我想在分组列的每个象限中插入值的百分比，如下图所示:

可以是一个或另一个，在每个象限或图例中。

我的代码如下

ggplot(df1_final,aes(x=revenue,y=visits,col=groupings)) +
  geom_jitter(alpha=I(1/2)) + 
  xlim(c(0,20000)) + 
  facet_grid(group_lvl_1_visits ~ group_lvl_1_revenue)

有人可以帮我解决这个问题吗？

编辑:这两种解决方案都对我有很大帮助，非常好。

Answer 1

这是一种方法:

library(ggplot2)
ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~class, nrow = 4) ->
  p
p + geom_text(
  data = setNames(as.data.frame(prop.table(table(mpg$class))),c("class", "lab")),
  mapping = aes(label = scales::percent(lab)), 
  x = 4, 
  y = 40
)

或者，对于facet_grid:

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p <- p + facet_grid(drv ~ cyl)
p + geom_text(
  data = setNames(as.data.frame(prop.table(table(mpg$drv, mpg$cyl)), stringsAsFactors = F), c("drv","cyl","lab")),
  mapping = aes(label = scales::percent(lab)),
  x=4.5, 
  y=30
)