Third Report

params

$continent_name
[1] "Asia"

$selected_year
[1] 2007

Here is the table of Asian countries in 2007

#tb_plot <- gapminder |> 
#  filter(continent == 'Asia' & year == 2007) |> 
#  select(-continent)
#datatable(tb_plot)
#or
tb_plot <- gapminder |> 
  filter(continent == params$continent_name & year == params$selected_year) |> 
  select(-continent)
datatable(tb_plot)

gg <- ggplot(tb_plot) +
  aes(x=gdpPercap,y=lifeExp,label=country) +
  geom_point() +
  theme_gray()
ggplotly(gg)