Car Data

Author

Marco

Introduction

My data has information on Cars that are from India. The price is in rupees since that is their currency. It has other attributes such as horsepower and body type of vehicle. Each row is a different car. Each column is an attribute describing that specific car.

Car_Data <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/pennellim_xavier_edu/EQZflulpzLNNrSF_-pSHrjEBwBuBaQxkMhvL_ugYKcSMPA?download=1")

Research Question

Do SUV or sedans have a higher average starting price and by how much?

From this information I can know what to expect for prices when getting a car. I may want to buy SUV’s if they are a lot cheaper on average. I will have to use the variables body type and starting price body type will be on the x axis and price on the y. I will filter the x axis since I only want to see sedan and SUV. I can then convert the price to dollars since its in rupees. Then I will average the price for both SUV and sedan. A bar graph should be good since its 1 discrete variable and 1 continuous.

Car_Data %>% 
  filter(body_type %in% c("SUV", "Sedan"))%>%
  mutate(starting_price_USA = starting_price * .012)%>%
  ggplot(aes(x = body_type, y = starting_price_USA)) +
  geom_bar(stat = "summary", fun = mean) +
  labs(title = "Average Price of Sedan and SUV",
       x = "Body Type",
       y = "Average Price")+
  scale_y_continuous(labels = scales::dollar)

Explanation of graph

Looking at the graph it seems Sedans are slightly more than SUV’s on average. You can tell that these are high end cars though as they are both slightly over 100,000 dollars for an average price.

1 + 1

[1] 2

You can add options to executable code like this

[1] 4

The echo: false option disables the printing of code (only output is displayed).

--- title: "Car Data" author: "Marco" editor: visual toc: true # Generates an automatic table of contents. format: # Options related to formatting. html: # Options related to HTML output. code-tools: TRUE # Allow the code tools option showing in the output. embed-resources: TRUE # Embeds all components into a single HTML file. execute: # Options related to the execution of code chunks. warning: FALSE # FALSE: Code chunk sarnings are hidden by default. message: FALSE # FALSE: Code chunk messages are hidden by default. echo: TRUE --- ## Introduction My data has information on Cars that are from India. The price is in rupees since that is their currency. It has other attributes such as horsepower and body type of vehicle. Each row is a different car. Each column is an attribute describing that specific car. ```{r} #| include: FALSE #| label: setup library(tidyverse) # For all the tidy things, yo library(skimr) # for better summary statistics ``` ```{r} #| label: load data #| message: FALSE Car_Data <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/pennellim_xavier_edu/EQZflulpzLNNrSF_-pSHrjEBwBuBaQxkMhvL_ugYKcSMPA?download=1") ``` ## Research Question Do SUV or sedans have a higher average starting price and by how much? From this information I can know what to expect for prices when getting a car. I may want to buy SUV's if they are a lot cheaper on average. I will have to use the variables body type and starting price body type will be on the x axis and price on the y. I will filter the x axis since I only want to see sedan and SUV. I can then convert the price to dollars since its in rupees. Then I will average the price for both SUV and sedan. A bar graph should be good since its 1 discrete variable and 1 continuous. ```{r} #| label: Analysis Car_Data %>% filter(body_type %in% c("SUV", "Sedan"))%>% mutate(starting_price_USA = starting_price * .012)%>% ggplot(aes(x = body_type, y = starting_price_USA)) + geom_bar(stat = "summary", fun = mean) + labs(title = "Average Price of Sedan and SUV", x = "Body Type", y = "Average Price")+ scale_y_continuous(labels = scales::dollar) ``` ## Explanation of graph Looking at the graph it seems Sedans are slightly more than SUV's on average. You can tell that these are high end cars though as they are both slightly over 100,000 dollars for an average price. ```{r} ``` ```{r} 1 + 1 ``` You can add options to executable code like this ```{r} #| echo: false 2 * 2 ``` The `echo: false` option disables the printing of code (only output is displayed).