---
title: "Assignment"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: scroll
source_code: embed
social: menu
---
```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(ggplot2)
library(MASS)
library(lattice)
library(DT)
```
## Dataset Description {.tabset}
```{r}
Enroll<-read.csv("/cloud/project/datasets/Foreign_Student_Enrollment-2015.csv")
```
### About the dataset
```{r}
str(Enroll)
```
### Summary of the dataset
```{r}
summary(Enroll)
```
```{r}
new_attribute<-Enroll %>% mutate(Percentage_of_girls=girls/total*100)
```
## Univariate Analysis {.tabset}
### Histogram analysis for total students
```{r}
ggplot(Enroll, aes(x = total)) + geom_histogram(binwidth = 10, fill = 'lightgreen', color = 'black') +
labs(title = 'Histogram: Total Students Distribution',
x = 'Total Students',
y = 'Frequency') + theme_minimal()
```
### Histogram analysis for female students
```{r}
ggplot(Enroll, aes(x = girls)) + geom_histogram(binwidth = 15, fill = 'yellow', color = 'black') +
labs(title = 'Histogram: Female Students Distribution',
x = 'Female Students',
y = 'Frequency') + theme_minimal()
```
```{r}
ma_enroll <- subset(Enroll, programme == "M.A.-Master of Arts")
```
### Histogram for Female Students in the M.A. program
```{r}
ggplot(ma_enroll, aes(x = girls)) + geom_histogram(binwidth = 3, fill = 'lightpink', color = 'black') +
labs(title = 'Histogram: Female Students in M.A. Program',
x = 'Female Students',
y = 'Frequency') + theme_minimal()
```
## Bivariate analysis
### Boxplot for Acadamic levels
```{r}
ggplot(Enroll, aes(x = levell, y = total)) + geom_boxplot(fill = 'lightblue', color = 'black') +
labs(title = 'Boxplot: Total Students by Academic Level',
x = 'Academic Level',
y = 'Total Students') + theme_minimal() +
theme(axis.text.x = element_text(angle = 90, hjust=1))
```
## Multivariate Analysis
### Scatterplot for Total Students VS Female Students
```{r}
ggplot(Enroll , aes(x = total, y = girls)) + geom_point(color = 'red', alpha = 0.6) +
labs(title = 'Scatter Plot: Total Students vs Female Students',
x = 'Total Students',
y = 'Female Students') + theme_minimal()
```
