我正在try 创建一个美国的choropleth map ,默认 colored颜色 从灰色变为白色.

我有48个州中的18个州的记录,代码按值着色,但对于那些我没有记录的州,状态是灰色的.我希望它们是白色的.

我该如何改变 colored颜色 ?

library(maps)
library(plyr)
library(ggplot2)
records1<-read.csv('E:/My Documents/records_by_state.csv')
records<-data.frame(state=tolower(rownames(records1)), records1)
head(records)
all_states<-map_data("state")
head(all_states)
record_map<-merge(all_states, records, by.x="region", by.y="state.name")
record_map<-arrange(record_map, group, order)
head(record_map)

p<- ggplot()

p<- p + geom_polygon(data=record_map, aes(x=long, y=lat, group=group,    fill=record_map$Records), colour="black"
         )+ scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar")
P1 <- p + theme_bw() +labs(fill= "Records by State"
                    , title= "By State", x="", y="")
P1 + scale_y_continuous(breaks=c()) + scale_x_continuous(breaks=c()) +  theme(panel.border= element_blank())

推荐答案

通过在scale_fill_continuos()中更改参数na.value,可以更改NA值(无数据状态)的 colored颜色 .

+scale_fill_continuous(low="thistle2", high="darkred", 
                       guide="colorbar",na.value="white")

R相关问答推荐

如何将Rmarkdown中包含图像和文本的行的两个单元格与.PDF输出垂直对齐?

在R中,将一个函数作为输入传递给另一个函数时进行参数判断

基于R中的GPS点用方向箭头替换点

geom_Ribbon条件填充创建与数据不匹配的形状(ggplot 2 r)

在边界外添加注释或标题

R中具有gggplot 2的Likert图,具有不同的排名水平和显示百分比

R Markdown中的交叉引用表

r—绘制相交曲线

任意列的欧几里得距离

lightgbm发动机在tidymmodels中的L1正则化""

如何同时从多个列表中获取名字?

有效识别长载体中的高/低命中

如何删除最后一个可操作对象

基于R中的间隔扩展数据集行

将选定的索引范围与阈值进行比较

为什么在BASE R中绘制线条时会看到线上的点?

如何在反曲线图中更改X标签

将列的值乘以在不同数据集中找到的值

防止正则表达式覆盖以前的语句

分隔日期格式为2020年7月1日