Установить "космос" в facet_wrap как в facet_grid
Мне нужны фаски различной ширины; на левом рисунке показан динамический диапазон эксперимента, а справа - условия испытаний. Есть ли способ иметь как свободные x, так и y масштабы с facet_wrap? Это возможно в facet_grid, но даже с scale = "free" существует фиксированная шкала y. facet_wrap позволяет свободно масштабировать y, но масштаб x кажется фиксированным. Тот же вопрос был опубликован на странице google несколько лет назад, но ответ неудовлетворителен.
https://groups.google.com/forum/#!topic/ggplot2/1RwkCcTRBAw
Извините, если это тоже повторение; любая помощь была бы чрезвычайно оценена!
mdf <- read.table(text="
strain val type
1 1 0.0000 sample
2 1 0.0140 sample
3 1 0.0175 sample
4 2 0.0025 sample
5 2 0.0260 sample
6 2 0.0105 sample
7 3 0.0190 sample
8 3 0.0725 sample
9 3 0.0390 sample
10 4 0.0560 sample
11 4 0.0695 sample
12 4 0.0605 sample
13 5 0.0735 sample
14 5 0.1065 sample
15 5 0.0890 sample
16 6 0.1135 sample
17 6 0.2105 sample
18 6 0.1410 sample
19 7 0.1360 sample
20 7 0.2610 sample
21 7 0.1740 sample
22 8 0.3850 control
23 8 0.7580 control
24 8 0.5230 control
25 9 0.5230 control
26 9 0.5860 control
27 9 0.7240 control")
library(ggplot2)
p<-ggplot(mdf, aes(reorder(strain, val), val))+
labs(x="Strain", y="intensity")+
geom_boxplot()+
geom_point()+
facet_grid(~type, scales ="free", space="free_x")
p
## free x, fixed y. why?
q<-ggplot(mdf, aes(reorder(strain, val), val))+
labs(x="Strain", y="intensity")+
geom_boxplot()+
geom_point()+
facet_wrap(~type, scales ="free")
q
## free y, fixed x. why?
Ответы
Ответ 1
Я не могу быть абсолютно уверен, но я думаю, что ответа нет - с командами ggplot2. Я не думаю, что это хорошая идея либо потому, что читателю может быть неочевидно, что масштабы на оси y различны. Тем не менее, если у вас есть сюжет, вы можете настроить ширину панелей вашего q-графика, используя макет ggplot grob. Обратите внимание, что первая панель имеет два значения x, а вторая панель имеет семь значений x. Поэтому измените ширину по умолчанию панелей на 2null и 7null соответственно.
Изменить: обновление до ggplot2 2.2.0
library(ggplot2)
library(grid)
# get mdf data frame from the question
# Your q plot
q <- ggplot(mdf, aes(factor(strain), val)) +
labs(x = "Strain", y = "intensity") +
geom_boxplot() +
geom_point() +
facet_wrap( ~ type, scales = "free")
q
# Get the ggplot grob
gt = ggplotGrob(q)
# Check for the widths - you need to change the two that are set to 1null
gt$widths
# The required widths are 4 and 8
# Replace the default widths with relative widths:
gt$widths[4] = unit(2, "null")
gt$widths[8] = unit(7, "null")
# Draw the plot
grid.newpage()
grid.draw(gt)
# I think it is better to have some extra space between the two panels
gt$widths[5] = unit(1, "cm")
grid.newpage()
grid.draw(gt)
Или, получите R, чтобы определить относительные ширины и панели.
gt = ggplotGrob(q)
# From 'dfm', get the number of 'strain' for each 'type'.
# That is, the number x-breaks in each panel.
library(dplyr)
N <- mdf %>% group_by(type) %>%
summarise(count = length(unique(strain))) %>%
`[[`(2)
# Get the column index in the gt layout corresponding to the panels.
panelI <- gt$layout$l[grepl("panel", gt$layout$name)]
# Replace the default panel widths with relative heights.
gt$widths[panelI] <- unit(N, "null")
# Add extra width between panels (assuming two panels)
gt$widths[panelI[1] + 1] = unit(1, "cm")
## Draw gt
grid.newpage()
grid.draw(gt)
![введите описание изображения здесь]()
Ответ 2
Кроме того, для тех, кто пытается использовать ответ @Sandy с dplyr:
library(dplyr)
N<-mdf%>% group_by(type)%>% summarise(count = length(unique(strain)))
# Get the column index in the gt layout corresponding to the panels.
panelI <- gt$layout$l[grepl("panel", gt$layout$name)]
# Replace the default panel widths with relative heights.
gt$widths[panelI] <- lapply(N$count, unit, "null")
