Using R programming, create a very simple interactive graphic that can run on shiny app of the 2008 presidential election win the state of New York in 6 counties. The graphic should allow you to choose the different counties Hamilton, Herkimer, Jefferson, Kings, Lewis, Livingston and should show who won the county based on who had the most votes in that county.

hint: filter(state == "New York", party %in% c("republican", "democrat"))

FIPS candidate candidatevotes year state state_po 2008 New York NY county Hamilton office President party democrat 36041 Barack Obama 1225 2008 New York NY Hamilton 36041 President John McCain republican 2141 2008 New York NY Herkimer 36043 President Barack Obama democrat 12094 2008 New York NY Herkimer 36043 President John McCain republican 14619 2008 New York NY Jefferson 36045 President Barack Obama democrat 18166 2008 New York NY Jefferson 36045 President John McCain republican 20219 2008 New York NY Kings 36047 President Barack Obama democrat 603525 2008 New York NY Kings 36047 President John McCain republican 151872 2008 New York NY Lewis 36049 President Barack Obama democrat 4986 2008 New York NY Lewis 36049 President John McCain republican 5969 2008 New York NY Livingston 36051 President Barack Obama democrat 13655 2008 New York NY Livingston 36051 President John McCain republican 16030 FIPS candidate candidatevotes year state state_po 2008 New York NY county Hamilton office President party democrat 36041 Barack Obama 1225 2008 New York NY Hamilton 36041 President John McCain republican 2141 2008 New York NY Herkimer 36043 President Barack Obama democrat 12094 2008 New York NY Herkimer 36043 President John McCain republican 14619 2008 New York NY Jefferson 36045 President Barack Obama democrat 18166 2008 New York NY Jefferson 36045 President John McCain republican 20219 2008 New York NY Kings 36047 President Barack Obama democrat 603525 2008 New York NY Kings 36047 President John McCain republican 151872 2008 New York NY Lewis 36049 President Barack Obama democrat 4986 2008 New York NY Lewis 36049 President John McCain republican 5969 2008 New York NY Livingston 36051 President Barack Obama democrat 13655 2008 New York NY Livingston 36051 President John McCain republican 16030