Aquí hay dos parcelas que pretendo combinar:

Primero está la mitad de la matriz de la gráfica de mapa de calor. ..............................

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

Necesito suprimir los nombres en las columnas xey, y ponerlos en diagonal.

La segunda trama, tenga en cuenta que los nombres / etiquetas en la primera trama se corresponden con el nombre de la segunda trama (x1 a 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)

Tengo la intención de rotar el primer gráfico para que X1 a X10 se correspondan con el mismo en el segundo gráfico y haya una conexión entre las etiquetas en el segundo gráfico con el primer gráfico. La salida se vería como:

 Cómo puedo hacer esto ?

Ediciones: basado en los comentarios sobre add = TRUE .... Estoy tratando de agregar un polígono a la gráfica de mapa de calor, lo que sigue a continuación. Pero no pude encontrar las coordenadas ... La estrategia de la trama de esta manera y voltear la figura real más tarde ... ayuda muy apreciada ...