R Codes .pdf

File information


Original filename: R Codes.pdf
Author: Owner

This PDF 1.5 document has been generated by Microsoft® Word 2013, and has been sent on pdf-archive.com on 31/10/2015 at 21:04, from IP address 129.174.x.x. The current document download page has been viewed 369 times.
File size: 196 KB (2 pages).
Privacy: public file


Download original PDF file


R Codes.pdf (PDF, 196 KB)


Share on social networks



Link to this file download page



Document preview


R codes
Code (1)
dat1 <- data.frame(
Sex = factor(c("F","F","F","F","F","F","F","F","F","F","M","M","M","M","M","M","M","M","M","M")),
time =
factor(c("2005","2006","2007","2008","2009","2010","2011","2012","2013","2014","2005","2006","200
7","2008","2009","2010","2011","2012","2013","2014")),
total1 = c(65757, 66925, 67792, 67876, 66208, 65705,65579, 66914, 67577, 68613,75973 ,77502
,78254 ,77486 ,73359 ,74290 ,74290 ,75555 ,76653 ,77692))
library(ggplot2)
library(extrafont)
g=ggplot(data=dat1, aes(x=time, y=total1, group=Sex, shape=Sex, colour=Sex)) +
geom_line(size=1.5) +
geom_point(size=3, fill="white") +
scale_shape_manual(values=c(22,21))
g0=g+scale_y_continuous(breaks = c(63000,66000,69000,72000,75000,78000))
require(scales)
g1=g0+labs(title=" Employment population by sex (Thousands)\n 16 years and over ",cex.lab=1.5,
x="Years", y=" Total number of employees ")
g2=g1+theme(axis.title.x = element_text(colour="black
",size=13, vjust=0, face="bold"),axis.title.y = element_text(colour="black",size=13, vjust=1.5,
face="bold"),plot.title=element_text(size = rel(1.5)), title = element_text(colour=" black",vjust=2,
face="bold" ), legend.title=element_text(size=13, colour="black", face="bold"))

Code (2)
dat1 <- data.frame(
Employment=factor(c("Employed","Employed","Employed","Employed","Employed","Employed","Empl
oyed","Employed","Employed","Employed","Unemployed","Unemployed","Unemployed","Unemployed
","Unemployed","Unemployed","Unemployed","Unemployed","Unemployed","Unemployed")),
time =
factor(c("2005","2006","2007","2008","2009","2010","2011","2012","2013","2014","2005","2006","200
7","2008","2009","2010","2011","2012","2013","2014")),
total1 = c(65757, 66925, 67792, 67876, 66208, 65705,65579, 66914, 67577, 68613, 3531, 3247, 3196,
3891, 5811, 6199, 6063, 5734, 5146, 4426))
library(ggplot2)
library(extrafont)
g=ggplot(data=dat1, aes(x=time, y=total1, group=Employment, shape= Employment,
colour=Employment)) +
geom_line(size=1.5) +
geom_point(size=3, fill="white") +
scale_shape_manual(values=c(22,21))
g0=g+scale_y_continuous(breaks =
c(5000,10000,15000,20000,25000,30000,35000,40000,45000,50000,55000,60000,65000 ))
require(scales)
g1=g+labs(title=" Employed and unemployed women (Thousands)\n 16 years and over",cex.lab=1.5,
x="Years", y=" Total number of employees ")
g2=g1+theme(axis.title.x = element_text(colour="black
",size=13, vjust=0, face="bold"),axis.title.y = element_text(colour="black",size=13, vjust=1.5,
face="bold"),plot.title=element_text(size =15), title = element_text(colour=" black",vjust=2, face="bold"
), legend.title=element_text(size=13, colour="black", face="bold"))


Document preview R Codes.pdf - page 1/2

Document preview R Codes.pdf - page 2/2

Related documents


r codes
tech profile jan june 2017
sample
employmentapplication english
lagrange co emp app
application for employment

Link to this page


Permanent link

Use the permanent link to the download page to share your document on Facebook, Twitter, LinkedIn, or directly with a contact by e-Mail, Messenger, Whatsapp, Line..

Short link

Use the short link to share your document on Twitter or by text message (SMS)

HTML Code

Copy the following HTML code to share your document on a Website or Blog

QR Code

QR Code link to PDF file R Codes.pdf