Подтвердить что ты не робот

Ggplot2: geom_text() с facet_grid()?

Я просто хочу добавить аннотацию к каждой панели цифр, созданных ggplot2; просто простые метки, такие как (a), (b), (c) и т.д. в каждом углу. Есть ли простой способ сделать это?

Ответ 1

От: https://groups.google.com/forum/?fromgroups=#!topic/ggplot2/RL8M7Ut5EpU вы можете использовать следующее:

library(ggplot2) 
x <-runif(9, 0, 125) 
data <- as.data.frame(x) 
data$y <- runif(9, 0, 125) 
data$yy <- factor(c("a","b","c")) 

ggplot(data, aes(x, y)) + 
    geom_point(shape = 2) + 
    facet_grid(~yy) + 
    geom_text(aes(x, y, label=lab),
        data=data.frame(x=60, y=Inf, lab=c("this","is","the way"),
             yy=letters[1:3]), vjust=1)

который должен дать вам следующее:

Ответ 2

В принципе, вы создаете data.frame с текстом, который содержит столбец с текстом, и столбец с переменными, которые вы используете для facet_grid. Затем вы можете просто добавить geom_text с помощью data.frame. Более подробную информацию о размещении текста см. В документации geom_text.