## Not run:
# ## from data.frames - point data
# library("RColorBrewer")
# smalluscities <-
# subset(us_cities, country.etc == 'OR' | country.etc == 'NY' | country.etc == 'CA')
#
# ### Just color
# geojson_style(smalluscities, var = 'country.etc',
# color=brewer.pal(length(unique(smalluscities$country.etc)), "Blues"))
# ### Just size
# geojson_style(smalluscities, var = 'country.etc', size=c('small','medium','large'))
# ### Color and size
# geojson_style(smalluscities, var = 'country.etc',
# color=brewer.pal(length(unique(smalluscities$country.etc)), "Blues"),
# size=c('small','medium','large'))
#
# ## from lists - point data
# mylist <- list(list(latitude=30, longitude=120, state="US"),
# list(latitude=32, longitude=130, state="OR"),
# list(latitude=38, longitude=125, state="NY"),
# list(latitude=40, longitude=128, state="VT"))
# # just color
# geojson_style(mylist, var = 'state',
# color=brewer.pal(length(unique(sapply(mylist, '[[', 'state'))), "Blues"))
# # color and size
# geojson_style(mylist, var = 'state',
# color=brewer.pal(length(unique(sapply(mylist, '[[', 'state'))), "Blues"),
# size=c('small','medium','large','large'))
# # color, size, and symbol
# geojson_style(mylist, var = 'state',
# color=brewer.pal(length(unique(sapply(mylist, '[[', 'state'))), "Blues"),
# size=c('small','medium','large','large'),
# symbol="zoo")
# # stroke, fill
# geojson_style(mylist, var = 'state',
# stroke=brewer.pal(length(unique(sapply(mylist, '[[', 'state'))), "Blues"),
# fill=brewer.pal(length(unique(sapply(mylist, '[[', 'state'))), "Greens"))
#
# # from data.frame - polygon data
# smallstates <- states[states$group %in% 1:3, ]
# head(smallstates)
# geojson_style(smallstates, var = 'group',
# stroke = brewer.pal(length(unique(smallstates$group)), "Blues"),
# stroke_width = c(1, 2, 3),
# fill = brewer.pal(length(unique(smallstates$group)), "Greens"))
# ## End(Not run)
Run the code above in your browser using DataLab