Skip to contents

frs_by_mact (DATA) MACT NESHAP subpart(s) that each EPA-regulated site is subject to

Source: R/data_frs_by_mact.R
frs_by_mact.Rd

This is a table in data.table format, with one row per site – MACT subpart pair, so it has multiple rows for one site if the site is covered by multiple subparts. It has been joined with frs_by_programid to get latlons for matching facilities. @details

For background information on MACT NESHAP subparts:

This file is not stored in the package, but is obtained via dataload_dynamic().

See also frs_update_datasets()

This table is built from the ECHO data download of ICIS Air and AFS.

The programid column here should be found in the pgm_sys_id column in frs_by_programid, but not every ECHO program ID has a matching FRS row in a given snapshot.

 table(frs_by_mact$programid %in% frs_by_programid$pgm_sys_id)

Also note we have found some typos and nonstandard abbreviations in subpart titles in downloaded data from ECHO/FRS, such as

"WOOD PERSERVING AREA SOURCES" instead of "WOOD PRESERVING AREA SOURCES" frs_by_mact[grepl("WOOD PERSERVING AREA SOURCES", frs_by_mact$title), ]

"PHOSPERIC ACID PRODUCTION" instead of "PHOSPHORIC ACID PRODUCTION" frs_by_mact[grepl("PHOSPERIC", frs_by_mact$title), ]

frs_by_mact[grepl("REDUCTN", frs_by_mact$title), ]

frs_by_mact[grepl("ORGNCS", frs_by_mact$title), ]

See also

dataload_dynamic() mact_table frs_by_programid frs

Examples

  dataload_dynamic("frs_by_mact")
  head(mact_table)
  mact_table[order(mact_table$title),]
  mycodes <- c("BBBBBB", "OOOO")
  frs_by_mact[subpart %in% mycodes, ]
  mact_table[grepl("smelt", mact_table$title, ignore.case = TRUE), ]
  frs_by_mact[grepl("smelt", title, ignore.case = TRUE), ]
  # a single site can be covered by 19 categories
  frs_by_mact[, howmany := .N, by="programid"][order(howmany), ]
  table(frs_by_mact[, howmany := .N, by="programid"][order(howmany), howmany])