I have 189 observations that I need to iterate over using a loop. I tried using lapply, but I couldn't figure it out. Here are the first two rows that made the image for me.
image(1:100,1,as.matrix(as.vector(t(Theme[1, 2:101]))), col=c("floralwhite","#EB5B54"), main=Theme[1, 1],xlab="measure",ylab="")
image(1:100,1,as.matrix(as.vector(t(Theme[2, 2:101]))), col=c("floralwhite","#EB5B54"), main=Theme[2, 1],xlab="measure",ylab="")