R/diagrammpa.r

Defines functions diagram.mpa

Documented in diagram.mpa

#diagram.mpa: función que grafica el diagrama estratégico de los grupos
#             mpa: la lista resultante de la función mpa
#             tit: título
diagram.mpa <- function(mpa, tmin=3, tit= NULL, pos=1)
{
  x <- mpa$Resumen[,4]
  y <- mpa$Resumen[,3]
  nom <- mpa$Nombres
  tam <- mpa$Resumen[,2]
  x <- x[tam>=tmin]
  y <- y[tam>=tmin]
  nom <- nom[tam>=tmin]
  plot(x, y, type="p", main=tit, xlab="Centralidad", ylab="Densidad",las=1)
  abline(h=mean(y, na.rm=TRUE),col="grey");  abline(v=mean(x, na.rm=TRUE),col="grey")
  text(x, y, labels=nom, pos=pos)
}

Try the mpa package in your browser

Any scripts or data that you put into this service are public.

mpa documentation built on May 2, 2019, 9:20 a.m.