如何在此散点图中标记点?

时间:2012-11-05 09:50:00

标签: r label point scatter-plot

你能帮我把标签贴在下图上吗?

http://img849.imageshack.us/img849/7594/snap1034.png

我使用的代码是:

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

非常感谢

将标签放在底部,右侧,上方,左侧,......是什么选项?

总结:我想要一个类似于来自this post的第二条消息中的图表的图表 但那里没有代码。

我必须填写什么代码?


如果我放text(percet_losses, abs_losses,namebank),我什么也得不到:图表继续没有变化。

你能告诉我我需要的代码吗?

由于

4 个答案:

答案 0 :(得分:76)

您对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=添加值1,2,3或4.例如,要放置标签:< / p>

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

enter image description here

如果您想要其他方向的某些标签(例如Goldman_Sachs,UBS和Société_Generale,因为它们与其他标签重叠),您当然可以为pos提供值向量:

 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)

enter image description here

答案 1 :(得分:2)

要绘制矢量,您应该使用以下命令:

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

答案 2 :(得分:1)

我已尝试使用directlabels包来放置文字标签。在散点图的情况下,它仍然不是完美的,但比手动调整位置要好得多,特别是在你准备草稿而不是最后一个的情况下 - 所以你需要一次又一次地改变和制作情节 - 。

答案 3 :(得分:0)

您应该在plot函数中使用labels属性,该属性的值应该是包含每个点所需的值的向量。