Hi again,
Oops, you'll need the images as well. Save the HTML file and images to
the same directory.
Jim
On Sat, May 9, 2020 at 9:24 PM Jim Lemon <drjimle...@gmail.com> wrote:
>
> 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@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______________________________________________
> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
