如何在此散點圖中標記點？

Question

你能幫我把標簽貼在下圖上嗎？

我使用的代碼是：

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)

而數據是：

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

非常感謝你

將標簽放在底部，右側，上方，左側，......的選項是什么？

總結：我想要一個類似於這篇文章的第二條消息中的圖表，但那里沒有代碼。

我要放什么代碼？

---

如果我把text(percet_losses, abs_losses,namebank) ，我什么也得不到：圖表繼續沒有變化。

你能告訴我我需要的代碼嗎？

謝謝

Answer 1

你對text()調用沒有輸出任何東西，因為你顛倒了你的x和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)

現在，如果要向下，向左，向上或向右移動標簽，可以分別添加參數pos= with values，1,2,3或4.例如，要放置標簽：

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

如果你想要其他方向的一些標簽，你當然可以給pos一個值向量（例如Goldman_Sachs，UBS和Société_Generale，因為它們與其他標簽重疊）：

 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)

Answer 2

要繪制矢量，您應該使用以下命令：

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

Answer 3

我嘗試過directlabels標簽包來放置文本標簽。 在散點圖的情況下，它仍然不是完美的，但比手動調整位置要好得多，特別是在你准備草稿而不是最后一個的情況下 - 所以你需要一次又一次地改變和制作情節 - 。

Answer 4

您應該在plot函數中使用labels屬性，並且此屬性的值應該是包含每個點所需的值的向量。