`movies` <-
structure(list(title = structure(c(15L, 17L, 20L, 13L, 25L, 22L,
1L, 6L, 4L, 12L, 2L, 18L, 5L, 10L, 14L, 8L, 23L, 9L, 16L, 21L,
26L, 24L, 7L, 19L, 3L, 11L), .Label = c("A Knight's Tale (CO) ",
"Along Came a Spider (PA) ", "Amores Perros (Lions Gate) ",
"Angel Eyes (WB) ", "Blow (NL) ",
"Bridget Jones's Diary (MM) ", "Castaway (20) ",
"Crocodile Dundee in L.A. (PA) ", "Crouching Tiger...Dragon (SC) ",
"Driven (WB) ", "Kingdom Come (FS) ",
"Momento (Newmarket Films) ", "Moulin Rouge (20) ",
"O'Brother, Where Art... (TS) ", "Pearl Harbor (TO) ",
"Save the Last Dance (PA) ", "Shrek (DW) ",
"Spy Kids (DI) ", "Startup.com (AR) ",
"The Animal (CO) ", "The Golden Bowl (LG) ",
"The Mummy Returns (UN) ", "The Tailor of Panama (CO) ",
"Traffic (USA) ", "What's the Worst that... (MGM)",
"With a Friend Like Harry (MM) "), class = "factor"), current = c(29.6,
28.2, 19.6, 13.7, 13, 7.8, 3.4, 2, 1.9, 1, 0.7, 0.4, 0.4, 0.3,
0.3, 0.3, 0.3, 0.3, 0.2, 0.2, 0.2, 0.1, 0.1, 0.1, 0.1, 0.1),
previous = c(75.2, 55.2, NA, 0.3, NA, 19, 9.1, 4.2, 6.2,
1.9, 2.1, 1.3, 1.3, 1.2, 0.3, 1, 0.7, 0.5, 0.5, 0.5, 0.4,
0.4, 0.2, 0.2, 0.3, 0.4), gross = c(118.9, 148.4, 19.6, 14.4,
13, 181.2, 49.4, 65.4, 21.7, 15.8, 71.8, 105.9, 52.2, 31.8,
44.2, 24.3, 12.9, 127.2, 90.2, 1.5, 1.8, 123.8, 233.2, 0.5,
4.8, 22.7)), .Names = c("title", "current", "previous", "gross"
), 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"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.