- ref<-c(1,2,NA,3)
- list='"ref[1]"= gpar(lwd=20, lineend="butt", columns=c(1:6), col="#99999922")'
- for(i in 2:length(unique(na.omit(ref)))) {
- list=paste(list,'"ref[i]"= gpar(lwd=20, lineend="butt", columns=c(1:6),
- col="#99999922")',sep=",")
- }
- list
"1"= gpar(lwd=20, lineend="butt", columns=c(1:6), col="#99999922"),"2"= gpar(lwd=20, lineend="butt", columns=c(1:6), col="#99999922"),"3"= gpar(lwd=20, lineend="butt", columns=c(1:6), col="#99999922")