GE Stock Price Analysis Using R Language
Last Updated :
12 Jul, 2022
Stock analysis is a technique used by investors and traders to make purchasing and selling choices. Investors and traders strive to obtain an advantage in the markets by making educated judgments by researching and analyzing previous and current data.
In this article, we will analyze the ‘GE Stock Price’ dataset using the R Programming Language.
The used libraries:
- dplyr – The dplyr package of the R Programming Language is a data manipulation framework that provides a consistent set of verbs to help with the resolution of the most frequent data manipulation difficulties faced.
- stringi – The stringi package in the R programming language is used for string/text processing in any locale or character encoding that is highly fast, portable, accurate, consistent, and easy.
Importing Library
We will initially start by installing the dplyr package and the stringi library
R
library(stringi)
library(dplyr)
|
We will now read the CSV file in order to perform the analysis.
Importing Dataset
We start by defining the path where the CSV file is located on our local machine. We then read the CSV file and store the data in variable names df. We further display the content of the data frame ‘df’
The dataset can be downloaded and accessed from the following link: here
R
path = 'please paste your path here'
df <- read.csv(path)
df
|
Output:
Columns Selection
We will now explore the numerical characteristics ‘StockPrice’ column. We obtained a numerical summary of the Stock price column using the ‘summary’ function. This displays the Minimum Stock Price, the 1st Quartile, the median Stock Price, the mean Stock Price, the 3rd Quartile, and the maximum Stock Price.
R
price <- select(df,StockPrice)
summary(price)
|
Output:
Data Visualization
We will now produce a histogram of the Stock Price Data using the ‘hist’ function. We pass the ‘Stock Price’ column and apply labels and headings to the histogram. We add color to the histogram using the col parameter.
R
hist(as.vector(price$StockPrice),
xlab='Stock Price',
main='Stock Data',
col='green')
|
Output:
We will now produce a density-based histogram of the Stock Price Data. To produce the density-based histogram, we have used the ‘lines’ function and passed the kernel density values Stock Price column. To obtain the kernel density values we have used the density function. We have then applied labels and headings to the histogram. We add color to the histogram using the col parameter.
R
hist(as.vector(price$StockPrice),
xlab='Stock Price',
main='Stock Data',
col='blue',
prob=TRUE,
ylim=c(0,0.025))
lines(density(price$StockPrice),col='red')
|
Output:
We will now plot a line graph of the Stock Price data that would be segregated year-wise. We have extracted the year from the Date. (We have extracted the last 2 digits of the date that represents the year).
For extracting only the year from the date column we have followed this process:
- Check the class of the Date column
- Convert the Date column’s data to a character data type
- Extract only the year from the Date column using a stri_sub function and apply it to all the data using the mutate function
We then finally plot the graph of the data. We then pass the mutated df’s date column as the label for the x-axis
R
class(df$Date)
as.character(df$Date)
Mutateddf < - df % > % mutate(Date=stri_sub(Date, -2))
Mutateddf
plot(Mutateddf$StockPrice,
type='l',
axes=FALSE,
xlab='Year',
ylab='Stock Price',
main='Year wise Stock Price',
col='blue')
axis(1, at=1: 480, labels=Mutateddf$Date,
cex.axis=0.9)
axis(2)
|
Output:
We will now group the data based on their year and plot a bar graph of the maximum stock price in that year
We firstly group the data of Mutated df based on the year. and then we get the maximum stock price for each year and finally using the ‘bar plot’ function we plot the bar graph showing the maximum stock price in each year.
R
groupeddf <- group_by(Mutateddf,Date)
maxdf <- summarize(groupeddf,max(StockPrice))
barplot(maxdf$`max(StockPrice)`,
main='maximum price in each year',
xlab='Maximum Stock Price',
ylab='Year',
names.arg=maxdf$Date,
col=c('blue','green','pink','yellow',
'red','purple','orange'))
|
Output:
Conclusion:
The study shown above may be used to comprehend a stock’s short-term and long-term behavior. Depending on the risk tolerance of the investor, a decision support system may be further developed to aid the user in choosing which stock to select from the industry.
Note: In the date column, only the last 2 digits of the date are there. Hence 1/1/70 means 1st January 1970.
Like Article
Suggest improvement
Share your thoughts in the comments
Please Login to comment...