# Defined by:
sq <- mrs_db |>
star_query() |>
select_dimension(name = "where",
attributes = "state") |>
select_dimension(name = "when",
attributes = "year") |>
select_fact(
name = "mrs_age",
measures = "all_deaths"
) |>
select_fact(
name = "mrs_cause",
measures = "pneumonia_and_influenza_deaths"
)
db <- mrs_db |>
run_query(sq)
mrs_db_geo <- db |>
define_geoattribute(
dimension = "where",
attribute = "state",
from_layer = us_layer_state,
by = "STUSPS"
)
Run the code above in your browser using DataLab