# ------------- # 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)