Module 8 Assignment


Correlation Analysis and ggplot2


 Download the mtcars data set from the R datasets package using the following code:


```R

data(mtcars)

```

 Once you have the data set loaded, you can generate correlation analysis using the `cor()` function to calculate the correlation matrix:


```R

correlation_matrix <- cor(mtcars)

```

Then, you can visualize the correlation matrix using ggplot2 and the `geom_tile()` function to create a heatmap:


```R

library(ggplot2)


# Convert correlation matrix to long format

correlation_long <- reshape2::melt(correlation_matrix)


# Plot correlation heatmap

ggplot(correlation_long, aes(x = Var1, y = Var2, fill = value)) +

  geom_tile() +

  scale_fill_gradient2(low = "blue", high = "red", mid = "white", 

                       midpoint = 0, limit = c(-1,1),

                       name = "Correlation") +

  theme_minimal() +

  labs(title = "Correlation Heatmap of mtcars Variables")

```


After generating the visualization, you can save the plot to a file using the `ggsave()` function:


```R

ggsave("correlation_heatmap.png", plot = last_plot(), width = 8, height = 6, dpi = 300)

```




Comments

Post a Comment

Popular posts from this blog

Visual Analytics Final Project

Image
  Title: Exploring Violent Crime Rates in the United States: Insights from the USArrests Dataset Introduction Welcome to the exploration of violent crime rates in the United States using the "USArrests" dataset. In this blog post, we'll delve into the dynamics of violent crime across different states, exploring factors such as demographics, geographical patterns, and correlations between variables. Problem Statement The objective is to understand the factors influencing violent crime rates and identify patterns or trends that may exist across different states. By analyzing the "USArrests" dataset, the aim is to gain insights into the underlying drivers of violent crime in the United States. Related Work The analysis builds upon previous studies in criminology and data analytics. Similar research has explored the relationship between socio-economic factors and crime rates. We'll leverage existing visual analytics techniques, such as correlation matrices, to e
Read more

Module # 6 Assignment

Image
  Module #6 Assignment  First, let's generate a simple dataset for demonstration purposes. We'll create data representing the sales of different products: ```R # Creating sample dataset product_names <- c("Product A", "Product B", "Product C", "Product D") sales <- c(1500, 2200, 1800, 2700) # Combine into a data frame sales_data <- data.frame(Product = product_names, Sales = sales) ``` Now, let's create a basic bar chart to visualize this data: ```R # Load necessary library for plotting library(ggplot2) # Create bar chart bar_chart <- ggplot(sales_data, aes(x = Product, y = Sales)) +   geom_bar(stat = "identity", fill = "skyblue") +   labs(title = "Sales of Different Products",        x = "Product",        y = "Sales") +   theme_minimal() # Display the bar chart print(bar_chart) ``` 1. Clarity: The bar chart effectively displays the sales figures for each product, making it
Read more

Module 7 Assignment

Image
  For this assignment, I chose to analyze the distribution of the mtcars dataset, which is readily available in R. The mtcars dataset contains information about various characteristics of different car models, such as miles per gallon (mpg), number of cylinders (cyl), and horsepower (hp), among others. To start, I imported the mtcars dataset into RStudio using the following code: R ``` data(mtcars) ``` Next, I performed a distribution analysis on three variables from the mtcars dataset: mpg, cyl, and hp. I used histograms to visualize the distribution of each variable individually and then created a grid of histograms to compare their distributions side by side. Here's the R code to create the grid of histograms: R ``` # Load necessary libraries library(gridExtra) # Create histograms for each variable mpg_hist <- hist(mtcars$mpg, main = "Distribution of MPG", xlab = "MPG", col = "lightblue") cyl_hist <- hist(mtcars$cyl, main = "Distribution
Read more