小编dca*_*dca的帖子

如何在R的传单包中设置图层顺序,以便图块显示在填充颜色的多边形之上？

这是我到目前为止所得到的:

require(leaflet)
require(acs)
require(tigris)
require(rgdal)
census.income.end.year = 2015
county = 17
nd.counties=acs.fetch(geography=geo.make(state="ND", county=county), 
                      table.number="B01003", endyear = 2015)

tracts <- tigris::tracts(state = 'ND', county = county, cb=FALSE, year = 2015)

# create a geographic set to grab tabular data (acs)
geo<-geo.make(state=c("ND"),
              county = county,
              tract="*")

# add in median income
median.income <- acs.fetch(endyear = census.income.end.year, 
                           geography = geo, 
                           variable = c("B19013_001"))
income_df <- data.frame(paste0(as.character(median.income@geography$state), 
                               str_pad(as.character(median.income@geography$county), 3, 'left', '0'), 
                               str_pad(as.character(median.income@geography$tract), 5, 'left', '0')), 
                        median.income@estimate)

rownames(income_df)<-1:nrow(income_df)
names(income_df)<-c("GEOID", "hhincome")
income_merged <- geo_join(tracts, income_df, …

是否可以使用 mongolite 或其他 R 包使用 dplyr 语法来查询 MongoDB？我在想这样的事情：

library(mongolite)

# create collection with example data
dmd <- mongo("diamonds")
dmd$insert(ggplot2::diamonds)

尝试使用 dplyr 查询：

library(dplyr)

premium_diamonds <- dmd %>%
   filter(cut == "Premium",
            price < 1000)

而不是这个：

premium_diamonds <- dmd$find('{"cut" : "Premium", "price" : { "$lt" : 1000 } }')

这样我就可以利用我对 dplyr 的熟悉程度来进行复杂的查询。