Skip to main content
agregado posdata sobre citas
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

PD: si fueras a usar el gráfico en una publicación el autor de ggtern solicita que incluyas el paquete en la bibliografía de tu paper. Considerando que el software que ofrece es libre y que eso podría ayudar a su carrera creo que sería de buen gusto hacerlo. No es obligatorio.

PD: si fueras a usar el gráfico en una publicación el autor de ggtern solicita que incluyas el paquete en la bibliografía de tu paper. Considerando que el software que ofrece es libre y que eso podría ayudar a su carrera creo que sería de buen gusto hacerlo. No es obligatorio.

Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

Aclaraciones

Tomo el data.frame de la pregunta como los datos finales a ser gratificados. Dos aclaraciones:

  • No sé si sobre esos datos estás aplicando otras transformaciones posteriormente. De todas formas el código debería funcionar siempre que tengas tres columnas con valores que van de 0 a 1.

  • En la pregunta dices que es una matriz. Si es así en sentido de R (is.matrix(x)) deberías pasarlo primero a data.frame, de lo contrario ggplot2 y ggtern no van a aceptar el input.

Código

    library(tidyverse)   #Para tribble(), puede no ser necesario si ya tienes los datos.
    library(ggtern)      #Para `coord_tern()`
    tribble(~Regiones,       ~βjtu,       ~βjne,     ~βjac,
           "I-II"  ,        0.85,        0.05,      0.90,
           "I-III" ,        0.78,        0.02,      0.80,
           "I-IV"  ,        0.44,        0.24,      0.68,
           "I-V"   ,        0.77,        0.08,      0.85,
           "I-VI"  ,        0.85,        0.02,      0.85,
           "I-VII" ,        0.85,        0.09,      0.81,
           "II-III",        0.88,        0.03,      0.91,
           "II-IV" ,        0.51,        0.32,      0.85,
           "II-V"  ,        0.88,        0.04,      0.89,
           "II-VI" ,        0.88,        0.02,      0.91,
           "II-VII",        0.91,        0.02,      0.91) -> datos_ternarios

Con esto dejo preparados los datos.

    ggplot(datos_ternarios, aes(x=βjtu, y=βjne, z=βjac, color= Regiones)) + 
    geom_point() +
    coord_tern() 

Con color = Regiones le indico que haga una escala de colores para cada valor único de esa variable. Automáticamente hace la leyenda. También es automático el escalado a 100, aunque tus datos crudos vayan entre 0 y 1.

Resultado

introducir la descripción de la imagen aquí

Este el gráfico básico con los valores por defecto, puedes ajustar más cosas como las líneas de guía, color del fondo, etc. Te recomiendo visitar http://www.ggtern.com para ver opciones de ajustes. Cuando se usa coord_tern() algunas cosas funcionan un poco diferente que en los gráficos de ggplot con coordenadas cartesianas.

Cualquier otra duda puedes ponerla en comentarios o actualizar tu pregunta.