xxxxxxxxxx
# filter dataframe to get data to be highligheted
highlight_df <- gapminder %>%
filter(gdpPercap>=59000)
gapminder %>%
ggplot(aes(x=lifeExp,y=gdpPercap)) +
geom_point(alpha=0.3) +
geom_point(data=highlight_df,
aes(x=lifeExp,y=gdpPercap, color=country),size=3)
xxxxxxxxxx
# Default plot
print(p)
# Modify legend titles
p + labs(fill = "Dose (mg)")