"dottodot" <-
structure(list(x = c(1.5, 3, 5, 5, 4, 3.75, 4, 5, 5.25, 5.5,
6.25, 6, 7, 9, 11, 12.5, 14, 15.5, 17, 18, 18, 17, 16, 14.75,
14.5, 14, 13.5, 13, 13.25, 13.25, 13, 12.5, 12, 10.5, 10.5, 11.5,
12, 10.5, 9, 7, 6.5, 6, 5, 5.5, 6, 5.5, 4.5, 3, 1.5), y = c(3,
4, 6, 7, 7.75, 8.5, 9, 9.5, 11, 9.5, 10.5, 9, 8, 8, 8, 7.75,
6.75, 6, 5, 4.5, 4, 4.5, 5, 5, 4.25, 2, 0.5, 1, 2, 3.5, 4, 3,
2, 1, 2, 3.5, 5, 4.5, 4.5, 4.75, 3.5, 2.5, 2, 3, 4, 5, 4, 3,
3), pos = c(2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3, 4, 3, 3, 3, 3, 3,
3, 3, 3, 1, 1, 1, 3, 4, 4, 1, 1, 2, 4, 3, 2, 2, 1, 2, 2, 3, 1,
1, 2, 4, 4, 1, 2, 2, 3, 1, 1, 1), ind = c(1, 2, 3, 4, 5, 6, 7,
8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
40, 41, 42, 43, 44, 45, 46, 47, 48, 49)), .Names = c("x", "y",
"pos", "ind"), class = "data.frame", row.names = c("1", "2",
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14",
"15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25",
"26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36",
"37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47",
"48", "49"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.