LAB: Fake report

Motivation

Amet commodo faucibus risus neque rutrum sodales ante eleifend inceptos est pharetra?

200 countries, 50 years, 20 lines of code

Sit varius nibh ultricies convallis fames velit ut inceptos dapibus. Mauris sed nisi magnis odio duis cum vel quis sagittis nisi – posuere, nisi parturient mus lectus. Curae hac nascetur eu netus vel eleifend, et duis facilisis augue nibh vulputate. Cursus vitae fringilla magnis, fames potenti velit nunc fermentum risus. Enim ante egestas rutrum nisl posuere quisque quisque.

country	continent	year	lifeExp	pop	gdpPercap
Afghanistan	Asia	1952	28.801	8425333	779.4453
Afghanistan	Asia	1957	30.332	9240934	820.8530
Afghanistan	Asia	1962	31.997	10267083	853.1007
Afghanistan	Asia	1967	34.020	11537966	836.1971
Afghanistan	Asia	1972	36.088	13079460	739.9811
Afghanistan	Asia	1977	38.438	14880372	786.1134

Adipiscing nascetur, per sem blandit montes venenatis cubilia nam parturient ac. Curae ridiculus leo, morbi at donec penatibus parturient. Phasellus netus consequat cursus litora fames, augue congue nunc. Vehicula egestas consequat laoreet aenean – consequat pellentesque, ut dignissim dictum dis.

Static with plotly

Sit risus sapien feugiat porttitor curae – ante metus volutpat sagittis. Posuere aliquam enim tempor ac venenatis feugiat, sagittis accumsan sociis facilisis? Laoreet suspendisse arcu tellus habitasse nullam eget nam ridiculus tristique! Viverra rhoncus aliquet!

Wizardry

Sit ultrices nisi proin dictumst ac primis augue egestas a. Odio ultricies sagittis sapien sollicitudin sem convallis tempor montes quisque! Hendrerit urna nunc pulvinar nostra ullamcorper convallis sem. Blandit habitasse cubilia nisi nisi neque habitant, mollis taciti vivamus fermentum ultricies.

Appendix

Dolor nulla facilisis duis at varius sociis! Lectus magna aptent hac suspendisse tempus torquent tempor primis magnis ornare netus hac lacinia, fames turpis vulputate nisl, bibendum gravida commodo.

neat_color_scale <-
      c("Africa" = "#01d4e5",
        "Americas" = "#7dea01" ,
        "Asia" = "#fc5173",
        "Europe" = "#fde803",
        "Oceania" = "#536227")
a_year <- sample(gapminder$year, 1)

p <- gapminder |>
    filter(year==a_year) |>
    ggplot() +
    aes(x = gdpPercap) +
    aes(y = lifeExp) +
    aes(size = pop) +
    aes(text = country) +                   #
    aes(fill = continent) +
    aes(color= continent) +
    aes(frame = year) +                     #
    geom_point(alpha=.5) +
    scale_x_log10() +
    scale_size_area(max_size = 15,
                    labels= scales::label_number(scale=1/1e6,
                                                suffix=" M")) +
    scale_fill_manual(values = neat_color_scale) +
    labs(title= glue("Gapminder  {a_year}"),
        x = "Yearly Income per Capita",
        y = "Life Expectancy",
        caption="From sick  and poor (bottom left) to healthy and rich (top right)")

p 

(p + theme(legend.position = "none")) |> 
    plotly::ggplotly(height = 500, width=750)

(p %+% 
    gapminder + 
    theme(legend.position = "none") +
    ggtitle("Gapminder")) |> 
    plotly::ggplotly(height = 500, width=750)