@@ -483,12 +483,12 @@ pointCompMap <- function(occs1, occs2,
483483 xlab(" " ) +
484484 ylab(" " ) +
485485 labs(
486- title = paste0(" ***" , spName ," ***<br>
487- <span style='color:" , agreeCol ," ;'>Overlapping</span>,
488- <span style='color:" , occs1Col , " ;'>in " , occs1Name ,
489- " dataset only</span>, and
490- <span style='color:" , occs2Col , " ;'>in " ,
491- occs2Name , " dataset only</span>" )) +
486+ title = paste0(" ***" , spName , " ***<br>" ,
487+ " <span style='color:" , agreeCol , " ;'>Overlapping</span>, " ,
488+ " <span style='color:" , occs1Col , " ;'>in " , occs1Name ,
489+ " dataset only</span>, and " ,
490+ " <span style='color:" , occs2Col , " ;'>in " , occs2Name ,
491+ " dataset only</span>" )) +
492492 theme(plot.title = element_markdown(lineheight = .4 ))}
493493 else {
494494 comparison_map <- ggplot() +
@@ -505,13 +505,12 @@ pointCompMap <- function(occs1, occs2,
505505 expand = TRUE , ) +
506506 xlab(" " ) +
507507 ylab(" " ) +
508- labs(
509- title = paste0(" ***" , spName ," ***<br>
510- <span style='color:" , agreeCol ," ;'>Overlapping</span>,
511- <span style='color:" , occs1Col , " ;'>in " , occs1Name ,
512- " dataset only</span>, and
513- <span style='color:" , occs2Col , " ;'>in " , occs2Name ,
514- " dataset only</span>" )) +
508+ labs(title = paste0(" ***" , spName , " ***<br>" ,
509+ " <span style='color:" , agreeCol , " ;'>Overlapping</span>, " ,
510+ " <span style='color:" , occs1Col , " ;'>in " , occs1Name ,
511+ " dataset only</span>, and " ,
512+ " <span style='color:" , occs2Col , " ;'>in " , occs2Name ,
513+ " dataset only</span>" )) +
515514 theme(plot.title = element_markdown(lineheight = .4 ))
516515 }
517516 return (comparison_map )
0 commit comments