library(tidyverse)
library(lubridate)

irl <- read_csv("ireland3.csv")
head(irl)


cols <- c("Cumann na nGaedheal"="yellow","Fianna Fáil"="#66BB66","Fine Gael"="#5179c9","Ulster Unionist Party"="#48A5EE","Direct Rule"="black","Democratic Unionist Party"="#D46A4C")

Cosgrave <- as.Date("1927-01-01", "%Y-%m-%d")
deValera <- as.Date("1940-01-01", "%Y-%m-%d")
Costello <- as.Date("1950-01-01", "%Y-%m-%d")
deValera2 <- as.Date("1953-01-01", "%Y-%m-%d")
Costello2 <- as.Date("1956-01-01", "%Y-%m-%d")
deValera3 <- as.Date("1959-01-01", "%Y-%m-%d")
Lemass <- as.Date("1964-01-01", "%Y-%m-%d")
Lynch<- as.Date("1969-01-01", "%Y-%m-%d")
Cosgrave2 <- as.Date("1975-01-01", "%Y-%m-%d")
Lynch2<- as.Date("1979-01-01", "%Y-%m-%d")
Haughey<- as.Date("1981-01-01", "%Y-%m-%d")
FitzGerald<- as.Date("1985-01-01", "%Y-%m-%d")
Haughey2<- as.Date("1989-01-01", "%Y-%m-%d")
Reynolds<- as.Date("1993-01-01", "%Y-%m-%d")
Bruton<- as.Date("1996-01-01", "%Y-%m-%d")
Ahern<- as.Date("2002-01-01", "%Y-%m-%d")
Cowen<- as.Date("2010-01-01", "%Y-%m-%d")
Kenny<- as.Date("2013-03-01", "%Y-%m-%d")
Varadkar<- as.Date("2018-01-01", "%Y-%m-%d")
#NI Dates
Craig<- as.Date("1930-01-01", "%Y-%m-%d")
Andrews<- as.Date("1942-01-01", "%Y-%m-%d")
Brooke<- as.Date("1950-01-01", "%Y-%m-%d")
Neill<- as.Date("1966-01-01", "%Y-%m-%d")
Clark<- as.Date("1970-01-01", "%Y-%m-%d")
Trimble<- as.Date("2000-03-01", "%Y-%m-%d")
#Faulkner
Paisley<- as.Date("2008-06-01", "%Y-%m-%d")
Robinson<- as.Date("2012-01-01", "%Y-%m-%d")
Foster<- as.Date("2016-04-01", "%Y-%m-%d")

q<-ggplot()+
    ggtitle("Ireland's Heads of Government Since 1921")+
    ylab("Year")+
  xlab("")  +
#geom_linerange(data=gant_data_raw,aes(x=name,ymin=birth,ymax=death,color=Party),size=2.8,alpha=0.8)+ was""
  geom_linerange(data=irl,aes(x=Country,ymin=start,ymax=end2,color=Party),size=25,alpha=0.8)+
  #annotate("point", x = 54, y =cameron, size=1, colour="darkgreen") +

  #Taoiseach names
  annotate("text", x = 1, y = Cosgrave, label = "Cosgrave", size=3.5,angle = 90, colour="black")+
  annotate("text", x = 1, y = deValera, label = "de Valera", size=3.5,angle = 90, colour="black")+   annotate("text", x = 1, y = Costello, label = "Costello", size=3.5,angle = 90, colour="black")+
  annotate("text", x = 1, y = deValera2, label = "de Valera", size=3.5,angle = 90, colour="black")+   annotate("text", x = 1, y = Costello2, label = "Costello", size=3.5,angle = 90, colour="black")+
  annotate("text", x = 1, y = deValera3, label = "de Valera", size=3.5,angle = 90, colour="black")+    annotate("text", x = 1, y = Lemass, label = "Lemass", size=3.5,angle = 90, colour="black")+
    annotate("text", x = 1, y = Lynch, label = "Lynch", size=3.5,angle = 90, colour="black")+
   annotate("text", x = 1, y = Cosgrave2, label = "Cosgrave", size=3.5,angle = 90, colour="black")+
    annotate("text", x = 1, y = Lynch2, label = "Lynch", size=3.5,angle = 90, colour="black")+
     annotate("text", x = 1, y = Haughey, label = "Haughey", size=3.5,angle = 90, colour="black")+
      annotate("text", x = 1, y = FitzGerald, label = "FitzGerald", size=3.5,angle = 90, colour="black")+
      annotate("text", x = 1, y = Haughey2, label = "Haughey", size=3.5,angle = 90, colour="black")+
       annotate("text", x = 1, y = Reynolds, label = "Reynolds", size=3.5,angle = 90, colour="black")+
       annotate("text", x = 1, y = Bruton, label = "Bruton", size=3.5,angle = 90, colour="black")+
      annotate("text", x = 1, y = Ahern, label = "Ahern", size=3.5,angle = 90, colour="black")+
      annotate("text", x = 1, y = Cowen, label = "Cowen", size=3.5,angle = 90, colour="black")+
       annotate("text", x = 1, y = Kenny, label = "Kenny", size=3.5,angle = 90, colour="black")+
       annotate("text", x = 1, y = Varadkar, label = "Varadkar", size=3.5,angle = 90, colour="black")+

  #First Minister Names
  annotate("text", x = 2, y = Craig, label = "Craig", size=3.5,angle = 90, colour="black")+
    annotate("text", x = 2, y = Andrews, label = "Andrews", size=3.5,angle = 90, colour="black")+
  annotate("text", x = 2, y = Brooke, label = "Brooke", size=3.5,angle = 90, colour="black")+
  annotate("text", x = 2, y = Neill, label = "O'Neill", size=3.5,angle = 90, colour="black")+
    annotate("text", x = 2, y = Clark, label = "Chichester\n-Clark", size=3.5,angle = 90, colour="black")+
   annotate("text", x = 2, y = Trimble, label = "Trimble", size=3.5,angle = 90, colour="black")+
     annotate("text", x = 2, y = Paisley, label = "Paisley", size=3.5,angle = 90, colour="black")+
   annotate("text", x = 2, y = Robinson, label = "Robinson", size=3.5,angle = 90, colour="black")+
   annotate("text", x = 2, y = Foster, label = "Foster", size=3.5,angle = 90, colour="black")+
  coord_flip()+
scale_colour_manual(values = cols)+
 theme(panel.background=element_rect(fill="white"),axis.ticks.y=element_blank(),axis.text=element_text(colour ="black",size=12.5),panel.grid.major.x = element_line(colour ="darkgrey",size = 0.2),panel.grid.major.y = element_line(colour ="grey",size = 0.071),legend.text=element_text(size=9),legend.position="bottom",plot.title = element_text(hjust = 0.5,size = 30, face = "bold"))#,legend.title = element_blank() ,legend.key.size = unit(3,"line") p + theme(legend.position="bottom") legend.position="bottom"
#+ theme(legend.text=element_text(size=X)) legend.key.size = unit(0.5, "cm"),legend.key.width=unit(0.3,"cm"),legend.key.height=unit(0.3,"cm") ,legend.justification=c(1,0), legend.position=c(1,0)
q
ggsave("taoiseach2.png",q,width=400,height=150,unit="mm",dpi=600)