Presentation for Stock Tracker Application

Vidur N
October,25,2015

Presentation for Stock Tracker Application

You can access the app at: StockApp

  • A simple user friendly app offering a means to track stocks.
  • This application provides users that set up an account to select up to five stocks to track the progress of. A user can easily chart the flucuations of stocks of their own choosing through the use of clear graphs and tables which they can alter to supply the data they require.

Historical Data

  • The first tab supplies the user with the historical data of a selected stock.
  • The time frame for the examination of the stock history can be set by the user via a straight forward drop down menu.
  • Results for this information search are presented in a graph below the user selection menus.
  • The bottom of the page displays the regression curve between value and stock price, and plots the residue versus leverage curve.

Real-Time Data

  • The second tab allows the user to follow the real-time data of the five selected stocks.
  • This information is updated automatically every two seconds and displayed by both a table and a graph.

Historical Tabular Data

  • The third tab provides historical data of one selected stock in table format.
  • The stocks starting price, highest for the day, lowest for the day, closing price, volume, and adjusted price are presented in the table and provide a clear quick reference to the user.

Data Preprocessing

stockData3<-fread(input=url3,header=T,sep=",",stringsAsFactors = T)
stockData<-rbind(stockData3[,name:="Tesla"],
                 rbind(stockData1[,name:="Google"],
                       stockData2[,name:="Apple"]))
wideData<- dcast(stockData, Date ~ name, value.var = "Open" )
head(wideData)  

        Date  Apple   Google  Tesla
1 2015-04-21 128.10 537.5125 205.80
2 2015-04-27 132.31 563.3900 222.56
3 2015-05-04 129.50 538.5300 228.18
4 2015-05-11 127.39 538.3700 236.29
5 2015-05-18 128.38 532.0100 247.00
6 2015-05-26 132.60 538.1200 247.68

Plots of The Stocks

p<-ggplot(data=melt(wideData),aes(x=Date, y=value, colour=variable,group=variable))
p+geom_line()

plot of chunk unnamed-chunk-3