Hier sind zwei Grundstücke, die ich kombinieren möchte:

Das erste ist die halbe Matrix des Heatmap-Diagramms. ..............................

# 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)

Ich muss die Namen in x- und y-Spalten unterdrücken und diagonal setzen.

Das zweite Diagramm, bitte beachten Sie, dass die Namen / Bezeichnungen im ersten Diagramm dem Namen im zweiten Diagramm entsprechen (x1 bis 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)

Ich beabsichtige, den ersten Plot so zu drehen, dass X1 bis X10 mit dem zweiten Plot übereinstimmen und es eine Verbindung zwischen Beschriftungen im zweiten Plot zum ersten Plot gibt. Die Ausgabe würde so aussehen:

 Wie kann ich das machen ?

Bearbeitungen: basierend auf Kommentaren zu add = TRUE .... Ich versuche, dem Heatmap-Plot ein Polygon hinzuzufügen. Aber ich konnte keine Koordinaten finden. Die Strategie auf diese Weise aufzeichnen und die tatsächliche Zahl später umdrehen. Hilfe sehr geschätzt.