studio - superponer graficas en r

¿Cómo puedo etiquetar puntos en este diagrama de dispersión?

Question

¿Puedes ayudarme a poner etiquetas en el siguiente gráfico?

El código que uso es:

valbanks<-scan("banks.txt", what=list(0,0,""), sep="", skip=1, comment.char="#")
valbanks

valj2007<-valbanks[[1]]
valj2009<-valbanks[[2]]
namebank<-valbanks[[3]]

percent_losses<-(valj2009-valj2007)/valj2007
percent_losses

abs_losses<-(valj2007-valj2009)
abs_losses

plot(abs_losses, percent_losses,main="Absolute Losses vs. Relative Losses(in%)",xlab="Losses (absolute, in miles of millions)",ylab="Losses relative (in % of January´2007 value",col="blue", pch = 19, cex = 1, lty = "solid", lwd = 2,text(percet_losses, abs_losses,namebank))

text(percet_losses, abs_losses,labels=namebank, cex= 0.7, offset = 10)

y los datos son:

Value_Jan_2007  Value_Jan_2009  Bank    #
49  16  Morgan_Stanley
120 4.6 RBS
76  10.3    Deutsche_Bank
67  17  Credit_Agricole
80  26  Societé_Generale
91  7.4 Barclays
108 32.5    BNP-Paribas
93  26  Unicredit
116 35  UBS
75 27   Credit_Suise
100 35  Goldman_Sachs
116 64  Santander
255 19  Citigroup
165 85  JP_Morgan
215 97  HSBC

Muchas gracias

¿Cuál es la opción de colocar la etiqueta en la parte inferior, derecha, arriba, izquierda, ...?

Resumiendo: quiero una gráfica similar a la que se encuentra en el segundo mensaje de esta publicación, pero no hay el código allí.

¿Qué código tengo que poner?

Si pongo text(percet_losses, abs_losses,namebank) , no text(percet_losses, abs_losses,namebank) nada: la gráfica continúa sin cambios.

¿Podrías mostrarme el código que necesito poner?

Gracias

Answer 1

Debe usar las etiquetas atributo dentro de la función de trazado y el valor de este atributo debe ser el vector que contiene los valores que desea que tenga cada punto.

Answer 2

He intentado el paquete directlabels para poner etiquetas de texto. En el caso de los gráficos de dispersión, todavía no es perfecto, pero es mucho mejor que ajustar manualmente las posiciones, especialmente en los casos en los que está preparando los gráficos de borrador y no el final, por lo que debe cambiar y realizar el gráfico una y otra vez.

Answer 3

Para solo trazar un vector, debes usar el siguiente comando:

text(your.vector, labels=your.labels, cex= labels.size, pos=labels.position)

Answer 4

Su llamada a text() no genera nada porque invirtió su x y su y:

plot(abs_losses, percent_losses, 
     main= "Absolute Losses vs. Relative Losses(in%)",
     xlab= "Losses (absolute, in miles of millions)",
     ylab= "Losses relative (in % of January´2007 value)",
     col= "blue", pch = 19, cex = 1, lty = "solid", lwd = 2)

text(abs_losses, percent_losses, labels=namebank, cex= 0.7)

Ahora, si desea mover sus etiquetas hacia abajo, hacia la izquierda, hacia arriba o hacia la derecha, puede agregar el argumento pos= con valores, respectivamente, 1, 2, 3 o 4. Por ejemplo, para colocar sus etiquetas hacia arriba:

 text(abs_losses, percent_losses, labels=namebank, cex= 0.7, pos=3)

Por supuesto, puede dar un vector de valor para pos si quiere algunas de las etiquetas en otras direcciones (por ejemplo, para Goldman_Sachs, UBS y Société_Generale, ya que se superponen con otras etiquetas):

 pos_vector <- rep(3, length(namebank))
 pos_vector[namebank %in% c("Goldman_Sachs", "Societé_Generale", "UBS")] <- 4
 text(abs_losses, percent_losses, labels=namebank, cex= 0.7, pos=pos_vector)