
<html><head><meta http-equiv="Content-Type" content="text/html; charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">Veja se seria algo assim<div class=""><br class=""></div><div class=""><div class="">library(reshape2)</div><div class="">library(ggplot2)</div><div class="">library(dplyr)</div><div class=""><br class=""></div><div class="">t <- read.delim('teste.txt')</div><div class=""><br class=""></div><div class="">t1 <- t[,c(1,seq(2,ncol(t),2))] </div><div class="">t2 <- t[,c(1,seq(3,ncol(t),2))]</div><div class=""><br class=""></div><div class="">t1l <- melt(t1, idvar = 'gene')</div><div class="">colnames(t1l)[3] <- 'exprs'</div><div class="">t2l <- melt(t2, idvar = 'gene')</div><div class="">colnames(t2l)[3] <- 'percentage'</div><div class="">tl <- left_join(t1l, t2l, by='gene')</div><div class=""><br class=""></div><div class="">ggplot(data = tl, aes(x=gene, y=exprs)) + geom_point(aes(color=percentage)) + scale_color_gradient2(midpoint=mean(tl$percentage), low="blue", mid="white", high="red", space ="Lab" ) + theme_classic()</div><div class=""><br class=""></div><div class=""></div></div></body></html>