Interactive Visualization: Marine Debris on the Korean Peninsula - 3
#Data wrangling for the second visualization filter_kg % filter(!unit %in% "EA")%>% rename(kg = quantity) filter_kg % addMinicharts( kg_2019$x, kg_2019$y, chartdata = kg_2019[, c("kg_10")], colorPalette = colors, type = "bar", height = 45, width = 30, popup = popupArgs(html = paste0("Location: ", kg_2019$location, " ", "kg * 10: ", kg_2019$kg_10, " kg", " (real data: ", kg_2019$kg, ")")) )%>% ad..
2022. 12. 16.