president <-
structure(list(potus = structure(c(14L, 25L, 36L, 36L, 22L, 22L, 
22L, 22L, 23L, 27L, 2L, 2L, 2L, 30L, 39L, 28L, 21L, 43L, 31L, 
11L, 11L, 20L, 1L, 1L, 3L, 37L, 37L, 37L, 34L, 19L, 8L, 16L, 
16L, 5L, 16L, 41L, 41L, 41L, 35L, 35L, 40L, 40L, 42L, 38L, 7L, 
7L, 18L, 10L, 10L, 10L, 17L, 17L, 9L, 26L, 29L, 29L, 32L, 32L, 
32L, 15L, 15L, 24L, 33L, 12L, 6L, 13L, 4L), .Label = c("Abraham Lincoln", 
"Andrew Jackson", "Andrew Johnson", "Barack Obama", "Benjamin Harrison", 
"Bill Clinton", "Calvin Coolidge", "Chester Alan Arthur", "Dwight David Eisenhower", 
"Franklin Delano Roosevelt", "Franklin Pierce", "George Herbert Walker Bush", 
"George Walker Bush", "George Washington", "Gerald Rudolph Ford", 
"Grover Cleveland", "Harry S. Truman", "Herbert Clark Hoover", 
"James Abram Garfield", "James Buchanan", "James Knox Polk", 
"James Madison", "James Monroe", "Jimmy Carter", "John Adams", 
"John Fitzgerald Kennedy", "John Quincy Adams", "John Tyler", 
"Lyndon Baines Johnson", "Martin Van Buren", "Millard Fillmore", 
"Richard Milhous Nixon", "Ronald Wilson Reagan", "Rutherford Birchard Hayes", 
"Theodore Roosevelt", "Thomas Jefferson", "Ulysses Simpson Grant", 
"Warren Gamaliel Harding", "William Henry Harrison", "William Howard Taft", 
"William McKinley", "Woodrow Wilson", "Zachary Taylor"), class = "factor"), 
    party = structure(c(1L, 6L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    3L, 3L, 3L, 3L, 8L, 8L, 3L, 8L, 8L, 3L, 3L, 3L, 7L, 7L, 5L, 
    7L, 7L, 7L, 7L, 7L, 7L, 3L, 3L, 7L, 3L, 7L, 7L, 7L, 7L, 7L, 
    7L, 7L, 3L, 7L, 7L, 7L, 7L, 3L, 3L, 3L, 3L, 3L, 7L, 3L, 3L, 
    3L, 7L, 7L, 7L, 7L, 7L, 3L, 7L, 7L, 3L, 7L, 2L), .Label = c(" ", 
    "Democrate", "Democratic", "Democratic-Republican", "Democratic/National Union", 
    "Federalist", "Republican", "Whig"), class = "factor"), start = c(1789L, 
    1797L, 1801L, 1805L, 1809L, 1812L, 1813L, 1814L, 1817L, 1825L, 
    1829L, 1832L, 1833L, 1837L, 1841L, 1841L, 1845L, 1849L, 1850L, 
    1853L, 1853L, 1857L, 1861L, 1861L, 1865L, 1869L, 1873L, 1875L, 
    1877L, 1881L, 1881L, 1885L, 1885L, 1889L, 1893L, 1897L, 1899L, 
    1901L, 1901L, 1905L, 1909L, 1912L, 1913L, 1921L, 1923L, 1925L, 
    1929L, 1933L, 1941L, 1945L, 1945L, 1945L, 1953L, 1961L, 1963L, 
    1963L, 1969L, 1973L, 1973L, 1974L, 1974L, 1977L, 1981L, 1989L, 
    1993L, 2001L, 2009L), end = c(1797, 1801, 1805, 1809, 1812, 
    1813, 1814, 1817, 1825, 1829, 1832, 1833, 1837, 1841, 1841, 
    1845, 1849, 1850, 1853, 1853, 1857, 1861, 1865, 1865, 1869, 
    1873, 1875, 1877, 1881, 1881, 1885, 1885, 1889, 1893, 1897, 
    1899, 1901, 1901, 1905, 1909, 1912, 1913, 1921, 1923, 1925, 
    1929, 1933, 1941, 1945, 1945, 1949, 1953, 1961, 1963, 1969, 
    1969, 1973, 1973, 1974, 1974, 1977, 1981, 1989, 1993, 2001, 
    2009, NA), vpotus = structure(c(26L, 45L, 1L, 15L, 15L, 37L, 
    13L, 37L, 11L, 28L, 28L, 37L, 34L, 39L, 30L, 37L, 17L, 35L, 
    38L, 49L, 38L, 27L, 19L, 5L, 38L, 41L, 22L, 38L, 48L, 10L, 
    38L, 44L, 38L, 32L, 2L, 14L, 38L, 43L, 38L, 9L, 25L, 38L, 
    46L, 6L, 38L, 8L, 7L, 29L, 21L, 20L, 37L, 3L, 40L, 33L, 38L, 
    23L, 42L, 38L, 18L, 38L, 36L, 47L, 16L, 24L, 4L, 12L, 31L
    ), .Label = c("Aaron Burr", "Adlai E. Stevenson", "Alben W. Barkley", 
    "Albert Gore, Jr.", "Andrew Johnson", "Calvin Coolidge", 
    "Charles Curtis", "Charles G. Dawes", "Charles W. Fairbanks", 
    "Chester A. Arthur", "Daniel D. Tompkins", "Dick Cheney", 
    "Elbridge Gerry", "Garret A. Hobart", "George Clinton", "George H. W. Bush", 
    "George M. Dallas", "Gerald R. Ford", "Hannibal Hamlin", 
    "Harry S. Truman", "Henry A. Wallace", "Henry Wilson", "Hubert H. Humphrey", 
    "J. Danforth Quayle", "James S. Sherman", "John Adams", "John C. Breckinridge", 
    "John C. Calhoun", "John N. Garner", "John Tyler", "Joseph Biden", 
    "Levi P. Morton", "Lyndon B. Johnson", "Martin Van Buren", 
    "Millard Fillmore", "Nelson A. Rockefeller", "No Vice President", 
    "No VP", "Richard M. Johnson", "Richard M. Nixon", "Schuyler Colfax", 
    "Spiro T. Agnew", "Theodore Roosevelt", "Thomas A. Hendricks", 
    "Thomas Jefferson", "Thomas R. Marshall", "Walter F. Mondale", 
    "William A. Wheeler", "William R. King"), class = "factor")), row.names = c(NA, 
-67L), class = c("tbl_df", "tbl", "data.frame"))