小编Mik*_*Ike的帖子

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

我使用的代码是:

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 …

我正在分析Alberto Cairo的"功能艺术"中的datavis示例(我建议你)

在那本书中,有这个例子

我在R.中尝试在左下图(散点图)

我使用书中的数据,并计算人口的lm(efect ~ pop)功能和人口+效果的预算的有效军队

这里有一个问题:如何用颜色表(渐变)绘制散点图的背景,其中颜色代表BUDGET的值？

之后我想把点(人口,效果)与预算的颜色放在一起.通过这种方式,我可以将国家的预算与人口+效应函数的强制预算进行比较

我知道基本的R,我已经安装了ggplot2并扩展了包

我想要一个类似的图表

但是颜色正确.

谢谢.