R/plot_up.R

In KANT: Package to identify and sort genes overexpressed

plot_up <-
function(N, eset_up, cells_type,fontsize){
probes <- 1:N
plot(
	as.numeric(as.character(pData(featureData(eset_up))[probes,"Numbre_up"])),
	as.numeric(as.character(pData(featureData(eset_up))[probes,"Delta_median_up"])),
	cex=(1/(0.1+as.numeric(as.character(pData(featureData(eset_up))[probes,"IQR_up"])))),
	pch=21,
	main = c("Over-expression in  :",cells_type),
	xlab = "Number of samples in the sub-population over-expressing the gene",
	ylab = "Difference of expression between median of the sub-population and the maximum of CTRL samples" 
)
text(
	as.numeric(as.character(pData(featureData(eset_up))[probes,"Numbre_up"])),
	as.numeric(as.character(pData(featureData(eset_up))[probes,"Delta_median_up"])),
	as.character(pData(featureData(eset_up))[probes,"Gene.Symbol"]),
	pos=2,
	cex=fontsize
)
}