GE01

Target Graph

Data Entry

    jmen = read.table("jmen.txt", header = TRUE)

Imitation Graph

#barplot of hair color
hair_table = table(jmen$Hair) 
barplot(hair_table, col = c("Black", "Yellow", "Sienna", "Red"), main = "Hair Color of Sampled JMen", xlab = "Hair Colors", ylab = "Number of Men", names.arg = c("Black", "Blond(e)", "Brown", "Red"))

The main difference between the Target and Imitation graphs is the scale. The Imitation graph appears wider than the Target graph. Despite this, the information and color schemes are the same between the Target and Imitation graphs.