# Center labels should be treated as characters, not factors. options(stringsAsFactors=FALSE) # Defining data Dominica1981 <- data.frame( AgeGroup=c("0", "1-4", paste(1:15*5, "-", 1:15*5+4, sep=""), "80+", "not stated", "Total"), Males=c(756, 3446, 5277, 5595, 4779, 3722, 2521, 1764, 1404, 1133, 1058, 1051, 950, 959, 850, 611, 383, 340, 155, 36754), Females=c(727, 3267, 4850, 5488, 4611, 3286, 2190, 1755, 1416, 1328, 1292, 1311, 1097, 1190, 962, 872, 584, 689, 126, 37041)) Rhodesia1969 <- data.frame( YOB=1969:1965, Males=c(34460, 104020, 90790, 82830, 83220), Females=c(36750, 111510, 94870, 87770, 83970), Total=c(71210, 215530, 185660, 170600, 167190)) # Exercise 3-1 library(pyramid) Ages <- c("0-4", Dominica1981$AgeGroup[3:18]) Males <- c(sum(Dominica1981$Males[1:2]), Dominica1981$Males[3:18]) Females <- c(sum(Dominica1981$Females[1:2]), Dominica1981$Females[3:18]) pyramids(Left=Males, Right=Females, Center=Ages, Laxis=0:3*2000, Cadj=-0.01) # Exercise 3-2 Rhodesia1969$Ages <- 1969-Rhodesia1969$YOB pyramids(Left=Rhodesia1969$Males, Right=Rhodesia1969$Females, Center=Rhodesia1969$Ages, Laxis=0:3*50000, AxisFM="d", Cadj=0.05)