country_charts.Rmd

---
title: "Country information"
author: "Stephanie Rivera"
date: "5/12/2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library("ggplot2")
library("dplyr")
library(tidyverse)
library(maps)
library(geosphere)
library(rgeos)
library(rworldmap)
library("data.table")
```


```{r cars}
country_data <- read.csv(file = "emails.country.csv", header= TRUE, sep=",")
```

## Plots to show distribution of authors throughout different countries

You can also embed plots, for example:

```{r pressure, echo=FALSE}

country_data$Serial <- rep(1,nrow(country_data))

#country_data[country_data == "Russian Federation"] <- "Russia"

#ifelse(country_data$Name == "Russian Federation", "Russia", NA)

#aggregate by country to get a count 
count_country <- aggregate(country_data$Serial,by=list(Name=country_data$Name), FUN=sum)
#count_country <- count_country[order(-count_country$x),]
colnames(count_country) <- c("Country", "count")

#filter for countries with counts of at least 1000

count_country <- count_country %>% filter(count > 50)

a <- ggplot(count_country, aes(x = reorder(Country, count), y = count, fill=count)) + geom_bar(stat= "identity")+ theme(axis.text.x = element_text(angle = 90, hjust = 1)) + scale_fill_gradient(low = "green", high = "red") + ggtitle("Country counts for article contributors") + xlab(label = "Countries (count > 50)") + ylab(label = "Count") + coord_flip() 
a 

#count unique countries (80 unique countries)






```



```{r}
par(mar=c(0,0,0,0))
map('world',col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,mar=rep(0,4),border=0, ylim=c(-80,80) )


wmap <- getMap(resolution="high")
centroids <- gCentroid(wmap, byid=TRUE)
country_locations <- as.data.frame(centroids,row.names = NULL)

setDT(df, keep.rownames = TRUE)
colnames(df) <- c("Name","lat","long")



```

df holds location information, country_data has article information
```{r}

#join data

article_locations <- merge(x=country_data,y=df, by = "Name", all=TRUE)

#remove values that are unique (articles with only 1 autho)
change <- subset(article_locations,duplicated(article) | duplicated(article, fromLast=TRUE))

#remove articles where everyone is from the same country group things by article and see if each name is the same, if it is then remove that article from the data frame 

store <- change[change$article == 21, "Name"]

store <- store[!is.na(store)]

store
#returning false means that different countries collaborated on something :) 
length(unique(store)) == 1

```