Skip to content

Instantly share code, notes, and snippets.

@prabhasp
Last active March 28, 2017 00:52
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 prabhasp/8727284 to your computer and use it in GitHub Desktop.
Save prabhasp/8727284 to your computer and use it in GitHub Desktop.
Plotting the Projects supported by the UNICEF Innovations Lab
Nr NAME OF THE PROJECT AREA IMPLEMENTATION START IMPLEMENTATION END ADDENDUMS
1 Find your polling Station (finished) Social/Technology 22/11/2010 02/03/2011
2 OSM Handbook (finished) Technology 12/03/2010 31/03/2011
3 Follow The Stars (finished) Social/Arts/Culture 02/01/2011 15/06/2011
4 Our Virtual City on 3D (finished) Technology 02/02/2011 18/04/2011
5 Our Eye (finished) Education/Social 03/03/2011 05/10/2011 15/12/2011
6 Say NO to plastic bags (finished) Environment 03/03/2011 30/05/2011
7 Art Gallery for blind Artists (finished) Social/Arts 15/03/2011 15/04/2011
8 E-career Guidelines Education/Social 28/03/2011 26/04/2012
9 Recycle smART (finished) Environment/Arts 20/04/2011 07/04/2011
10 International Roma Day (finished) Social/Culture 20/04/2011 18/05/2011
11 Hip Hop Hurray (finished) Social/Arts 04/07/2011 15/05/2011
12 Gjakova, The city of ancient culture and heritage(finished) Culture 20/04/2011 08/04/2011 30/08/2011
13 Our Environment (finished) Environment/Arts 20/04/2011 18/05/2011
14 Mapping Public Facilities (finished) Social/Technology 20/04/2011 17/07/2011 30/12/2011
15 Creative Corner Social/Culture 18/05/2011 17/05/2012
16 Prishtina Bus Station (finished) Environment/Technology 18/05/2011 28/12/2011
17 Short Documentary (finished) Health/Education 18/05/2011 30/06/2011
18 Together Social/Culture 27/06/2011 30/09/2011 30/12/2011
19 Alternative Youth Center Social/Arts/Culture 30/06/2011 27/06/2012 31/07/2012
20 Rockin' Hood (finished) Arts/Social 20/06/2011 08/05/2011
21 Building and Developing Quadcopter RC (blocked) Technology
22 My City Has Colours (finished) Arts 07/01/2011 15/08/2011 30/09/2011
23 Kosovo 2.0 (finished) Technology/Arts/Culture 07/12/2011 15/09/2011 15/10/2011
24 With your country in background (finished) Arts 07/12/2011 30/12/2011 31.03.2012
25 Arduino (blocked) Science
26 Be part of Coultural Heritage (finished) Arts/Culture 20/07/2011 09/05/2011
27 Human Being and Health (finished) Health 20/07/2011 15/10/2011
28 Health and education for youth (finished) Health 20/07/2011 15/09/2011
29 Animatori (finished) Arts 19/07/2011 20/09/2011 20/10/2011
30 Festari (finished) Arts/Social 20/09/2011 30/10/2011 15/12/2011
31 People with disability in our society Arts 23/09/2011 23/12/2011
32 Solidarity,Humanity,Integrity Education/Social 26/09/2011 15/01/2012 05/03/2012
33 Playfull Mouse Education 23/09/2011 28/12/2011
34 Stop smoking Start Breathing Education/Health 20/09/2011 28/12/2011 30/04/2012
35 Virtual physic lab Technology 13/02/2012 28/05/2012 31/07/2012
36 Abandonment of School and Losing Interest for Learning Social 13/02/2012 18/06/2012 31/08/2012
37 Web workshop Technology 21/02/2012 30/05/2012 30/09/2012
38 Science and Culture Fair Education/Social 13/02/2012 23/07/2012
39 Theatre in Elementary Schools Culture/Education
40 European Youth Parliament Kosova Culture/Social 09/02/2012 12/02/2012
41 Pegasus-2 Technology
42 Smoking is not cool Health/Social 13/03/2012 25/05/2012 30/09/2012
43 Drug Facts Social 27/03/2012 29/06/2012 30/08/2012
44 Together for cleaner environment Education/Environment 13/03/2012 28/09/2012
45 Our challenge Social/Education 27/03/2012 29/06/2012 16/08/2012
46 Youth park 07 Environment/Social 27/03/2012 31/05/2012 31/07/2012
47 Youth in Focus Environment 13/03/2012 24/04/2012 13/06/2012
48 Let's fight trafficking of human beings Social 26/09/2012 08/03/2013
49 Prevention of ecosystem dirtiness (earth, water, air) Environment 26/09/2012 07/12/2012
50 The image of my city Environment 26/09/2012 07/12/2012 28/02/2013
52 Our Voice Social/Education 12/11/2012 20/02/2013
53 Creative activities elementary school students towards inclusive education Social/Education 12/11/2012 15/05/2013
54 Mufti-ethnic workshop Education/Social 12/11/2012 30/01/2013
55 Street Entertainment Education/Culture 12/11/2012 20/02/2013
56 Youth integration in social and cultural life in municipality of zubin potok Education/Social 12/11/2012 31/01/2013
57 Children with disabilities together for a better life Social 20/11/2012 31/01/2013
58 Empowerment and Emancipation of women Education 04/12/2012 15/03/2013 15/04/2013
59 21 Down Syndrome Education/Social 14/12/2012 30/04/2013
60 Advocate, do not abandon the school Education 04/12/2012 20/03/2013
61 Creative Corner �Wind� Education 04/12/2012 29/03/2013 2/4/2013
62 Children education about prevention from deformation of spinal cord Education 04/12/2012 20/03/2013
63 Join us in the stage Education 04/12/2012 30/03/2013 20/04/2013
64 Traditional face painting Education/Culture 04/12/2012 11/03/2013 11/04/2013
65 Women in focus Culture/Education 05/12/2012 30/03/2013
66 Throw it in the right place Environment/Education 05/12/2012 10/03/2013
67 Without girls � We cannot make it Out! Education 05/12/2012 15/04/2013
68 Photo booth Education/Social
69 Youth for Youth for Opportunity Education 04/12/2012 20/04/2013
70 There is nothing wrong with loving yourself Education 04/12/2012 20/02/2013 26/03/2013
71 Actors Workshop Culture/Education 18/01/2013 20/03/2013
72 Psychological assistance in growing up Education/Social 17/09/2012 17/02/2013
73 Center for Prevention of Deformities Education 17/09/2012 17/03/2013
74 Health life styles and appropriate nutrition among young people Education 19/09/2012 19/02/2013
75 Mitrovica's DJ School Culture 17/09/2012 17/02/2013
76 Puppets for amaginative life style Education 17/09/2012 17/01/2013
77 Youth Creative Workshop Education 19/09/2012 19/01/2013
78 Sculp�Ice 2013 Culture 13/02/2013 27/02/2013
79 Thuje.org Technology/Education 28/06/2013 15/09/2013
80 Your Triangle Culture/Social/Education 28/06/2013 15/09/2013
81 Heritage on bike Tourism 28/06/2013 15/09/2013
82 YOUTH FM Social/Education 28/06/2013 15/09/2013
83 Blue Circle Education 28/06/2013 15/09/2013
84 J-unik Tourism/Culture 31/07/2013 30/09/2013
85 Composting Education 31/07/2013 30/09/2013
86 Create.Innovate.Change Education/Social 31/07/2013 30/09/2013
87 Another future Education 31/07/2013 30/09/2013
88 Heartbeat Education/Culture 31/07/2013 30/09/2013
89 Promoting working skills Social/Education 31/07/2013 30/09/2013
90 Jewelry handmade Social/Education 29/08/2013 10/10/2013
byfy <- read.csv("Byfy/BYFY_YouthLed_Prabhas.csv", stringsAsFactors=F)
require(lubridate); require(plyr)
# calculate project end date
byfy$END <- ifelse(byfy$ADDENDUMS=="",
byfy$IMPLEMENTATION.END, byfy$ADDENDUMS)
# order the dataset, so the graphs come out right
byfy <- arrange(byfy, dmy(IMPLEMENTATION.START))
byfy$NAME.OF.THE.PROJECT <- factor(byfy$NAME.OF.THE.PROJECT,
levels=byfy$NAME.OF.THE.PROJECT)
###### PLOT 1: Projects ############
# make data into a format that is easier to plot
require(reshape2); require(stringr)
byfy_tall <- melt(byfy,
id.vars=c("NAME.OF.THE.PROJECT", "AREA"),
measure.vars=c("IMPLEMENTATION.START", "END"),
value.name="DATE")
byfy_tall$DATE <- dmy(byfy_tall$DATE)
# a simplified AREA, that is easier to see when plotted
byfy_tall$AREA2 <- sapply(str_split(byfy_tall$AREA, "/"), function(x) { x[1] })
require(ggplot2)
ggplot(byfy_tall, aes(x=DATE, y=NAME.OF.THE.PROJECT, color=AREA2)) +
geom_line()
####### PLOT 2: Areas over time ##########
byfy$IMPLEMENTATION.START <- dmy(byfy$IMPLEMENTATION.START)
# for this second plot, split the "AREA". If it is social/technology, the following lines
# will create a data.frame where there are two rows for the project, and it is listed once
# with social, and once with technology.
byfy <- cbind(byfy, ldply(str_split(byfy$AREA, "/"), rbind))
byfy_tall <- na.omit(melt(byfy,
id.vars=c("NAME.OF.THE.PROJECT", "IMPLEMENTATION.START"),
measure.vars=c("1", "2", "3"),
value.name="AREA"
))
# plot
ggplot(byfy_tall, aes(x=IMPLEMENTATION.START, fill=AREA)) + geom_histogram() +
labs(title="Themes of project support over time", x="Implementation Start",
y="Count per Theme", fill="Theme")
ggsave("Byfy/ByFyProjectThemes.pdf")
@urspine
Copy link

urspine commented Mar 28, 2017

Great stuff! Looking forward to more maps from Nepal.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment