# NOT RUN {
library(dplyr)
library(tibble)
mtcars %>%
group_by(cyl) %>%
summarize(wt = mean(wt), mpg = mean(mpg)) %>%
ungroup() %>%
mutate(wt = sprintf("%.2f", wt),
mpg = sprintf("%.1f", mpg)) -> tb
df <- tibble(x = 0.95, y = 0.95, tb = list(tb))
ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
geom_point() +
geom_table_npc(data = df, aes(npcx = x, npcy = y, label = tb),
hjust = 1, vjust = 1)
# }
Run the code above in your browser using DataLab