plot.RCBD.layout is the function used to generate layout of randomized complete block design of experiment

plot.RCBD.layout.R

library(desplot)
library(agricolae)
library(RColorBrewer)

plot.RCBD.layout <- function(trt_name, num_block){
  
  repeticion <- rep(num_block, length(trt_name))
  
  RCBD <- design.rcbd(trt_name, r = repeticion, serie = 0)
  
  RCBD.layout <- RCBD$book
  
  RCBD.layout$x <- rep(1:num_block, each = length(trt_name))
  
  RCBD.layout$y <- rep(1:length(trt_name), num_block)
  
  desplot(data = RCBD.layout, block ~ x + y, text = trt_name, cex = 2, 
          col.regions = RColorBrewer::brewer.pal(12, "Set3"),
          out1 = block, out2= trt_name, 
          out1.gpar = list(col = "white", lwd = 5), 
          out2.gpar=list(col = "white", lwd = 1, lty = 1),
          flip = FALSE, show.key = FALSE)
}

# Example 
# plot.RCBD.layout(trt_name = c("A","B","C", "D", "E"), 5)