Skip to content

Instantly share code, notes, and snippets.

@cavedave

cavedave/IrelandLeader.r

Last active February 17, 2019 21:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cavedave/a53284933f7a4eef5b465f7207327cd2 to your computer and use it in GitHub Desktop.
Save cavedave/a53284933f7a4eef5b465f7207327cd2 to your computer and use it in GitHub Desktop.
Download ZIP
Picture of the leaders of ireland since independance
Raw
ireland3.csv
No. Name start end Party Country end2
1 W. T. Cosgrave 1922-12-06 1932-03-09 Cumann na nGaedheal Ireland 1932-02-23
2 Éamon de Valera 1932-03-09 1948-02-18 Fianna Fáil Ireland 1948-02-04
3 John A. Costello 1948-02-18 1951-06-13 Fine Gael Ireland 1951-06-01
Éamon de Valera 1951-06-13 1954-06-02 Fianna Fáil Ireland 1954-05-15
John A. Costello 1954-06-02 1957-03-20 Fine Gael Ireland 1957-03-20
Éamon de Valera 1957-03-20 1959-06-23 Fianna Fáil Ireland 1959-06-23
4 Seán Lemass 1959-06-23 1966-11-10 Fianna Fáil Ireland 1966-11-10
5 Jack Lynch 1966-11-10 1973-03-14 Fianna Fáil Ireland 1973-03-14
6 Liam Cosgrave 1973-03-14 1977-07-05 Fine Gael Ireland 1977-07-05
Jack Lynch 1977-07-05 1979-12-11 Fianna Fáil Ireland 1979-12-11
7 Charles Haughey 1979-12-11 1981-06-30 Fianna Fáil Ireland 1981-06-30
8 Garret FitzGerald 1981-06-30 1982-03-09 Fine Gael Ireland 1982-03-09
Charles Haughey 1982-03-09 1982-12-14 Fianna Fáil Ireland 1982-12-14
Garret FitzGerald 1982-12-14 1987-03-10 Fine Gael Ireland 1987-03-10
Charles Haughey 1987-03-10 1992-02-11 Fianna Fáil Ireland 1992-02-11
9 Albert Reynolds 1992-02-11 1994-12-15 Fianna Fáil Ireland 1994-12-15
10 John Bruton 1994-12-15 1997-06-26 Fine Gael Ireland 1997-06-26
11 Bertie Ahern 1997-06-26 2008-05-07 Fianna Fáil Ireland 2008-05-07
12 Brian Cowen 2008-05-07 2011-03-09 Fianna Fáil Ireland 2011-03-09
13 Enda Kenny 2011-03-09 2017-06-14 Fine Gael Ireland 2017-06-14
14 Leo Varadkar 2017-06-14 2019-02-18 Fine Gael Ireland 2019-02-18
Sir James Craig 1921-06-07 1940-11-24 Ulster Unionist Party Northern Ireland 1940-11-24
John Miller Andrews 1940-11-27 1943-05-01 Ulster Unionist Party Northern Ireland 1943-05-01
Sir Basil Brooke 1943-05-01 1963-03-26 Ulster Unionist Party Northern Ireland 1963-03-26
Terence O'Neill 1963-03-25 1969-05-01 Ulster Unionist Party Northern Ireland 1969-05-01
James Chichester-Clark 1969-05-01 1971-03-23 Ulster Unionist Party Northern Ireland 1971-03-23
Brian Faulkner 1971-03-23 1972-03-30 Ulster Unionist Party Northern Ireland 1972-03-30
Direct Rule 1972-04-01 1973-12-31 Direct Rule Northern Ireland 1973-12-31
Brian Faulkner 1974-01-01 1974-05-28 Ulster Unionist Party Northern Ireland 1974-05-28
Direct Rule 1974-05-29 1998-06-30 Direct Rule Northern Ireland 1998-06-30
David Trimble 1998-07-01 2002-10-14 Ulster Unionist Party Northern Ireland 2002-10-14
Direct Rule 2002-10-15 2007-05-07 Direct Rule Northern Ireland 2007-05-07
Ian Paisley 2007-05-08 2010-01-11 Democratic Unionist Party Northern Ireland 2010-01-11
Peter Robinson 2010-02-03 2016-01-11 Democratic Unionist Party Northern Ireland 2016-01-11
Arlene Foster 2016-01-11 2017-01-09 Democratic Unionist Party Northern Ireland 2017-01-09
Direct Rule 2017-01-09 2019-02-18 Direct Rule Northern Ireland 2019-02-18
Raw
IrelandLeader.r
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment