<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Bom dia Hugo!</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Após passar dias estudando para chegar em um gráfico semelhante ao que você estava querendo, creio consegui me aproximar uns 90%. Perceberás que o eixo x não está no topo como no da figura do artigo. Mandei um email para o criador da ggplot2 (pacote que usei para elaborar o gráfico) e ele me disse que não é possível ainda colocar o eixo x no topo do gráfico, mais que está trabalhando para que isso seja possível nas próximas versões. Creio que com o CMR que lhe enviarei será possível você manipulá-lo da maneira que lhe for mais conveniente. Para outros esclarecimentos consulte
o site <a href="http://had.co.nz/ggplot2/">http://had.co.nz/ggplot2/</a>. Segue o CMR abaixo:</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div><div>require(graphics)</div><div>require(utils)</div><div>require(ggplot2)</div><div>require(NeatMap)</div><div><br></div><div>dHN <- read.table('http://dl.dropbox.com/u/33619290/DadosHugoNeto.txt',h=T)</div><div>dendHN <-
hclust(dist(sqrt(dHN)),method='complete') </div><div>clones=c("RB92579","RB768647","Q124","RB75126","RB925211","RB835486","RB946022",</div><div>"RB912825","SP80-3280","RB855511","RB867515","SP83-5073","RB72454","SP80-1816",</div><div>"RB825336","RB855156","RB855536","SP83-2847","RB855453","TUC77-42","SP70-2233",</div><div>"RB931555","RB835054","RB855206","RB925345","RB8317","RB947501","RB93509",</div><div>"RB813804","RB855113","RB83102","SP77-5181","RB845257","RB855046","RB845197",</div><div>"RB835089","RB8495","RB825548","RB855463","RB925453","RB855595","RB945951",</div><div>"RB946903","RB855035","RB92606","RB735200","RB945961","SP70-1143","RB855036",</div><div>"IAC87-3396","CO62175","RB956911","TUC71-7","RB9350","RB966928","RB912850",</div><div>"RB845210","L60-14","SP81-3250","RB928064","RB721012","SP79-1011","SP801842",</div><div>"IAC52-326","RB935915","RB806043")</div><div>ggplot.default() + </div><div>
opts(panel.background = theme_blank(),</div><div> panel.grid.major = theme_blank(),</div><div> panel.grid.minor = theme_blank(),</div><div> legend.position ='none',</div><div> axis.title.x = theme_blank(),</div><div> axis.title.y = theme_blank(),</div><div> axis.text.y = theme_text(angle=0,size=8))+ </div><div>
scale_x_continuous(breaks=seq(0:11),labels=seq(0,0.5,by=0.045))+</div><div> scale_y_continuous(breaks=seq(1:66),labels=clones) +</div><div> geom_vline(xintercept=2.2,colour='red',linetype=2)+</div><div> geom_text(aes(x=2.6,y=-1,label='0.06',colour='red',size=5)) +</div><div> geom_text(aes(x=3.1,y=67,label='Magic method',colour='red',size=5))+</div><div> geom_text(aes(x=5.3,y=30,label='88',colour='green',size=5))+</div><div> draw.dendrogram(dendHN, dendro.dir="right")
</div><div><br></div><div>Allaman</div><div>(S,f,P) </div></div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; background-color: transparent; color: rgb(115, 115, 115); " align="center"><b>M.Sc Ivan Bezerra Allaman</b> <br>Zootecnista<br><font style="background-color:transparent;" face="comic sans ms" size="2"><font style="background-color:transparent;">Doutorando em Produção Animal/Aquicultura - UFLA</font> <br></font><font size="2"><i><strong></strong></i></font><font style="background-color:transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font
size="1">Tel: (35)3826-6608/9900-2924</font></font></div></div></body></html>