1

我希望能够手动控制choroplethr包装上人口范围之间的阈值。

library(choroplethr)

data(df_pop_county)        
data(continental_us_states)

county_choropleth(df_pop_county, 
                  state_zoom = continental_us_states)

在此处输入图像描述

4

1 回答 1

3

您可以使用cut创建自定义中断:

# rename the original "value" column if you don't want to write over it
names(df_pop_county) <- c("region", "original_value")

# define the breaks you want
df_pop_county$value <- cut(df_pop_county[["original_value"]],
                           breaks = c(0, 1e4, 5e4, 1e5, 5e5, 1e6, 1e7))
# if you want custom labels to go along with those breaks, then provide
# the labels argument in cut:
# cut(df_pop_county[["original_value"]],
#     breaks = c(0, 1e4, 5e4, 1e5, 5e5, 1e6, 1e7),
#     labels =c( "0-9999","10000-49999", "50000-99999", "100000-499999", "500000-999999", "1000000-10000000"))

在此处输入图像描述

于 2016-12-06T20:13:00.707 回答