How to set different y-axis upper limit for each plot with facet_wrap

Question

I have a dataset that looks like this

      Number          Type Count          Fcts
1         1            AA  5505            AA
2         2            AA  8150            AA
3         3            AA  9424            AA
4         4            AA 10050            AA
5         5            AA 10815            AA
6         6            AA 11483            AA
7         7            AA 12322            AA
8         8            AA 12431            AA
9         9            AA 12693            AA
10       10            AA 13099            AA
11       11            AA 13361            AA
12       12            AA 13028            AA
13       13            AA 13403            AA
14       14            AA 12869            AA
15       15            AA 12680            AA
16       16            AA 14028            AA
17       17            AA 15331            AA
18       18            AA 15861            AA
19       19            AA 15722            AA
20       20            AA 15716            AA
21       21            AA 16078            AA
22       22            AA 16283            AA
23       23            AA 15621            AA
24       24            AA 15225            AA
25       25            AA 14221            AA
26       26            AA 12996            AA
27       27            AA 12710            AA
28       28            AA 12418            AA
29       29            AA 12837            AA
30       30            AA 13235            AA
31       31            AA 12073            AA
32       32            AA  6189            AA
33        1        New.AA  5505            AA
34        2        New.AA  3820            AA
35        3        New.AA  3571            AA
36        4        New.AA  3148            AA
37        5        New.AA  3017            AA
38        6        New.AA  2959            AA
39        7        New.AA  3167            AA
40        8        New.AA  2759            AA
41        9        New.AA  2898            AA
42       10        New.AA  3790            AA
43       11        New.AA  3306            AA
44       12        New.AA  2900            AA
45       13        New.AA  3376            AA
46       14        New.AA  3999            AA
47       15        New.AA  3502            AA
48       16        New.AA  4069            AA
49       17        New.AA  3814            AA
50       18        New.AA  3193            AA
51       19        New.AA  3166            AA
52       20        New.AA  2999            AA
53       21        New.AA  2851            AA
54       22        New.AA  2823            AA
55       23        New.AA  2471            AA
56       24        New.AA  2204            AA
57       25        New.AA  2152            AA
58       26        New.AA  2163            AA
59       27        New.AA  2013            AA
60       28        New.AA  1841            AA
61       29        New.AA  2085            AA
62       30        New.AA  2139            AA
63       31        New.AA  1652            AA
64       32        New.AA   440            AA
65        1 Comulative.AA  5505 Comulative.AA
66        2 Comulative.AA  9325 Comulative.AA
67        3 Comulative.AA 12896 Comulative.AA
68        4 Comulative.AA 16044 Comulative.AA
69        5 Comulative.AA 19061 Comulative.AA
70        6 Comulative.AA 22020 Comulative.AA
71        7 Comulative.AA 25187 Comulative.AA
72        8 Comulative.AA 27946 Comulative.AA
73        9 Comulative.AA 30844 Comulative.AA
74       10 Comulative.AA 34634 Comulative.AA
75       11 Comulative.AA 37940 Comulative.AA
76       12 Comulative.AA 40840 Comulative.AA
77       13 Comulative.AA 44216 Comulative.AA
78       14 Comulative.AA 48215 Comulative.AA
79       15 Comulative.AA 51717 Comulative.AA
80       16 Comulative.AA 55786 Comulative.AA
81       17 Comulative.AA 59600 Comulative.AA
82       18 Comulative.AA 62793 Comulative.AA
83       19 Comulative.AA 65959 Comulative.AA
84       20 Comulative.AA 68958 Comulative.AA
85       21 Comulative.AA 71809 Comulative.AA
86       22 Comulative.AA 74632 Comulative.AA
87       23 Comulative.AA 77103 Comulative.AA
88       24 Comulative.AA 79307 Comulative.AA
89       25 Comulative.AA 81459 Comulative.AA
90       26 Comulative.AA 83622 Comulative.AA
91       27 Comulative.AA 85635 Comulative.AA
92       28 Comulative.AA 87476 Comulative.AA
93       29 Comulative.AA 89561 Comulative.AA
94       30 Comulative.AA 91700 Comulative.AA
95       31 Comulative.AA 93352 Comulative.AA
96       32 Comulative.AA 93792 Comulative.AA

What I want to do is to use ggplot to plot as a bar chart Type AA and New.AA, and as a scatter/line chart Type Comulative.AA, in two different facets.

I can do this using the following code

ggplot(data = subset(df, Type != "Comulative.AA"), aes(x = Fraction, y = Count, fill = Type)) + geom_bar(stat = "identity", position = "dodge") + geom_line(data = subset(df, Type  == "Comulative.AA"), aes(x = Fraction, y = Count), size = 1) + geom_point(data = subset(df, Type  == "Comulative.AA"), aes(x = Fraction, y = Count), size = 3, shape = 21) + theme_bw() + theme(legend.position = "right") + scale_fill_manual(values = c("black", "blue", "red")) + facet_wrap(~Fcts, nrow = 2, scales = "free")

plot

This is what I get, which is almost fine, except for the y-axis. I would like to have the upper plot going from 0 till 120000, while the lower plot from 0 till 20000. Is there a way to attain this?

Take a look at @baptiste's answer of this question: https://stackoverflow.com/questions/18046051/setting-individual-axis-limits-with-facet-wrap-and-scales-free-in-ggplot2 — mzuba, Jun 14 '17 at 12:44
Thanks for the suggestion. I tried but it does not work for me...I do not understand how I should create the 'dummy' data set — pisistrato, Jun 14 '17 at 15:35
I correct myself, it works perfectly. I have created a dummy data frame with `dummy <- df[df$Number== 32,]` and `dummy[, 3] <- c(20000, 20000, 120000)`. Then `geom_blank(data = dummy)` does the trick — pisistrato, Jun 16 '17 at 07:52

score 1 · Answer 1 · answered Jun 14 '17 at 13:02

1

One alternative is to use grid.arrange() from package gridExtra.

grid.arrange(
  ggplot(data = subset(df, Type != 'Comulative.AA'), aes(x = Fcts, y = Count, fill = Type)) + 
   geom_bar(stat = "identity", position = "dodge") + 
   ylim(c(0, 120e3)),

  ggplot(data = subset(df, Type  == 'Comulative.AA'), aes(x = Number, y = Count, fill = Type)) + 
   geom_line(size = 1) + geom_point() + 
   ylim(c(0, 20e3)))

answered Jun 14 '17 at 13:02

demarsylvain

2,103
2
14
33

This also works, but I like more the way facet_wrap generate the plots. – pisistrato Jun 26 '17 at 11:24

How to set different y-axis upper limit for each plot with facet_wrap

1 Answers1