|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
# ------------- # region # World # Euro area # European Union # Europe & Central Asia # Arab World # North America # Latin America & Caribbean # Middle East & North Africa # Sub-Saharan Africa # East Asia & Pacific # South Asia target.area <- which(renewable.electricity.output$country=="World") renewable.electricity.output[target.area,] plot(renewable.electricity.output[target.area,4:3],type="l", main=titel,sub=subtitel,ylab="%",xlab="",xlim=c(1980,2020),ylim=c(1,90), axes=TRUE) text(1985, 20, "World",cex=0.7) target.area <- which(renewable.electricity.output$country=="Euro area") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="red") text(1985, 12, "Euro area", col="red",cex=0.7) target.area <- which(renewable.electricity.output$country=="Arab World") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="green") text(1985, 5, "Arab World", col="green",cex=0.7) target.area <- which(renewable.electricity.output$country=="North America") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="blue",lty=2) text(1985, 17, "North America", col="blue",cex=0.7) target.area <- which(renewable.electricity.output$country=="Latin America & Caribbean") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="yellow") text(1985, 65, "Latin America & Caribbean", col="yellow",cex=0.7) # target.area <- which(renewable.electricity.output$country=="Middle East & North Africa") # renewable.electricity.output[target.area,] # lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="orange") # text(1985, 5, "Middle East & North Africa", col="orange",cex=0.7) target.area <- which(renewable.electricity.output$country=="Sub-Saharan Africa") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="cyan",lty=3) text(1985, 23, "Sub-Saharan Africa", col="cyan",cex=0.7) target.area <- which(renewable.electricity.output$country=="East Asia & Pacific") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="magenta",lty=4) text(1985, 14.5, "East Asia & Pacific", col="magenta",cex=0.7) target.area <- which(renewable.electricity.output$country=="South Asia") renewable.electricity.output[target.area,] lines(renewable.electricity.output[target.area,4:3],type="l",main=titel,ylab="%",xlab="",col="pink",lty=5) text(1985, 28, "South Asia", col="pink",cex=0.7) |