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)
ca <- read.table("competitveanalysis.csv", sep = ",", header = TRUE,
row.names = "site")
hist(ca)
## Error: 'x' must be numeric
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)
par(opar)