How to use R base plot to create a stacked histogram as barcode plot with row-wise color pattern from a R base table

Question

I came across a neat feature when plotting a table with base::plot()

> test.matrix<-matrix(c(70,120,65,140,13,68,46,294,52,410),ncol=2,byrow=TR