This is the subscribers example from Visualize That, Chapter4.

We will first download the data from the book’s website.

The second thing you will need to do is replace the path to where you have downloaded and unzipped the files for Chapter 4.

You will need to replace the path in the read.csv() command to your path. On Windows the path should have double backslashes or single forward slashes.

Next we will load the data.

subscribers <- read.csv("/home/esuess/classes/2016-2017/02 Winter 2017/Stat 6610/Book/ch04/data/flowingdata_subscribers.csv", sep=",", header=TRUE)
View(subscribers)

Default plot with points.

plot(subscribers$Subscribers)

Default plot with type explicity specified.

plot(subscribers$Subscribers, type="p", ylim=c(0, 30000))

Draw vertical lines.

plot(subscribers$Subscribers, type="h", ylim=c(0, 30000))

Draw points with above lines.

plot(subscribers$Subscribers, type="h", ylim=c(0, 30000))
points(subscribers$Subscribers)

Edits with colors and labels.

plot(subscribers$Subscribers, type="h", ylim=c(0, 30000), xlab="Day", ylab="Subscribers")
points(subscribers$Subscribers, pch=19, col="blue")

LS0tCnRpdGxlOiAiVmlzdWFsaXplIFRoYXQgLSBDaGFwdGVyIDQgLSBzdWJzY3JpYmVycyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyB0aGUgc3Vic2NyaWJlcnMgZXhhbXBsZSBmcm9tIFZpc3VhbGl6ZSBUaGF0LCBDaGFwdGVyNC4KCldlIHdpbGwgZmlyc3QgZG93bmxvYWQgdGhlIGRhdGEgZnJvbSB0aGUgYm9vaydzIFt3ZWJzaXRlXShodHRwOi8vd3d3LndpbGV5LmNvbS9XaWxleUNEQS9XaWxleVRpdGxlL3Byb2R1Y3RDZC0wNDcwOTQ0ODg5Lmh0bWwpLgoKVGhlIHNlY29uZCB0aGluZyB5b3Ugd2lsbCBuZWVkIHRvIGRvIGlzIHJlcGxhY2UgdGhlIHBhdGggdG8gd2hlcmUgeW91IGhhdmUgZG93bmxvYWRlZCBhbmQgdW56aXBwZWQgdGhlIGZpbGVzIGZvciBDaGFwdGVyIDQuICAKCllvdSB3aWxsIG5lZWQgdG8gcmVwbGFjZSB0aGUgcGF0aCBpbiB0aGUgcmVhZC5jc3YoKSBjb21tYW5kIHRvIHlvdXIgcGF0aC4gIE9uIFdpbmRvd3MgdGhlIHBhdGggc2hvdWxkIGhhdmUgZG91YmxlIGJhY2tzbGFzaGVzIG9yIHNpbmdsZSBmb3J3YXJkIHNsYXNoZXMuCgpOZXh0IHdlIHdpbGwgbG9hZCB0aGUgZGF0YS4KCmBgYHtyfQpzdWJzY3JpYmVycyA8LSByZWFkLmNzdigiL2hvbWUvZXN1ZXNzL2NsYXNzZXMvMjAxNi0yMDE3LzAyIFdpbnRlciAyMDE3L1N0YXQgNjYxMC9Cb29rL2NoMDQvZGF0YS9mbG93aW5nZGF0YV9zdWJzY3JpYmVycy5jc3YiLCBzZXA9IiwiLCBoZWFkZXI9VFJVRSkKClZpZXcoc3Vic2NyaWJlcnMpCmBgYAoKRGVmYXVsdCBwbG90IHdpdGggcG9pbnRzLgoKYGBge3J9CnBsb3Qoc3Vic2NyaWJlcnMkU3Vic2NyaWJlcnMpCmBgYAoKRGVmYXVsdCBwbG90IHdpdGggdHlwZSBleHBsaWNpdHkgc3BlY2lmaWVkLgoKYGBge3J9CnBsb3Qoc3Vic2NyaWJlcnMkU3Vic2NyaWJlcnMsIHR5cGU9InAiLCB5bGltPWMoMCwgMzAwMDApKQoKYGBgCgpEcmF3IHZlcnRpY2FsIGxpbmVzLgoKYGBge3J9CnBsb3Qoc3Vic2NyaWJlcnMkU3Vic2NyaWJlcnMsIHR5cGU9ImgiLCB5bGltPWMoMCwgMzAwMDApKQpgYGAKCkRyYXcgcG9pbnRzIHdpdGggYWJvdmUgbGluZXMuCgpgYGB7cn0KcGxvdChzdWJzY3JpYmVycyRTdWJzY3JpYmVycywgdHlwZT0iaCIsIHlsaW09YygwLCAzMDAwMCkpCnBvaW50cyhzdWJzY3JpYmVycyRTdWJzY3JpYmVycykKYGBgCgpFZGl0cyB3aXRoIGNvbG9ycyBhbmQgbGFiZWxzLgoKYGBge3J9CnBsb3Qoc3Vic2NyaWJlcnMkU3Vic2NyaWJlcnMsIHR5cGU9ImgiLCB5bGltPWMoMCwgMzAwMDApLCB4bGFiPSJEYXkiLCB5bGFiPSJTdWJzY3JpYmVycyIpCnBvaW50cyhzdWJzY3JpYmVycyRTdWJzY3JpYmVycywgcGNoPTE5LCBjb2w9ImJsdWUiKSAKYGBg