midterms_house <-
structure(list(year = c(1899L, 1903L, 1907L, 1911L, 1915L, 1919L, 
1923L, 1927L, 1931L, 1935L, 1939L, 1943L, 1947L, 1951L, 1955L, 
1959L, 1963L, 1967L, 1971L, 1975L, 1979L, 1983L, 1987L, 1991L, 
1995L, 1999L, 2003L, 2007L, 2011L, 2015L, 2019L), potus = structure(c(18L, 
16L, 16L, 17L, 19L, 19L, 3L, 3L, 11L, 6L, 6L, 6L, 10L, 10L, 5L, 
5L, 13L, 13L, 14L, 9L, 12L, 15L, 15L, 7L, 2L, 2L, 8L, 8L, 1L, 
1L, 4L), .Label = c("Barack Obama", "Bill Clinton", "Calvin Coolidge", 
"Donald Trump", "Dwight David Eisenhower", "Franklin Delano Roosevelt", 
"George Herbert Walker Bush", "George Walker Bush", "Gerald Rudolph Ford", 
"Harry S. Truman", "Herbert Clark Hoover", "Jimmy Carter", "Lyndon Baines Johnson", 
"Richard Milhous Nixon", "Ronald Wilson Reagan", "Theodore Roosevelt", 
"William Howard Taft", "William McKinley", "Woodrow Wilson"), class = "factor"), 
    party = structure(c(2L, 2L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 
    1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 
    1L, 2L, 2L, 1L, 1L, 2L), .Label = c("Democrat", "Republican"
    ), class = "factor"), unemp = c(11.619999999999999, 4.2999999999999998, 
    3.29, 5.8600000000000003, 6.6299999999999999, 3.3799999999999999, 
    6.9299999999999997, 4.0199999999999996, 8.9399999999999995, 
    21.300000000000001, 17.800000000000001, 4.7000000000000002, 
    3.8999999999999999, 5.2999999999999998, 5.5, 6.7999999999999998, 
    5.5, 3.7999999999999998, 4.9000000000000004, 5.5999999999999996, 
    6.0999999999999996, 9.6999999999999993, 7, 5.5999999999999996, 
    6.0999999999999996, 4.5, 5.7999999999999998, 4.5999999999999996, 
    9.6999999999999993, 5.7999999999999998, 3.7000000000000002
    ), house_change = c(-9.2233009708737708, -4.2759067357512901, 
    -12.2914989657737, -26.590640428342901, -20.962199312714802, 
    -10.2803738317757, -25.496688741721901, -3.64372469635626, 
    -19.259259259259299, 2.8753993610223501, -21.556886227544901, 
    -16.8539325842697, -22.3140495867769, -10.646387832699601, 
    -8.1447963800904901, -24.228969568632799, -1.06813513395393, 
    -16.271186440678001, -6.25, -25, -5.1369863013698698, -13.5416666666667, 
    -2.7472527472527601, -4.5714285714285703, -20.930232558139501, 
    2.4271844660194102, 3.6199095022624399, -12.9310344827586, 
    -24.9027237354086, -6.4676620000000007, -16.4557)), row.names = c(NA, 
-31L), class = c("tbl_df", "tbl", "data.frame"))