Do budget quality wines exist?
I wanted to take a look at some wines from 2015, and see what countries have the most wines above 90 points but below $25.
Behind the scenes
g <- allwine %>%
filter((price < 26) & (points > 90) & (year == "2015")) %>%
ggplot(aes(x=price, y=points, tooltip = country, data_id = country)) +
geom_jitter_interactive(size = 1, hover_nearest = TRUE)+
labs(
title = "Quality wines on a budget",
subtitle = "A look at 2015 wines over 90 points and under $25.",
plot.title = element_text(face="bold"),
x = "Price",
y = "Points"
)
girafe(ggobj = g,
options = list(
opts_hover_inv(css = "opacity:0.1;"),
opts_hover(css = "fill:darkred;stroke:darkred;r:1pt;"),
opts_selection(only_shiny = FALSE, type = "single", css = "fill:darkred;stroke:darkred;r:1pt;")
))
« Back to Projects