title: climatograph with R and ggplot
body: <p>I would like to do a <a href="http://en.wikipedia.org/wiki/Climograph#mediaviewer/File:CalcuttaMetric.png" rel="nofollow noreferrer">climatographe</a> or a <a href="http://en.wikipedia.org/wiki/Template:Climate_chart/How_to_read_a_climate_chart" rel="nofollow noreferrer">climat chart</a>  using ggplot.</p>
  
  <p>My data look like </p>
  
  <pre><code>&gt; data.df
     mese Temperatura.media pioggia
  1   Jan              -0.3    46.6
  2   Feb               2.6    40.9
  3   Mar               7.1    68.5
  4   Apr              11.5    72.5
  5   May              15.6    92.0
  6   Jun              19.1    79.6
  7   Jul              21.4    79.2
  8   Aug              20.6    81.2
  9   Sep              17.2    85.4
  10  Oct              11.3    98.9
  11  Nov               4.9    93.7
  12  Dec               0.8    52.1
  </code></pre>
  
  <p>I have </p>
  
  <pre><code>data.df$mese&lt;-month(data.df$mese, label = T)
  
  climagg&lt;-ggplot(data=data.df)+
    geom_bar(aes(x=mese, y=pioggia),stat = "identity")
  climagg
  </code></pre>
  
  <p>that give me </p>
  
  <p><img src="https://i.stack.imgur.com/2IHGk.png" alt="bar plot whit ggplot"></p>
  
  <p>But I need have 2 axes one left and one right with different range (e.g. <a href="http://en.wikipedia.org/wiki/Climograph#mediaviewer/File:CalcuttaMetric.png" rel="nofollow noreferrer">climatographe</a>)... but <a href="https://stackoverflow.com/questions/3099219/how-to-use-ggplot2-make-plot-with-2-y-axes-one-y-axis-on-the-left-and-another">it seem not easy</a> with ggplot. </p>
  
  <p>So the climat chart is may be easyer to do ... with non axes and using the <a href="http://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_%28ggplot2%29/" rel="nofollow noreferrer">multiplot fonction</a> for ggplot </p>
  
  <pre><code>ggtheme&lt;-theme(strip.text.x = element_text(size=14),
                 strip.text.y = element_text(size=14),
                 legend.title = element_text(size=14),
                 panel.background = element_blank()
  )
  
  pioggiagg&lt;-ggplot(data=data.df)+
    geom_bar(aes(x=mese.asdate, y=pioggia),stat = "identity",fill="#67a9cf")+
    geom_text(aes(x=mese.asdate, y=pioggia+3, label=pioggia),size=4)+
    theme(axis.text.y=element_blank(),
          axis.title.y = element_blank(),
          axis.ticks = element_blank(),
          axis.title.x = element_text(face="bold", size=12))+
    scale_x_discrete("")+
    ggtheme
  pioggiagg
  
  tempgg&lt;-ggplot()+
          geom_bar(data=data.df,aes(x=mese.asdate, y=pioggia),stat = "identity",alpha=0)+
          geom_bar(data=data.df,aes(x=mese.asdate, y=temp_max),stat = "identity",alpha=0)+
          geom_bar(data=data.df,aes(x=mese.asdate, y=temp_mini),stat = "identity",alpha=0)+
          geom_rect(data=data.df,stat = "identity",aes(xmin=mese-0.4, xmax=mese+0.4,ymin=temp_mini, ymax=temp_max),fill="#ef8a62")+
          geom_text(data=data.df,aes(x=mese.asdate, y=temp_mini-3, label=temp_mini),size=4)+
          geom_text(data=data.df,aes(x=mese.asdate, y=temp_max+3, label=temp_max),size=4)+
          theme(axis.title.x = element_blank(),
                axis.title.y = element_blank(),
                axis.ticks = element_blank(),
                axis.text.x=element_blank(),
                axis.text.y=element_blank())+
          ggtheme
  tempgg
  
  multiplot(tempgg,pioggiagg,cols=1)
  </code></pre>
  
  <p>that give me </p>
  
  <p><img src="https://i.stack.imgur.com/nJLrQ.png" alt="enter image description here"></p>