Evelyn Hall: I would like to know how (if) I can extract some of the information from the summary of my nlme.
Simon Blomberg: This is R. There is no if. Only how.
-- Evelyn Hall and Simon 'Yoda' Blomberg
R-help (April 2005)
Par exemple avec ggrepel (et le paramètre nudge_x) :
il faut créer une valeur de position pour le y de l'étiquette
Code : Tout sélectionner
library(ggrepel)
library(tidyverse)
df <- tibble(id = LETTERS[1:5],
val = round(abs(10 * rnorm(5)))) %>%
mutate(pos = (cumsum(lag(val, default = 0)) + (val / 2)))
ggplot(data = df, aes("", val, fill = id)) +
geom_col(position = position_stack(reverse = TRUE)) +
geom_label_repel(aes(y = pos, label = id), nudge_x = 5) +
coord_polar("y") +
guides(fill=FALSE) +
theme_void()
à peaufiner avec point.padding par exemple...