title: How can I plot one trend figure with different aes of linetype, shape and color?
body: <p>I want to observe the trend of FTSW. Colors are distinguished by different blocs, and shapes and line types are distinguished by traitement, like the figure below:
  <a href="https://i.stack.imgur.com/wyH3R.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wyH3R.jpg" alt="enter image description here" /></a></p>
  <p>Please see the original data below:</p>
  <pre><code>df&lt;-structure(list(Bloc = c(7, 7, 8, 8, 5, 5, 7, 7, 8, 8, 5, 5, 7, 
                              7, 8, 8, 5, 5), Pos_heliaphen = c(&quot;W16&quot;, &quot;W17&quot;, &quot;W36&quot;, &quot;W37&quot;, 
                                                                &quot;X02&quot;, &quot;X03&quot;, &quot;W16&quot;, &quot;W17&quot;, &quot;W36&quot;, &quot;W37&quot;, &quot;X02&quot;, &quot;X03&quot;, &quot;W16&quot;, 
                                                                &quot;W17&quot;, &quot;W36&quot;, &quot;W37&quot;, &quot;X02&quot;, &quot;X03&quot;), traitement = c(&quot;WS&quot;, &quot;WW&quot;, 
                                                                                                                   &quot;WW&quot;, &quot;WS&quot;, &quot;WS&quot;, &quot;WW&quot;, &quot;WS&quot;, &quot;WW&quot;, &quot;WW&quot;, &quot;WS&quot;, &quot;WS&quot;, &quot;WW&quot;, &quot;WS&quot;, 
                                                                                                                   &quot;WW&quot;, &quot;WW&quot;, &quot;WS&quot;, &quot;WS&quot;, &quot;WW&quot;), Variete = c(&quot;Blancas&quot;, &quot;Blancas&quot;, 
                                                                                                                                                              &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, 
                                                                                                                                                              &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, 
                                                                                                                                                              &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;, &quot;Blancas&quot;), Date_obs = c(&quot;D07_27/05/2021&quot;, 
                                                                                                                                                                                                                        &quot;D07_27/05/2021&quot;, &quot;D07_27/05/2021&quot;, &quot;D07_27/05/2021&quot;, &quot;D07_27/05/2021&quot;, 
                                                                                                                                                                                                                        &quot;D07_27/05/2021&quot;, &quot;D12_07/06/2021&quot;, &quot;D12_07/06/2021&quot;, &quot;D12_07/06/2021&quot;, 
                                                                                                                                                                                                                        &quot;D12_07/06/2021&quot;, &quot;D12_07/06/2021&quot;, &quot;D12_07/06/2021&quot;, &quot;D13_08/06/2021&quot;, 
                                                                                                                                                                                                                        &quot;D13_08/06/2021&quot;, &quot;D13_08/06/2021&quot;, &quot;D13_08/06/2021&quot;, &quot;D13_08/06/2021&quot;, 
                                                                                                                                                                                                                        &quot;D13_08/06/2021&quot;), FTSW_apres_arros = c(-0.82561716279966, -0.83052784248231, 
                                                                                                                                                                                                                                                                -0.833812425397989, -0.826677385087996, -0.831991201718322, -0.827650244364889, 
                                                                                                                                                                                                                                                                0.900083501645054, 0.899646933005172, 0.920126486265779, 0.901668054319428, 
                                                                                                                                                                                                                                                                0.899616920453791, 0.899570142896103, -0.82561716279966, -0.83052784248231, 
                                                                                                                                                                                                                                                                -0.833812425397989, -0.826677385087996, -0.831991201718322, -0.827650244364889
                                                                                                                                                                                                                        )), class = c(&quot;tbl_df&quot;, &quot;tbl&quot;, &quot;data.frame&quot;), row.names = c(NA, 
                                                                                                                                                                                                                                                                                    -18L))
  </code></pre>
  <pre><code>df %&gt;% 
    select(1,2,3,4,5,6) %&gt;% 
    ggplot(aes(Date_obs, FTSW_apres_arros),colour= Bloc,shape=traitement, linetype=traitement) +
    geom_point() +
    geom_line()+
    labs(y=expression(paste('FTSW')))+
    theme(legend.position=&quot;bottom&quot;, axis.text.x = element_text(angle = 90, hjust = 1))
  </code></pre>
  <p>And here is the figure I got:
  <a href="https://i.stack.imgur.com/Y8w4A.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Y8w4A.png" alt="enter image description here" /></a></p>
  <p>If not considering the manual editing, how can I change the legend to the figure belowing:
  <a href="https://i.stack.imgur.com/x8NEQ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/x8NEQ.png" alt="enter image description here" /></a></p>