{r setup, include=FALSE} library(flexdashboard)

Column

Chart A

{r} # Histogram of Depression Scores ggplot(depression_data, aes(x = Depression)) + geom_histogram(binwidth = 5, fill = "skyblue", color = "black") + labs(title = "Distribution of Depression Scores", x = "Depression Score", y = "Count") + theme_minimal()

Column

Chart B

{r} # Scatter Plot: Work.Study.Hours vs Depression ggplot(depression_data, aes(x = Work.Study.Hours, y = Depression, color = Gender)) + geom_point(alpha = 0.6) + geom_smooth(method = "lm", se = FALSE) + labs(title = "Work/Study Hours vs Depression Score", x = "Work/Study Hours", y = "Depression Score") + theme_minimal()

Chart C

{r} # Boxplot of Depression Scores by Gender ggplot(depression_data, aes(x = Gender, y = Depression, fill = Gender)) + geom_boxplot() + labs(title = "Depression Score by Gender", y = "Depression Score") + theme_minimal()