Summer 2025 Course on Data Visualization

Author

Erik Westlund

Modified

June 12, 2025

This course was offered as a 1-credit introduction (5.5 instruction hours) to data visualization as part of the Johns Hopkins Bloomberg School of Public Health’s 43rd Graduate Summer Institute of Epidemiology and Biostatistics.

Materials used in the course are listed below.

The GitHub repository for this course is located at https://github.com/erikwestlund/data-viz-summer-25.

Note: This page is automatically generated.

Lectures

Examples

Postmortems

Credits

All files on this page were created with Quarto. Students were likewise encouraged to use Quarto to create their own visualizations.
A major debt is owed to Kieran Healy for his Data Visualization book.
Many of the materials here were first developed for the Johns Hopkins Maternal Health Data Innovation and Coordinating Hub of the NIH Maternal Health Research Centers of Excellence.
LLMs were used to aid in creation of many of the visuals in this course. Any mistakes made by LLMs are ultimately my own.

Contact

I can be reached at ewestlund@jhu.edu.

--- title: "Summer 2025 Course on Data Visualization" author: "Erik Westlund" date-modified: "`r format(Sys.Date(), '%Y-%m-%d')`" --- This course was offered as a 1-credit introduction (5.5 instruction hours) to data visualization as part of the Johns Hopkins Bloomberg School of Public Health's [43rd Graduate Summer Institute of Epidemiology and Biostatistics](https://publichealth.jhu.edu/academics/graduate-summer-institute-of-epidemiology-and-biostatistics). Materials used in the course are listed below. The GitHub repository for this course is located at [https://github.com/erikwestlund/data-viz-summer-25](https://github.com/erikwestlund/data-viz-summer-25). *Note*: This page is automatically generated. ## Lectures ```{r} #| echo: false # Function to format link text format_link_text <- function(text) { # Handle applications_{n}_ prefix if (grepl("^applications_\\d+_", text)) { text <- sub("^applications_\\d+_", "Applications: ", text) } # Handle prams_{n}_ prefix if (grepl("^prams_\\d+_", text)) { # Extract the number n <- sub("^prams_(\\d+)_.*", "\\1", text) text <- sub("^prams_\\d+_", paste0("PRAMS ", n, ": "), text) } # Special cases to handle first special_cases <- list( "ai" = "AI", "llm" = "LLM", "ggplot" = "ggplot", "Prams" = "PRAMS", "prams" = "PRAMS", "dag" = "DAG" ) # Split by underscores words <- strsplit(text, "_")[[1]] # Process each word words <- sapply(words, function(word) { # Check if it's a special case if (tolower(word) %in% names(special_cases)) { return(special_cases[[tolower(word)]]) } # Otherwise capitalize return(tools::toTitleCase(word)) }) # Join with spaces str <- paste(words, collapse = " ") # Replace any dangling instances of "Ggplot" with "ggplot" str <- gsub("Ggplot", "ggplot", str) return(str) } # Function to get all HTML files in a directory get_html_files <- function(dir, link_dir) { files <- list.files(dir, pattern = "\\.html$", full.names = TRUE) # Sort by filename files <- sort(files) # Get just the filenames without path and extension names <- sub("\\.html$", "", basename(files)) # Format the link text display_names <- sapply(names, format_link_text) # Create links with the correct directory links <- sprintf("- [%s](%s)", display_names, file.path(link_dir, basename(files))) return(paste(links, collapse = "\n")) } # Get and display lecture links knitr::asis_output(get_html_files("slides", "slides")) ``` ## Examples ```{r} #| echo: false # Get and display example links knitr::asis_output(get_html_files("examples", "examples")) ``` ## Postmortems ```{r} #| echo: false # Get and display postmortem links knitr::asis_output(get_html_files("postmortems", "postmortems")) ``` ## Credits * All files on this page were created with [Quarto](https://quarto.org/). Students were likewise encouraged to use Quarto to create their own visualizations. * A major debt is owed to Kieran Healy for his [Data Visualization book](https://socviz.co/). * Many of the materials here were first developed for the [Johns Hopkins Maternal Health Data Innovation and Coordinating Hub](https://maternalhealthhub.jhu.edu/johns-hopkins-university#:~:text=The%20Hub%20is%20a%20multidisciplinary,Medicine%20at%20Johns%20Hopkins%20University) of the [NIH Maternal Health Research Centers of Excellence](https://www.nih.gov/news-events/news-releases/nih-establishes-maternal-health-research-centers-excellence). * LLMs were used to aid in creation of many of the visuals in this course. Any mistakes made by LLMs are ultimately my own. ## Contact I can be reached at [ewestlund@jhu.edu](mailto:ewestlund@jhu.edu).