Остановить масштаб оси в facet_wrap от ggplot2

Я создал сюжет, как здесь, с пакетом ggplot2 и facet_wrap, и я хотел бы подавить часть оси x, чтобы сделать ее более разборчивой. Например, здесь было бы более разборчивым, если бы шкалы осей X появлялись на коробках D, F, H и J.Остановить масштаб оси в facet_wrap от ggplot2

Как я мог это сделать?

Заранее благодарен!

plot... http://docs.ggplot2.org/0.9.3.1/facet_wrap-8.png

EDIT: воспроизводимый код

library(ggplot2) 
d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) + 
    xlim(0, 2) + stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1) 
d + facet_wrap(~ color, nrow = 1)

источник

2014-09-03 Pop

Ваш вопрос очень похожи, если не идентичны, чтобы http://stackoverflow.com/questions/5380417/ is-a-way-of-manipulating-ggplot-scale-breaks-and-labels – Andrie

Я думаю, что ваш вопрос касался изменения масштабов, но здесь я не хочу изменять масштаб (который я исправил вручную путь). Я хотел бы, чтобы он отображался на некоторых грани, но не во всех (например, грани D, F, H и J). – Pop

Интересный вопрос, но всегда лучше иметь воспроизводимый код. Не могли бы вы добавить его, чтобы было удобно копировать/вставлять/экспериментировать?(особенно потому, что ваши данные выглядят как «бриллианты») – tonytonov

Если вы готовы работать на уровне сетки/уровня, это определенно выполнимо.

Во-первых, мы относим объект ggplot с граненым участка

my_plot <- d + facet_wrap(~ color, nrow = 1)

Затем мы загружаем до gtable поэтому мы можем использовать/манипулировать объектами более низкого уровня.

library(gtable) 

## Loading required package: grid

Теперь мы извлекаем объект ggplot в TableGrob (извинения за долгий иш выхода, но я думаю, что это помогает показать основную структуру фасеточных участков):

plot_tab <- ggplotGrob(my_plot) 
print(plot_tab) 

## TableGrob (8 x 25) "layout": 33 grobs 
##  z   cells  name         grob 
## 1 0 (1- 8, 1-25) background   rect[plot.background.rect.263] 
## 2 1 (4- 4, 4- 4) panel-1     gTree[panel-1.gTree.53] 
## 3 2 (4- 4, 7- 7) panel-2     gTree[panel-2.gTree.68] 
## 4 3 (4- 4,10-10) panel-3     gTree[panel-3.gTree.83] 
## 5 4 (4- 4,13-13) panel-4     gTree[panel-4.gTree.98] 
## 6 5 (4- 4,16-16) panel-5    gTree[panel-5.gTree.113] 
## 7 6 (4- 4,19-19) panel-6    gTree[panel-6.gTree.128] 
## 8 7 (4- 4,22-22) panel-7    gTree[panel-7.gTree.143] 
## 9 8 (3- 3, 4- 4) strip_t-1 absoluteGrob[strip.absoluteGrob.211] 
## 10 9 (3- 3, 7- 7) strip_t-2 absoluteGrob[strip.absoluteGrob.217] 
## 11 10 (3- 3,10-10) strip_t-3 absoluteGrob[strip.absoluteGrob.223] 
## 12 11 (3- 3,13-13) strip_t-4 absoluteGrob[strip.absoluteGrob.229] 
## 13 12 (3- 3,16-16) strip_t-5 absoluteGrob[strip.absoluteGrob.235] 
## 14 13 (3- 3,19-19) strip_t-6 absoluteGrob[strip.absoluteGrob.241] 
## 15 14 (3- 3,22-22) strip_t-7 absoluteGrob[strip.absoluteGrob.247] 
## 16 15 (4- 4, 3- 3) axis_l-1 absoluteGrob[axis-l-1.absoluteGrob.199] 
## 17 16 (4- 4, 6- 6) axis_l-2   zeroGrob[axis-l-2.zeroGrob.200] 
## 18 17 (4- 4, 9- 9) axis_l-3   zeroGrob[axis-l-3.zeroGrob.201] 
## 19 18 (4- 4,12-12) axis_l-4   zeroGrob[axis-l-4.zeroGrob.202] 
## 20 19 (4- 4,15-15) axis_l-5   zeroGrob[axis-l-5.zeroGrob.203] 
## 21 20 (4- 4,18-18) axis_l-6   zeroGrob[axis-l-6.zeroGrob.204] 
## 22 21 (4- 4,21-21) axis_l-7   zeroGrob[axis-l-7.zeroGrob.205] 
## 23 22 (5- 5, 4- 4) axis_b-1 absoluteGrob[axis-b-1.absoluteGrob.150] 
## 24 23 (5- 5, 7- 7) axis_b-2 absoluteGrob[axis-b-2.absoluteGrob.157] 
## 25 24 (5- 5,10-10) axis_b-3 absoluteGrob[axis-b-3.absoluteGrob.164] 
## 26 25 (5- 5,13-13) axis_b-4 absoluteGrob[axis-b-4.absoluteGrob.171] 
## 27 26 (5- 5,16-16) axis_b-5 absoluteGrob[axis-b-5.absoluteGrob.178] 
## 28 27 (5- 5,19-19) axis_b-6 absoluteGrob[axis-b-6.absoluteGrob.185] 
## 29 28 (5- 5,22-22) axis_b-7 absoluteGrob[axis-b-7.absoluteGrob.192] 
## 30 29 (7- 7, 4-22)  xlab    text[axis.title.x.text.249] 
## 31 30 (4- 4, 2- 2)  ylab    text[axis.title.y.text.251] 
## 32 31 (4- 4,24-24) guide-box      gtable[guide-box] 
## 33 32 (2- 2, 4-22)  title    text[plot.title.text.261]

