łączenie dwóch działek w r
Oto dwie działki, które zamierzam połączyć:
Pierwszą jest połowa macierzy wykresu termicznego. ..............................
# plot 1 , heatmap plot
set.seed (123)
myd <- data.frame ( matrix(sample (c(1, 0, -1), 500, replace = "T"), 50))
mmat <- cor(myd)
diag(mmat) <- NA
mmat[upper.tri (mmat)] <- NA
heatmap (mmat, keep.dendro = F, Rowv = NA, Colv = NA)
Muszę ukryć nazwy w kolumnach xiy i umieścić je po przekątnej.
Drugi wykres, proszę zauważyć, że nazwy / etykiety na pierwszym wykresie odpowiadają nazwie w drugim wykresie (od x1 do X10):
vard <- data.frame ( position = c(1, 10, 15, 18, 20, 23, 24, 30, 35, 40),
Names =paste ("X", 1:10, sep = ""))
plot(vard$position, vard$position - vard$position,
type = "n", axes = FALSE, xlab = "", ylab = NULL, yaxt = "n")
polygon(c(0, max(vard$position + 0.08 * max(vard$position)),
max(vard$position) + 0.08 * max(vard$position),
0), 0.2 * c(-0.3, -0.3, 0.3, 0.3), col = "green4")
segments(vard$position, -0.3, vard$position, 0.3)
text(vard$position, 0.7, vard$position,
srt = 90)
text(vard$position, -0.7, vard$Names)
Zamierzam obrócić pierwszy wykres tak, aby X1 do X10 odpowiadały temu samemu na drugim wykresie, a między etykietami na drugim wykresie jest połączenie z pierwszym wykresem. Wynik będzie wyglądał następująco:
Jak mogę to zrobić ?
Edycje: na podstawie komentarzy o add = TRUE .... Próbuję dodać wielokąt do wykresu mapy termicznej, podobnie jak poniżej. Ale nie mogłem znaleźć współrzędnych .. Plan strategiczny w ten sposób i odwrócenie rzeczywistej figury później ... pomoc bardzo doceniana ...