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 289 36041 Barack Obama 1225 290 2008 New York NY Hamilton 36041 President John McCain republican 2141 291 2008 New York NY Herkimer 36043 President Barack Obama democrat 12094 292 2008 New York NY Herkimer 36043 President John McCain republican 14619 293 2008 New York NY Jefferson 36045 President Barack Obama democrat 18166 294 2008 New York NY Jefferson 36045 President John McCain republican 20219 295 2008 New York NY Kings 36047 President Barack Obama democrat 603525 296 2008 New York NY Kings 36047 President John McCain republican 151872 297 2008 New York NY Lewis 36049 President Barack Obama democrat 4986 298 2008 New York NY Lewis 36049 President John McCain republican 5969 299 2008 New York NY Livingston 36051 President Barack Obama democrat 13655 300 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 289 36041 Barack Obama 1225 290 2008 New York NY Hamilton 36041 President John McCain republican 2141 291 2008 New York NY Herkimer 36043 President Barack Obama democrat 12094 292 2008 New York NY Herkimer 36043 President John McCain republican 14619 293 2008 New York NY Jefferson 36045 President Barack Obama democrat 18166 294 2008 New York NY Jefferson 36045 President John McCain republican 20219 295 2008 New York NY Kings 36047 President Barack Obama democrat 603525 296 2008 New York NY Kings 36047 President John McCain republican 151872 297 2008 New York NY Lewis 36049 President Barack Obama democrat 4986 298 2008 New York NY Lewis 36049 President John McCain republican 5969 299 2008 New York NY Livingston 36051 President Barack Obama democrat 13655 300 2008 New York NY Livingston 36051 President John McCain republican 16030