Module 11. Assignment

-

I read Dr. Piwek's talk on Edward Tufte and Charles Minard for this module, and then I made the dot-dash plot again using basic R. I noticed that the basic R version was the only one that could make the visual displayed in my attached figure after I installed and loaded all the visualization packages. I used the code that came with the module to make a graph of per-capita budget spending. It showed a range of years from 1967 to 1977 and the y values that went with them. The plot(), axis(), and abline() methods produced the linked points and dashed reference lines at 5 and 6. The text() function added notes for the 5 percent line and an explanatory caption. The output shows Tufte's minimalist design principle: it is clean, focused on data, and simple to understand.


pkgs <- c("CarletonStats","devtools","epanetReader","fmsb","ggplot2","ggthemes","latticeExtra","MASS","PerformanceAnalytics","psych","plyr","prettyR","plotrix","proto","RCurl","reshape","reshape2"); utils::install.packages(pkgs, dependencies=TRUE, repos="https://cloud.r-project.org")


library(CarletonStats); library(devtools); library(epanetReader); library(fmsb)

library(ggplot2); library(ggthemes); library(latticeExtra); library(MASS)

library(PerformanceAnalytics); library(psych); library(plyr); library(prettyR)

library(plotrix); library(proto); library(RCurl); library(reshape); library(reshape2)

x <- 1967:1977

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

pdf("dot_dash_base.pdf", width = 10, height = 6)  # saves to your working folder

par(family = "serif")

plot(y ~ x, axes = FALSE, xlab = "", ylab = "", pch = 16, type = "b")

axis(1, at = x, labels = x, tick = FALSE, family = "serif")

axis(2, at = seq(1, 6, 1), labels = sprintf("$%s", seq(300, 400, 20)),

     tick = FALSE, las = 2, family = "serif")

abline(h = 6, lty = 2)

abline(h = 5, lty = 2)

text(max(x), min(y) * 2.5,

     "Per capita\nbudget expenditures\nin constant dollars",

     adj = 1, family = "serif")

text(max(x), max(y) / 1.08, labels = "5%", family = "serif")

dev.off()

getwd()             

list.files()    

shell.exec("dot_dash_base.pdf")

p <- normalizePath("dot_dash_base.pdf")

system2("cmd", c("/c", "start", "", shQuote(p)))


Comments

Post a Comment

Popular posts from this blog

LIS 4317 Final Project – Diamonds Analysis

-
Image
Diamonds constitute one of the most extensively examined datasets in R due to their numerous quality attributes that affect valuation. For this undertaking, I employed the diamonds dataset from the ggplot2 package to investigate the relationship between carat (weight), cut quality, and clarity in relation to diamond prices. This dataset provided an opportunity to apply and demonstrate proficiency in distribution analysis, comparative evaluation, and multivariate visualization methods acquired during LIS 4317. Overview of the Dataset The diamonds dataset comprises 53,940 observations and ten variables, thereby satisfying the project's criterion of a minimum of fifty rows and five to twenty variables. Key variables encompass: Cost – Price of diamond in United States dollars Carat – the mass of the diamond Reduce — reduction in quality levels (Fair, Good, Very Good, Premium, Ideal) Color – the process of color grading Clarity – Evaluation of transparency and lucidity I ...
Read more

Visualizing Distributions in R

-
Image
  The goal for this week was to make a distribution visualization in R and think about how well it worked. I used the usual mtcars dataset that comes with R for this purpose. This multidimensional figure makes it evident that there is a negative correlation: as the weight of the automobile goes up, the MPG goes down. The grid also reveals that automobiles with 4, 6, and 8 cylinders are grouped together. This design follows the advice of Stephen Few and Nathan Yau, who say that tiny multiples with aligned axes are better for straightforward comparison than a single, overloaded chart. I completely agree with Few's criticism that conventional ways of visualizing data, including layering graphs, might hide the underlying structure of a dataset. This way of breaking the facts into a grid makes the tale more clearer and more honest. R-code # Load the ggplot2 library library(ggplot2) # Create a density plot ggplot(mtcars, aes(x = mpg)) + geom_density(fill = "skyblue", ...
Read more

Module 5. Part-to-Whole and Ranking Analysis

-
Image
  I used a dataset that is split into groups (T, S, R, Q, and Other) for this lesson so I could see how each part fits in with the whole. It was easy for me to choose because the numbers make it clear how the different groups are different. There are three different stories in the donut charts: The total numbers are shown in X.1. "Other" is much bigger than the others. In terms of rank, the average position shows that "Other" is way ahead of the others, with the others being close behind. Time shows how long each group takes, and we can see that one group takes most of the time. Visuals that show the relationship between parts and wholes are a quick way to show who has the biggest share. They look good on a blog and are easy to read. But it's harder to see the little changes between the slices, so a bar chart would be better some of the time. In general, I like how this chart makes the imbalance clear while also letting me know the boundaries when I...
Read more