This is the head of my data:

```
structure(list(aasta = c(2012, 2013, 2014, 2015, 2016, 2017, 
2018, 2019, 2020, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 
2020), tunnus1 = c("Ennetähtaegselt vanaduspensionile minejate arv", 
"Ennetähtaegselt vanaduspensionile minejate arv", "Ennetähtaegselt vanaduspensionile minejate arv", 
"Ennetähtaegselt vanaduspensionile minejate arv", "Ennetähtaegselt vanaduspensionile minejate arv", 
"Ennetähtaegselt vanaduspensionile minejate arv", "Ennetähtaegselt vanaduspensionile minejate arv", 
"Ennetähtaegselt vanaduspensionile minejate arv", "Ennetähtaegselt vanaduspensionile minejate arv", 
"Vanaduspensionile minejate arv", "Vanaduspensionile minejate arv", 
"Vanaduspensionile minejate arv", "Vanaduspensionile minejate arv", 
"Vanaduspensionile minejate arv", "Vanaduspensionile minejate arv", 
"Vanaduspensionile minejate arv", "Vanaduspensionile minejate arv", 
"Vanaduspensionile minejate arv"), vaartus1 = c(1022, 1173, 1129, 
1083, 1294, 1026, 862, 751, 764, 6529, 7683, 6797, 6892, 8106, 
6922, 6502, 6098, 5817), tunnus2 = c("Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Ennetähtaegselt vanaduspensionile minejate osakaal kõigist eelmisel aastal  VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest", 
"Vanaduspensionile minejate osakaal kõigist eelmisel aastal VTI-dest"
), vaartus2 = c(0.01, 0.011, 0.01, 0.01, 0.012, 0.009, 0.008, 
0.007, 0.007, 0.066, 0.073, 0.063, 0.064, 0.074, 0.062, 0.059, 
0.057, 0.054)), row.names = c(NA, -18L), class = c("tbl_df", 
"tbl", "data.frame"))

```

My colors:

```
cen_col_palette <- function(){
  c("#1C5679",
    "#808C5C",
    "#BF2124",
    "#D88F2E",
    "#5F4B3B",
    "#BBB592",
    "#87240E",
    "#7A989A",
    "#204035",
    "#F4CE4B",
    "#805730",
    "#D4613E",
    "#212F3D",
    "#145A32",
    "#808080",
    "#E74C3C")
}
cen_cols <- cen_col_palette()

```

This is my plot:

```
ggplot(ennet1, aes(y = vaartus2, x = aasta, group=tunnus2, label=scales::percent(vaartus2,decimal.mark=',',accuracy = 0.1)))+
  geom_line(aes(color=tunnus2, linetype=tunnus2))+
  geom_point(aes(color=tunnus2))+
  geom_label(vjust = -0.6, label.size = 0, label.padding = unit(0.3, "lines"), size = 3.5)+
  scale_x_continuous(breaks = seq(2012,2020,by=2))+
  scale_y_continuous(labels = scales::percent_format(decimal.mark = ',',accuracy=1), expand = expansion(mult = c(0, 0.5)))+
  cen_theme()+
  theme(
    strip.background =element_blank(),
    strip.text =element_text(size=11),
    axis.title.y = element_text(angle = 90), 
    axis.text.x = element_text(size = 11), 
    axis.text.y = element_text(size = 11), 
    legend.text = element_text(size = 11))+
  scale_fill_manual(values = cen_cols)+
  scale_color_manual(values = cen_cols)+
  theme(legend.title = element_blank())+
  theme(plot.title = element_text(size = 11, hjust=0.5))+
  theme(axis.title.x = element_blank())+
  theme(axis.title.y = element_blank())+
  theme(legend.key.height=unit(2, "cm"))+
  theme(legend.position="top", legend.box="vertical", legend.margin=margin())

```

This is what the graph looks like right now:

[![enter image description here](https://i.stack.imgur.com/21CJW.png)](https://i.stack.imgur.com/21CJW.png)

As you can see the legend titles are too long and I would like to wrap them. I tried library(stringr) and adding str\_wrap, but really I don't know where to put it and it did not work.

Thank you in advance!