Module 11



Module 11 






```R

# Load necessary library

library(ggplot2)


# Define data

x <- 1967:1977

y <- c(0.5, 1.8, 4.6, 5.3, 5.3, 5.7, 5.4, 5, 5.5, 6, 5)


# Create data frame

data <- data.frame(x = x, y = y)


# Create dot-dash plot using ggplot2

ggplot(data, aes(x = x, y = y)) +

  geom_point() +  # Add points

  geom_line(linetype = "dashed") +  # Add dashed lines

  labs(x = "", y = "Per capita budget expenditures in constant dollars") +  # Labels

  theme_minimal() +  # Minimal theme

  theme(axis.text.x = element_text(family = "serif"),  # Set x-axis font

        axis.text.y = element_text(family = "serif"))  # Set y-axis font

```


This code will generate a dot-dash plot using ggplot2, with dots representing each data point and dashed lines connecting them. The x-axis represents the years from 1967 to 1977, and the y-axis represents the per capita budget expenditures in constant dollars. Adjustments to the font family are made to ensure the text is displayed in a serif font.

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