Module 5: Apply 4

Import data

# excel file
data <- read_excel("Apply_1.xlsx")
data

State one question

What is the average age of “actor 1” in each couple?

Plot data

ggplot(data, aes(x = actor_1_age)) +
  geom_bar(fill = "skyblue")

Interpret

The average age of “actor 1” in each couple is the late 30s, with the most being 36 years of age. There are also a couple outliers in the data, showing that some partners are very old.