![]() P <- p + geom_rect (xmin =min_5, xmax =max_plot, ymin =min_4, ymax =min_5, fill =red, size = 0.5, color = 'black' ) #Row 5 Rects P <- p + geom_rect (xmin =min_4, xmax =min_5, ymin =min_4, ymax =min_5, fill =orange, size = 0.5, color = 'black' ) ![]() P <- p + geom_rect (xmin =min_3, xmax =min_4, ymin =min_4, ymax =min_5, fill =yellow, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_2, xmax =min_3, ymin =min_4, ymax =min_5, fill =light_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_1, xmax =min_2, ymin =min_4, ymax =min_5, fill =dark_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_5, xmax =max_plot, ymin =min_3, ymax =min_4, fill =orange, size = 0.5, color = 'black' ) #Row 4 Rects P <- p + geom_rect (xmin =min_4, xmax =min_5, ymin =min_3, ymax =min_4, fill =orange, size = 0.5, color = 'black' ) ![]() P <- p + geom_rect (xmin =min_3, xmax =min_4, ymin =min_3, ymax =min_4, fill =yellow, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_2, xmax =min_3, ymin =min_3, ymax =min_4, fill =light_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_1, xmax =min_2, ymin =min_3, ymax =min_4, fill =dark_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_5, xmax =max_plot, ymin =min_2, ymax =min_3, fill =orange, size = 0.5, color = 'black' ) #Row 3 Rects P <- p + geom_rect (xmin =min_4, xmax =min_5, ymin =min_2, ymax =min_3, fill =yellow, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_3, xmax =min_4, ymin =min_2, ymax =min_3, fill =yellow, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_2, xmax =min_3, ymin =min_2, ymax =min_3, fill =light_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_1, xmax =min_2, ymin =min_2, ymax =min_3, fill =dark_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_5, xmax =max_plot, ymin =min_1, ymax =min_2, fill =yellow, size = 0.5, color = 'black' ) #Row 2 Rects P <- p + geom_rect (xmin =min_4, xmax =min_5, ymin =min_1, ymax =min_2, fill =yellow, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_3, xmax =min_4, ymin =min_1, ymax =min_2, fill =light_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_2, xmax =min_3, ymin =min_1, ymax =min_2, fill =dark_green, size = 0.5, color = 'black' ) P <- p + geom_rect (xmin =min_1, xmax =min_2, ymin =min_1, ymax =min_2, fill =dark_green, size = 0.5, color = 'black' ) P <- p + ylab ( 'Probability' ) # Scale x axis between 0 and 420 # Define breaks for our axis ticks # Label ticks with proper values # Don't expand axis past min and max pointsīreaks = c (mid_1, mid_2, mid_3, mid_4, mid_5 ),Įxpand = c ( 0, 0 ) ) # Backgrounds for each section are rectangles #Row 1 Rects P <-p +theme_classic () # Label x and y axes Y = probability_pos + probability_pos_offset , Red <- '#EA3224' # Initialise plot # Our x and y values are the x and y positions # offset by our offsets to prevent points collidingĪes (x = time_impact_pos + time_impact_pos_offset , ![]() # Offset both x and y simultaneously for 6th and 7 risksĭataset $probability_pos_offset <- position_offsetĭataset $time_impact_pos_offset <- position_offsetĭataset $probability_pos_offset <-position_offset Dataset $time_impact_pos_offset y, move y down for our 3rd riskĭataset $time_impact_pos_offset dataset $probability ) ] dataset $probability ) ] <-position_offsetĭataset $time_impact_pos_offset <-position_offset
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |