以下示例代码根据以下值生成彩色点图a :
a <- sample(1:100)
rbPal <- colorRampPalette(c('red','blue'))
b <- rbPal(10)[as.numeric(cut(a,breaks = 10))]
plot(a,col=b,pch=16)
我想在此图表中添加一个图例，指示颜色所指的值范围。
就像是：
"#C60038" - [20.7 - 30.7]
"#5500AA" - [60.4 - 70.3]
（以上颜色代码为彩色点）。
您可以保存cut()级别作为带有函数的单独变量levels()。有功能gsub()你可以替换, with - and ( with [。然后在函数中legend()提供图例、变量的位置cuts用作标签，col=rbPal(10)将在图例中使用相同的 10 种颜色pch=16将制作填充点。
cuts<-levels(cut(a,breaks = 10))
cuts<-gsub(","," - ",cuts)
cuts<-gsub("\\(","[",cuts)
cuts
[1] "[0.901 - 10.8]" "[10.8 - 20.7]" "[20.7 - 30.7]" "[30.7 - 40.6]" "[40.6 - 50.5]" "[50.5 - 60.4]" "[60.4 - 70.3]"
[8] "[70.3 - 80.3]" "[80.3 - 90.2]" "[90.2 - 100]"
plot(a,col=b,pch=16)
legend("top",cuts,col=rbPal(10),pch=16)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
