In Westat-Transportation/summarizeNHTS: National Household Travel Survey R Analysis Toolkit

library(summarizeNHTS)
nhts_data <- read_data("2017", "C:/NHTS")

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

Life Cycle

Person by Age

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_count",
  by = "R_AGE",
  exclude_missing = TRUE
)

make_chart(statistic)

\

Persons by Age Categories

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_count",
  by = "AGE_GROUP",
  prop = TRUE
)

make_chart(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

Persons by Sex

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_count",
  by = "R_SEX",
  prop = TRUE,
  exclude_missing = TRUE
)

make_chart(statistic)

\

Mean Age by Census Division

statistic <- summarize_data(
  data = nhts_data,
  agg = "avg",
  agg_var = "R_AGE",
  by = "CENSUS_D"
)

make_map(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

Vehicle Availability

Persons

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_count",
  prop = TRUE,
  by = "HAS_VEHICLE"
)

make_chart(statistic)

\

Persons by Educational Attainment

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_count",
  prop = TRUE,
  prop_by = "HAS_VEHICLE",
  by = c("HAS_VEHICLE","EDUC")
)

make_chart(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

Daily Trip Rates

Overall

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate"
)

make_table(statistic)

\

By Vehicle Access

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate",
  by = "HAS_VEHICLE"
)

make_chart(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

By Age Life Cycle Categories

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate",
  by = "AGE_GROUP"
)

make_chart(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

By Opinion of Health

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate",
  by = "HEALTH",
  exclude_missing = TRUE
)

make_chart(statistic)

\

By Day of Week

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate",
  by = "TRAVDAY"
)

make_chart(statistic)

\

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

\

By Census Division

statistic <- summarize_data(
  data = nhts_data,
  agg = "person_trip_rate",
  by = "CENSUS_D"
)

make_map(statistic)

Westat-Transportation/summarizeNHTS documentation built on May 17, 2020, 8:57 p.m.