@@ -93,6 +93,12 @@ theme_transparent <- function(...) {

               colour = NA),

           plot.background = element_rect(

               fill = "transparent",

+              colour = NA),

+          legend.key = element_rect(

+              fill = "transparent", 

+              colour = NA),

+          legend.background = element_rect(

+              fill = "transparent", 

               colour = NA), ...)

 }