Analyzing Nigeria Stock Market, Bond Yield, Exchange Rate and GDP Using R

posted by Michael Olafusi , on Sunday, March 05, 2017 , No Comments

Today I decided to do an interesting analysis using R. I compiled actual/live data from as far as 1998 on Nigerian All Share Index and 48 of the most valuable stocks. You can access the raw data here: https://drive.google.com/open?id=0B4XKk-Dstn-eVjRMQ0hQR0hvQ3c

Here is the R code text.

# Load in necessary libraries

require(ggplot2)

require(lubridate)

nse_asi <- csv="" data_analysis="" font="" read.csv="">

nse_asi$Date <- ate="" font="" mdy="" nse_asi="">

# Uncomment the following lines to see the structure and preview of the raw data

#str(nse_asi)

#summary(nse_asi)

#head(nse_asi)

# This next lines of code are to generate the charts for each company in a separate window

# It is not compulsory, and might be worth commenting out if it makes your computer freeze

for (cmpy in unique(nse_asi$Company)){

dev.new()

print(ggplot(data=nse_asi[nse_asi$Company==cmpy,], aes(x=Date, y=Last_Price))+

geom_line() +

ggtitle(cmpy) +

labs(x="Date",y="Price") )

}

# This is the most important chart code. Generates the charts in a neatly grouped way

ggplot(data=nse_asi, aes(x=Date, y=Last_Price, group=Ticker, color=Ticker))+

geom_line() +

facet_wrap(~Ticker,scales="free") +

labs(x="Date",y="Price") +

theme(legend.position="none")

And below are the results. Enjoy. Lots of screenshots. And make sure you notice the interesting insights: like how investors in Presco, Okomu Oil, United Capitals and Mobil would have been smiling to the bank despite the market depression and economic recession. I personally made some gain from Mobil. Also notice how not very long ago, 1 USD exchanged for 22 Naira.