Week 3_Homework_Khadka_Kevil
docx
keyboard_arrow_up
School
University of the Cumberlands *
*We aren’t endorsed by this school
Course
ITS-530-51
Subject
Information Systems
Date
Feb 20, 2024
Type
docx
Pages
5
Uploaded by ProfSardine3404
Week 3: Homework University of Cumberlands Analyzing and Visualizing Data (ITS-530)
Dr. Lamar D. Brown
July 19, 2023
For my last assignment, I collected the top 50 hedge funds' stock data from marketwatch.com. Once I converted the data into a CSV file, I used the same R code from my last assignment to extract the stock symbols and names from the data. I am once again using the same three principles that I chose last time: “Good design makes a product understandable”, “Good design is honest”, and “Good design is long-lasting” (
The power of good design Dieter Rams’s ideology,
engrained within Vitsœ
).
My aim is to ensure that the design is easily comprehensible. To achieve this, I have opted to use
a pie chart and a bar graph as they aid in making the product more understandable. I have kept my last data and the new data I extracted from marketwatch.com. As I added extra 10 stocks data, the bar graph and pie chart do not look good since it is important for the design to be understandable for viewers and readers so that they can grasp the information and understand the
product's insights. Additionally, the datasets are large this time so we could use some other data visualization model like stacked bar graph or scatterplot to visualize our big data.
R Code
# Read the stocks data from the "stocksData.csv" file
stocksData <- read.csv("stocksData.csv", header = TRUE, sep = ",")
# Display the first few rows of the stocks data
head(stocksData)
# Create a data frame with the stocks symbols and count columns from stocks data
stocksFrame <- data.frame(stocksSymbol = stocksData$symbol, hedgeFundsCount = stocksData$count)
# Create a bar plot to visualize the number of hedge funds owning each stock
barplot(stocksData$count, names.arg = stocksData$symbol, main = "Hedge Fund Holdings of Stocks", xlab = "Stocks", ylab = "Number of stocks owned by Hedge Funds")
# Create a pie chart to visualize the proportion of stocks owned by hedge funds
pie(stocksData$count, labels = stocksData$symbol, main = "Hedge Fund Holdings of Stocks")
Data
Fig: Old Data
Fig: New Data
Your preview ends here
Eager to read complete document? Join bartleby learn and gain access to the full version
- Access to all documents
- Unlimited textbook solutions
- 24/7 expert homework help
Result
Fig: Old Bar graph with 11 Stocks
Fig: New Bar graph with 21 Stocks
Fig: Old Pie chart
Fig: New Pie chart
Reference
The power of good design Dieter Rams’s ideology, engrained within Vitsœ
. Vitsoe. (n.d.). https://www.vitsoe.com/gb/about/good-design.