Program 13

Write an R program to create multiple dot plots for grouped data, comparing the distributions of variables across different categories, using ggplot2’s position_dodge function

Step 1: Load Required Package

library(ggplot2)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Step 2: Convert to factor

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

Step 3: Create the Multiple dot plots

ggplot(ToothGrowth, aes(x = dose, y = len, color = supp)) +
  geom_dotplot(
    binaxis = 'y',
    stackdir = 'center',
    position = position_dodge(width = 0.8),
    dotsize = 0.6,
    binwidth = 1.5
  ) +
  labs(
    title = "Dot Plot of Tooth Length by Dose and Supplement Type",
    x = "Dose (mg/day)",
    y = "Tooth Length",
    color = "Supplement Type"
  ) +
  theme_minimal()