我把Shiny应用程序(下面)放在一起,显示了一个等级,除了传说中的科学符号外,它看起来很好。
我希望这些价值观为:' $ 5,000,000',' $ 4,000,000'等等。
代码归结为
g <-choroplethr(DF, lod="state", num_buckets = 1)
g <- g + scale_fill_gradient(high = "springgreen4", low= "grey90", name="Sum")
我试过这个:
g <- q + scale_fill_gradient(high = "springgreen4", low= "grey90", name="Sum", labels = c("5,000,000", "4,000,000", "3,000,000", "2,000,000", "1,000,000"))
但我得到了错误,中断和标签长度不同
当我处理地图时,我不确定如何在x轴上指定断点?如何创建与我想要包含的标签一起使用的中断?感谢。
答案 0 :(得分:11)
如果您要将参数labels=
添加到scale_fill_gradient()
,那么您还应该添加与您的标签长度相同的参数breaks=
。
+ scale_fill_gradient(high = "springgreen4", low= "grey90", name="Sum",
labels = c("5,000,000", "4,000,000", "3,000,000", "2,000,000", "1,000,000"),
breaks = c(5000000, 4000000, 3000000, 2000000, 1000000))
在这种情况下,更好的解决方案是使用dollar
库中的scales
格式。这将自动添加美元符号和逗号。
library(scales)
+ scale_fille_gradient(labels=dollar)