Module # 9 Visualization in R

 





Basic Histogram: Distribution of Cigarette Prices
Our journey begins with a basic histogram, shedding light on the distribution of cigarette prices in the dataset.


# Basic Histogram
hist(CigarettesB$price, main = "Distribution of Cigarette Prices", xlab = "Price")

The histogram vividly illustrates the spread of prices, giving us a glimpse into the variability and concentration within the dataset. Peaks and troughs in the histogram reveal potential clusters or outliers, setting the stage for further exploration.

Lattice Scatterplot Matrix: Unveiling Multivariate Relationships
Next, we employ a lattice scatterplot matrix, a powerful tool for understanding relationships between multiple variables simultaneously.


# Lattice Scatterplot Matrix
library(lattice)
splom(~CigarettesB[, c("packs", "price", "income")], main = "Scatterplot Matrix")

The scatterplot matrix allows us to identify patterns and correlations between "packs," "price," and "income." Each subplot provides a visual link between two variables, offering a comprehensive view of the dataset's multivariate structure.



ggplot2 Bar Chart: Average Income by Observation
Lastly, we delve into ggplot2 to create a bar chart showcasing the average income by observation. Despite the initial error in the code, we can refine it to accurately reflect the variable used.

# ggplot2 Bar Chart
library(ggplot2)
ggplot(CigarettesB, aes(x = rownames(CigarettesB), y = income)) +
  geom_bar(stat = "summary", fun = "mean", fill = "skyblue") +
  labs(title = "Average Income by Observation", x = "Observation", y = "Average Income")

This bar chart gives us insights into the average income across observations, highlighting any variations or trends present in the data.

Comments

Post a Comment

Popular posts from this blog

Module # 2 Google Table, Tableau and Geographic map

Image
  For this week's dataset, I looked into the 5000 fastest private growing companies in the United States over 4 years. Using Tableau I created a visual to show me where the most successful companies were based. On the map, the darker states correspond with both the rank and amount of workers in each of the companies. Darker shades led to more workers and higher rank, while lighter shades represented the opposite.  Here we can see South Dakota as one of the lighter-colored states in the United States, with a rank of 4,937 and only 64 workers we can see why it is so lightly shaded.  Compared to that of New York's darker-shaded state, showing a much more significant ranking of 794,043 and 77k plus workers.  Ways to improve this map would be a legend on the side of the United States map, here 2-4 different shades could be added. Showing the general difference between the state's rank and workers. Gestalt Laws would also be useful here, as the bigger ranked states could b...
Read more

Module # 7 assignment (Visual Analytics)

Image
  In this example, I've created two scatter plots, one for mpg vs. hp and another for mpg vs. wt, using mtcars and arranged them in a grid using the grid.arrange function.  My opinion on Few's recommendations.  Simplicity:   Few emphasize simplicity to avoid overwhelming the audience. The scatter plots are relatively simple, displaying two variables at a time (mpg vs. hp, mpg vs. wt). This simplicity aids in easy interpretation without unnecessary complexity. Clarity: Is a key principle in Few's recommendations. The use of grid arrangement helps in comparing the two scatter plots side by side, making it easier for viewers to identify patterns and differences between the variables. Accuracy: This is crucial, and Few often advocate for accurate representation of data. The scatter plots accurately represent the relationship between variables, allowing viewers to make informed observations about the distribution and correlation. Color Usage: Few often advise agai...
Read more

Module # 3 assignment

First, let's create the data sets Set#1 and Set#2: set1 <- c(10, 2, 3, 2, 4, 2, 5) set2 <- c(20, 12, 13, 12, 14, 12, 15)   Now, let's calculate the measures of central tendency for each set: # Mean for Set#1 and Set#2 mean_set1 <- mean(set1) mean_set2 <- mean(set2)   # Median for Set#1 and Set#2 median_set1 <- median(set1) median_set2 <- median(set2)   # Mode for Set#1 and Set#2 mode_set1 <- as.numeric(names(sort(table(set1), decreasing = TRUE)[1])) mode_set2 <- as.numeric(names(sort(table(set2), decreasing = TRUE)[1]))   Now, let's calculate the measures of variation for each set:   # Range for Set#1 and Set#2 range_set1 <- range(set1) range_set2 <- range(set2)   # Interquartile Range (IQR) for Set#1 and Set#2 iqr_set1 <- IQR(set1) iqr_set2 <- IQR(set2)   # Variance for Set#1 and Set#2 variance_set1 <- var(set1) variance_set2 <- var(set2)   # S...
Read more