CreatingDataVisualisations.R

#Creating Data Visualisation

# Set the working directory
setwd("/Users/daviddryburgh/Documents/R_Programming")

# Read the CSV file
cars <- read.csv("Cars.csv")

# Load the ggplot2 library
library(ggplot2)

# Create a frequency bar chart
ggplot(
  data = cars,
  aes(x = Transmission)) +
  geom_bar() +
  ggtitle("Count of Cars by Transmission Type") + 
  xlab("Transmission Type") +
  ylab("Count of Cars")

# Create a histogram
ggplot(
  data = cars,
  aes(x = Fuel.Economy)) +
  geom_histogram(
    bins = 10
  ) +
  ggtitle("Distribution of Fuel Economy") + 
  xlab("Fuel Economy") +
  ylab("Count of Cars")

# Create a density plot
ggplot(
  data = cars,
  aes(x = Fuel.Economy)) +
  geom_density() +
  ggtitle("Distribution of Fuel Economy") + 
  xlab("Fuel Economy (mpg)") +
  ylab("Density")

# Create a scatterplot
ggplot(
  data = cars,
  aes(
    x = Cylinders,
    y = Fuel.Economy)) +
  geom_point() +
  ggtitle("Fuel Economy by Cylinders") + 
  xlab("Number of Cylinders") +
  ylab("Fuel Economy (mpg)")