stats_of_columns.R

library(rgee)
# ee_reattach() # reattach ee as a reserved word

ee_Initialize()

# Load US cenus data as a FeatureCollection.
census <- ee$FeatureCollection("TIGER/2010/Blocks")

# Filter the collection to include only Benton County, OR.
benton <- census$filter(
  ee$Filter$And(
    ee$Filter$eq("statefp10", "41"),
    ee$Filter$eq("countyfp10", "003")
  )
)

# Display Benton County cenus blocks.
Map$setCenter(-123.27, 44.57, 13)
Map$addLayer(
  eeObject = ee$Image()$paint(benton, 1, 3),
  visParams = list(),
  name = "Benten County, OR"
)

# Compute sums of the specified properties.
properties <- c("pop10", "housing10")
sums <- benton$
  filter(ee$Filter$notNull(properties))$
  reduceColumns(
  reducer = ee$Reducer$sum()$`repeat`(2),
  selectors = properties
)

# Print the resultant Dictionary.
print(sums$getInfo())