---
title: "documentation analysis gda final task"
author: "Rohan"
date: "2023-08-22"
output: html_document
---

```{r message=FALSE, warning=FALSE}
install.packages("tidyverse")
install.packages("ggplot2")
library(tidyverse)
library(ggplot2)
```
Now i will create a data set that contains only the average employement score of colleges of different countries
```{r}
colleges_usuk<-collegedata_df %>% 
  filter(Country.Code=="US" | Country.Code=="UK" & Employer.Reputation.Score>mean(Employer.Reputation.Score))
View(colleges_usuk)
```
```{r}
average_employement_score_by_country <- collegedata_df %>%
  group_by(Country) %>%
  summarise(average_employement_score = mean(Employer.Reputation.Score))
average_employement_score_by_country <- average_employement_score_by_country %>%
  arrange(desc(average_employement_score))
print(average_employement_score_by_country)
finaldf<-head(average_employement_score_by_country, 10)
View(finaldf)
ggplot(data = finaldf)+geom_col(mapping = aes(x=Country,y=average_employement_score,fill=Country))+labs(x="Countries",y="Average Employement Score")

```

