Scatterplots
sets <- read.table("set1_set2.csv", header=TRUE) # read from disk and store in variable (object) "sets"
set1 = sets[,1] # 1st column
set2 = sets[,2] # 2nd column
length(set1)
## [1] 300
length(set2)
## [1] 300
plot(set1) # x-axis: index

plot(set1, set2, main = "Set2 vs. set1") # set2 vs. set1

plot(set1, set2, main = "Set2 vs. set1", col = "blue")

plot(set1, set2, main = "Set2 vs. set1", col = "blue", pch = 17)

plot(set1, set2, main = "Set2 vs. set1", col = "red", pch = 2, cex = 1.2)

plot(set1[1:10], set2[1:10], main = "Set2 vs. set1", col = "red", pch = 18, cex = 1.2)
text(set1[1:10], set2[1:10], labels = LETTERS[1:10], pos = 2) # add annotation to the points
