Need a suggestion on a package to make a figure

Hi Aiguo
Just for fun, I tried to work out what you wanted. I think you are
looking for a function that creates a horizontal stacked bar image of
a logical vector:

TFbar<-function(x,file="TFbar",grDev="png",width=100,height=25,
 col=c("green","red")) {

 do.call(grDev,
  list(file=paste(file,grDev,sep="."),width=width,height=height))
 par(xaxs="i",mar=c(0,0,0,0))
 plot(0,xlim=c(1,width),ylim=c(1,height),type="n",axes=FALSE)
 Twidth<-width*sum(x)/length(x)
 Fwidth<-width-Twidth
 rect(1,1,Twidth,height,col=col[1])
 rect(Twidth,1,width,height,col=col[2])
 dev.off()
 return(Twidth/width)
}

To instantiate this with your example:

TFnames<-paste0("Pathway",1:4)
for(i in 1:4) {
 assign("x",sample(c(TRUE,FALSE),100,TRUE))
 TFbar(x,TFnames[i])
}
TFtags<-paste0("<img src=",TFnames,".png>")
TFdf<-data.frame(GO_Terms=TFnames,S1=TFtags,stringsAsFactors=FALSE)
library(prettyR)
delim.table(TFdf,filename="TFtable.htm",leading.delim=FALSE,
 label="",html=TRUE,show.rownames=FALSE)

Sadly, I found a bug in delim.table that will be corrected in the next
version. The attached HTML file shows the table you get with the
corrected version.

Jim

On Sat, May 9, 2020 at 12:50 AM aiguo li via R-help
<r-help at r-project.org> wrote:

Hello all,
I need to make a table with a value imaged by greater than certain value as attached.  Could you give me a suggestions on which R package will be good for this type of table?
Thanks and stay safe!
Aiguo______________________________________________