Create a chart that explores whether the distribution of income varies between the values in the action_taken. Below the plot, briefly summarize what the plot shows about the relationship between income and whether a loan was originated. Comment on whether this plot is consistent with your expectations and why or why not that is the case. (2 points) ```{r} ggplot(df, aes(x = action_taken, y = income)) + geom_boxplot() + labs(title = "Income Distribution by Action Taken", x = "Action Taken", y = "Income")