Viewing Distances by Device

vd <- read.table("viewingdistances.txt", sep = ",", header = TRUE, 
    row.names = "device")
citations <- "Citations: http://www.wolterskluwerhealth.com/News/Pages/HowCloseDoYouHoldYourSmartPhone.aspx, http://www.crutchfield.com/S-yLHM6v9a5pH/learn/learningcenter/home/TV_placement.html, \nhttp://www.wave-fcm.com/Attachments/5_Laptop_Notebook_Computers_and_Ergonomics.pdf"
vd
##            distance_in_inches
## smartphone               12.6
## laptop                   25.0
## television               96.0
barplot(as.matrix(t(vd)), col = c("#2299EE"), main = "Average Viewing Distance by Device", 
    ylab = "distance in inches")
mtext(citations, side = 1, line = 3, outer = F, adj = 0, cex = 0.5, 
    lheight = 0)

plot of chunk unnamed-chunk-2

Competitive Analysis of Mobile Page Load Time

ca <- read.table("competitveanalysis.csv", sep = ",", header = TRUE, 
    row.names = "site")
hist(ca)
## Error: 'x' must be numeric

Visualizing Average Connection Speeds in the US

ca <- read.table("connectionspeeds.txt", sep = ",", header = TRUE, 
    row.names = "medium")
cit <- "http://www.akamai.com/dl/akamai/akamai-soti-q313.pdf"
ca
##           avg_connection_speed
## broadband                 11.6
## mobile                     5.3
opar <- par(no.readonly = TRUE)
par(las = 1)
barplot(as.matrix(t(ca)), col = c("#2299EE"), main = "Average Connection Speeds (in Mbps) in the US", 
    ylab = "speed in Mbps", horiz = TRUE)
mtext(cit, side = 1, line = 3, outer = F, adj = 0, cex = 0.6, lheight = 0)

plot of chunk unnamed-chunk-6

par(opar)