Моего Отрицание -look-ahead-regex-fu не работает сегодня утром, поэтому, если кто-нибудь с более коротким регулярным выражением для этого может отредактировать его или прокомментировать, что это будет потрясающе. В принципе, мы отфильтровываем элементы оси x, которые вам не нужны (распечатайте их снова локально, чтобы узнать, что ушло).

plot_filtered <- gtable_filter(plot_tab, 
        "(background|panel|strip_t|axis_l|xlab|ylab|guide-box|title|axis_b-[1357])", 
        trim=FALSE)

И теперь мы делаем фактическую заговоры:

grid.newpage() 
grid.draw(plot_filtered)

enter image description here

источник

2014-09-03 11:51:42 hrbrmstr

Я не думаю, что ваш метод negating-look-ahead-regex-fu может работать с ['gtable_filter'] (https://github.com/hadley/gtable/blob/ master/R/filter.r) b/c он не позволяет передавать 'perl = TRUE' в выражение' grepl() ', поэтому нельзя использовать выражения типа' (?! axis_b) '. Также невозможно передать 'negate = TRUE', чтобы отменить все регулярное выражение. –

Есть большая причина, почему вы решили отображать только участки в одном ряду? Просто установите параметр nrow = 2 из facet_wrap() и повернуть текст х-оси: изменение theme(aspect.ratio=1) к theme(aspect.ratio = 1,axis.text.x = element_text(angle = 90, hjust = 0,vjust=.5))

Так что результат будет выглядеть следующим образом:

library(ggplot2) 
d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) + 
xlim(0, 2) + stat_binhex(na.rm = TRUE) + 
theme(aspect.ratio = 1,axis.text.x = element_text(angle = 90, hjust = 0,vjust=.5)) 
d + facet_wrap(~ color, nrow = 2)

Я знаю, что не может ответить на ваш вопрос но, по моему мнению, я думал, что вы, возможно, с нетерпением ожидаете, что сюжет будет менее перегружен.

Это работает для вас?

источник

2014-09-03 11:43:25 n0rc

Остановить масштаб оси в facet_wrap от ggplot2

ответ

Смежные вопросы