Summary  
This chapter shows how to map data variables to visual aesthetics—such as color, shape, and size—using ggplot2’s aes() function and how to choose effective palettes and aesthetic settings to enhance plot readability and accessibility.  

General domain of usage  
Data visualization

When you create plots with ggplot2, you can enhance their clarity and impact by mapping variables to different plot aesthetics. Aesthetic mappings control how data variables are visually represented—such as by color, shape, or size. In scatter plots, for example, you can use `color` to distinguish groups, `shape` to differentiate categories, and `size` to convey magnitude. These mappings are defined in the `aes()` function within your ggplot2 code. For instance, mapping a categorical variable to `color` will assign different colors to each category, making patterns and groupings easier to spot. Similarly, mapping to `shape` allows each group to have a unique point marker, and mapping to `size` can highlight differences in a quantitative variable. By thoughtfully assigning variables to these aesthetics, you can make your visualizations more informative and visually appealing.

library(ggplot2)

# Sample data
df <- data.frame(
  x = rnorm(50),
  y = rnorm(50),
  group = sample(c("A", "B", "C"), 50, replace = TRUE)
)

# Scatter plot mapping 'group' to color
ggplot(df, aes(x = x, y = y, color = group)) +
  geom_point(size = 3) +
  labs(title = "Scatter Plot with Color Mapped to Group")

When customizing plots, the choice of colors and other aesthetics can greatly affect readability. Use color palettes that are distinct and colorblind-friendly, such as those from the `RColorBrewer` package or built-in ggplot2 scales. Avoid using too many colors, which can be distracting or confusing. For categorical variables, select palettes with clearly differentiated hues, and for continuous variables, use gradients that progress smoothly. Choose shapes that are easily distinguishable, especially when printing in black and white or for viewers with visual impairments. Adjust point sizes so they are visible but not overwhelming. Always consider your audience and the message you want your plot to convey—effective aesthetic choices make your visualizations both attractive and easy to interpret.

library(testthat)

source("user_code.R")

test_that("plot maps var1 to x and var2 to y", {
    df_test <- data.frame(
        var1 = rnorm(10),
        var2 = rnorm(10),
        category = sample(c("A", "B"), 10, replace = TRUE)
    )
    p <- customize_scatter(df_test)
    mapping <- p$mapping
    expect_true(!is.null(mapping$x), info = "x aesthetic is missing")
    expect_true(!is.null(mapping$y), info = "y aesthetic is missing")
    expect_equal(rlang::as_name(mapping$x), "var1", info = "x aesthetic should be 'var1'")
    expect_equal(rlang::as_name(mapping$y), "var2", info = "y aesthetic should be 'var2'")
})

test_that("plot maps category to both color and shape", {
    df_test <- data.frame(
        var1 = rnorm(10),
        var2 = rnorm(10),
        category = sample(c("A", "B"), 10, replace = TRUE)
    )
    p <- customize_scatter(df_test)
    mapping <- p$mapping
    expect_true(!is.null(mapping$colour), info = "color aesthetic is missing")
    expect_true(!is.null(mapping$shape), info = "shape aesthetic is missing")
    expect_equal(rlang::as_name(mapping$colour), "category", info = "color aesthetic should be 'category'")
    expect_equal(rlang::as_name(mapping$shape), "category", info = "shape aesthetic should be 'category'")
})

test_that("plot uses geom_point", {
    df_test <- data.frame(
        var1 = rnorm(10),
        var2 = rnorm(10),
        category = sample(c("A", "B"), 10, replace = TRUE)
    )
    p <- customize_scatter(df_test)
    geoms <- sapply(p$layers, function(l) class(l$geom)[1])
    expect_true("GeomPoint" %in% geoms, info = "geom_point must be used in the plot")
})

test_that("plot includes correct title", {
    df_test <- data.frame(
        var1 = rnorm(10),
        var2 = rnorm(10),
        category = sample(c("A", "B"), 10, replace = TRUE)
    )
    p <- customize_scatter(df_test)
    title_lab <- p$labels$title
    expect_equal(title_lab, "Customized Scatter Plot", info = "Plot title is incorrect or missing")
})


test_main.R

Master the art of data visualization in R using the powerful ggplot2 package. This course guides you from the basics of plotting to advanced visualization techniques, enabling you to create insightful and visually appealing graphics for data analysis and presentation.

Comprehensive exploration of information visualization in R using ggplot2, from foundational concepts to advanced techniques.

Customizing Plot Aesthetics

Løsning