I'm doing several domain specific plots using an excel template that looks like these .

My initial idea was to start with a blank plot and then add several segments and lines. But that appears not to be working well for me and taking much time to figure out. I was wondering if anyone has suggestion on how to accomplish this faster.

The plots types often changes too, not just this two types

I've seen this posts and they're different problems

1. 

   example_data <- data.frame(
     section = paste("Section", rep(LETTERS[1:8], 8)),
     x = abs(rnorm(64, 0, 2)),
     y = rnorm(64, 27.5, 7)
   )
   
   template  
     geom_point(
       data = example_data,
       aes(x = x, y = y, color = section),
       shape = 18,
       size = 3
     )