lunches: National School Lunch Program (NSLP)

In trinker/exampledata: Example Data for Teaching

Description

A dataset containing information about free, reduced and full priced lunches.

Usage

data(lunches)

Format

A data frame with 47 rows and 4 variables

Details

• year. Year

• free. Number of students getting free lunch

• reduced. Number of students getting reduced price lunch

• full. Number of students paying full price for lunch

References

https://catalog.data.gov/dataset/national-school-lunch-assistance-program-participation-and-meals-served-data

Examples

## Not run: 
library(tidyverse)
library(ggrepel)

lunches %>%
    gather(type, students, -year) %>%
    group_by(year) %>%
    mutate(prop = students/sum(students)) %>%
    ggplot(aes(year, prop, color = type, group = type)) +
        geom_text(
            data = lunches %>%
                gather(type, students, -year) %>%
                group_by(year) %>%
                mutate(prop = students/sum(students)) %>%                
                filter(year == 2017),
            aes(label = type),
            hjust = 0, size = 5
        ) +
        geom_line(size = 1) +
        theme_minimal() +
        theme(legend.position = 'none') +
        scale_x_continuous(limits = c(1970, 2023), breaks = seq(1970, 2010, by = 10)) +
        scale_y_continuous(labels = scales::percent)

## End(Not run)

trinker/exampledata documentation built on May 25, 2019, 8:32 p.m.