scales - establece "espacio" en facet_wrap como en facet_grid

facet_wrap ggplot2

Question

Necesito facetas de diferente ancho; La gráfica de la izquierda muestra el rango dinámico de un experimento, y la derecha tiene las condiciones de prueba. ¿Hay alguna manera de tener escalas libres x e y con facet_wrap? Es posible en facet_grid, pero incluso con scale = "free", hay una escala y fija. facet_wrap permite escala libre y, pero la escala x parece fija. La misma pregunta se publicó en una página de Google hace unos años, pero la respuesta no es satisfactoria. https://groups.google.com/forum/#!topic/ggplot2/1RwkCcTRBAw

Lo siento si esto es una repetición aquí también; Cualquier ayuda sería enormemente apreciada!

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?

Answer 1

No puedo estar absolutamente seguro, pero creo que la respuesta es no, con los comandos ggplot2. Tampoco creo que sea una buena idea porque puede no ser obvio para un lector que las escalas en los ejes y son diferentes. Sin embargo, si debe tener la gráfica, puede ajustar el ancho de los paneles de su gráfica q utilizando el diseño ggplot grob. Tenga en cuenta que el primer panel tiene dos valores de x, y el segundo panel tiene siete valores de x. Por lo tanto, cambie los anchos predeterminados de los paneles a 2null y 7null respectivamente.

Edición: Actualización a 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)

O bien, obtenga R para determinar los anchos relativos y los paneles.

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)

Answer 2

También, para aquellos que intentan usar la respuesta de @ Sandy con 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")