Assignment 5

Author

Mona Abdelkader

Go to the shared posit.cloud workspace for this class and open the assign05 project. Open the assign05.qmd file and complete the exercises.

As best you can, recreate this table showing the population and life expectancy for the two least populated countries in the Americas and Europe for 1997. Your assignment must show all code in the output. Use as many code chunks as you feel necessary, I recommend first getting the output to match the output below. Hint: you will probably find it easiest to use two pivot_wider() functions with a union() to replicate the data layout.

The Grading Rubric is available at the end of this document. Note: you will receive deductions for not using tidyverse syntax in this assignment. That includes the use of filter, mutate, and the up-to-date pipe operator |>.

The word Skál! should link to https://www.islandshotel.is/explore-iceland/blog/icelandic-phrases/ it doesn’t in the image because it is an image. The following packages are useful and loaded for you.

library(tidyverse)
library(gapminder)
library(gt)
library(gtExtras)

This is your work area. Add as many code cells as you need.

glimpse(gapminder)
Rows: 1,704
Columns: 6
$ country   <fct> "Afghanistan", "Afghanistan", "Afghanistan", "Afghanistan", …
$ continent <fct> Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia, …
$ year      <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982, 1987, 1992, 1997, …
$ lifeExp   <dbl> 28.801, 30.332, 31.997, 34.020, 36.088, 38.438, 39.854, 40.8…
$ pop       <int> 8425333, 9240934, 10267083, 11537966, 13079460, 14880372, 12…
$ gdpPercap <dbl> 779.4453, 820.8530, 853.1007, 836.1971, 739.9811, 786.1134, …
gapminder_1997 <- gapminder |>
  filter(year == 1997) |>
  filter(continent %in% c("Americas", "Europe"))
americas_least_populated <- gapminder_1997 |>
  filter(continent == "Americas") |>
  arrange(pop) |>
  head(2) 
europe_least_populated <- gapminder_1997 |>
  filter(continent == "Europe") |>
  arrange(pop) |>
  head(2)
least_populated <- bind_rows(americas_least_populated, europe_least_populated) |>
  select(continent, country, pop, lifeExp)
pop_table <- least_populated |>
  pivot_wider(names_from = country, values_from = c(pop, lifeExp)) 
gapminder_1997 <- gapminder |>
  filter(year == 1997) |>
  filter(continent %in% c("Americas", "Europe"))|>
  filter(country %in% c("Jamaica", "Trinidad and Tobago", "Iceland", "Montenegro"))|>
  rownames_to_column(var = "Factors") |>
  select(pop, lifeExp, country) |>
  arrange(desc(pop)) |>
  gt() |>
  tab_spanner(
    label = md("*Americas*"),
    columns = c(pop, country)
  ) |>
  tab_spanner(
    label = md("*Europe*"),
    columns = c(pop, lifeExp)
  )
print(gapminder_1997)
<div id="bakviyyynq" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
  <style>#bakviyyynq table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#bakviyyynq thead, #bakviyyynq tbody, #bakviyyynq tfoot, #bakviyyynq tr, #bakviyyynq td, #bakviyyynq th {
  border-style: none;
}

#bakviyyynq p {
  margin: 0;
  padding: 0;
}

#bakviyyynq .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#bakviyyynq .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#bakviyyynq .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#bakviyyynq .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#bakviyyynq .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#bakviyyynq .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#bakviyyynq .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#bakviyyynq .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#bakviyyynq .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#bakviyyynq .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#bakviyyynq .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#bakviyyynq .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#bakviyyynq .gt_spanner_row {
  border-bottom-style: hidden;
}

#bakviyyynq .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#bakviyyynq .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#bakviyyynq .gt_from_md > :first-child {
  margin-top: 0;
}

#bakviyyynq .gt_from_md > :last-child {
  margin-bottom: 0;
}

#bakviyyynq .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#bakviyyynq .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#bakviyyynq .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#bakviyyynq .gt_row_group_first td {
  border-top-width: 2px;
}

#bakviyyynq .gt_row_group_first th {
  border-top-width: 2px;
}

#bakviyyynq .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#bakviyyynq .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#bakviyyynq .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#bakviyyynq .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#bakviyyynq .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#bakviyyynq .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#bakviyyynq .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#bakviyyynq .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#bakviyyynq .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#bakviyyynq .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#bakviyyynq .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#bakviyyynq .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#bakviyyynq .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#bakviyyynq .gt_left {
  text-align: left;
}

#bakviyyynq .gt_center {
  text-align: center;
}

#bakviyyynq .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#bakviyyynq .gt_font_normal {
  font-weight: normal;
}

#bakviyyynq .gt_font_bold {
  font-weight: bold;
}

#bakviyyynq .gt_font_italic {
  font-style: italic;
}

#bakviyyynq .gt_super {
  font-size: 65%;
}

#bakviyyynq .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#bakviyyynq .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#bakviyyynq .gt_indent_1 {
  text-indent: 5px;
}

#bakviyyynq .gt_indent_2 {
  text-indent: 10px;
}

#bakviyyynq .gt_indent_3 {
  text-indent: 15px;
}

#bakviyyynq .gt_indent_4 {
  text-indent: 20px;
}

#bakviyyynq .gt_indent_5 {
  text-indent: 25px;
}

#bakviyyynq .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#bakviyyynq div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
  <table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_col_headings gt_spanner_row">
      <th class="gt_center gt_columns_top_border gt_column_spanner_outer" rowspan="1" colspan="1" scope="col" id="&lt;div data-qmd-base64=&quot;KkV1cm9wZSo=&quot;&gt;&lt;div class='gt_from_md'&gt;&lt;p&gt;&lt;em&gt;Europe&lt;/em&gt;&lt;/p&gt;&#10;&lt;/div&gt;&lt;/div&gt;">
        <span class="gt_column_spanner"><div data-qmd-base64="KkV1cm9wZSo="><div class='gt_from_md'><p><em>Europe</em></p>
</div></div></span>
      </th>
      <th class="gt_center gt_columns_top_border gt_column_spanner_outer" rowspan="1" colspan="1" scope="col" id></th>
      <th class="gt_center gt_columns_top_border gt_column_spanner_outer" rowspan="1" colspan="1" scope="col" id="&lt;div data-qmd-base64=&quot;KkV1cm9wZSo=&quot;&gt;&lt;div class='gt_from_md'&gt;&lt;p&gt;&lt;em&gt;Europe&lt;/em&gt;&lt;/p&gt;&#10;&lt;/div&gt;&lt;/div&gt;">
        <span class="gt_column_spanner"><div data-qmd-base64="KkV1cm9wZSo="><div class='gt_from_md'><p><em>Europe</em></p>
</div></div></span>
      </th>
    </tr>
    <tr class="gt_col_headings gt_spanner_row">
      <th class="gt_center gt_columns_top_border gt_column_spanner_outer" rowspan="1" colspan="2" scope="colgroup" id="&lt;div data-qmd-base64=&quot;KkFtZXJpY2FzKg==&quot;&gt;&lt;div class='gt_from_md'&gt;&lt;p&gt;&lt;em&gt;Americas&lt;/em&gt;&lt;/p&gt;&#10;&lt;/div&gt;&lt;/div&gt;">
        <span class="gt_column_spanner"><div data-qmd-base64="KkFtZXJpY2FzKg=="><div class='gt_from_md'><p><em>Americas</em></p>
</div></div></span>
      </th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="2" colspan="1" scope="col" id="lifeExp">lifeExp</th>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="pop">pop</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="country">country</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="pop" class="gt_row gt_right">2531311</td>
<td headers="country" class="gt_row gt_center">Jamaica</td>
<td headers="lifeExp" class="gt_row gt_right">72.262</td></tr>
    <tr><td headers="pop" class="gt_row gt_right">1138101</td>
<td headers="country" class="gt_row gt_center">Trinidad and Tobago</td>
<td headers="lifeExp" class="gt_row gt_right">69.465</td></tr>
    <tr><td headers="pop" class="gt_row gt_right">692651</td>
<td headers="country" class="gt_row gt_center">Montenegro</td>
<td headers="lifeExp" class="gt_row gt_right">75.445</td></tr>
    <tr><td headers="pop" class="gt_row gt_right">271192</td>
<td headers="country" class="gt_row gt_center">Iceland</td>
<td headers="lifeExp" class="gt_row gt_right">78.950</td></tr>
  </tbody>
  
  
</table>
</div>
gapminder_1997 <- gapminder |>
  filter(year == 1997) |>
  filter(continent %in% c("Americas", "Europe"))|>
  arrange(pop) |>
  group_by(continent) |>
  slice_head(n = 2) |>
  select(country, continent, pop, lifeExp) |>
  pivot_wider(names_from = continent, values_from = c(pop, lifeExp)) |>
  select(pop_Americas, lifeExp_Americas, pop_Europe, lifeExp_Europe, country) |>
  gt()
print(gapminder_1997)
<div id="uhodhlhegh" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
  <style>#uhodhlhegh table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#uhodhlhegh thead, #uhodhlhegh tbody, #uhodhlhegh tfoot, #uhodhlhegh tr, #uhodhlhegh td, #uhodhlhegh th {
  border-style: none;
}

#uhodhlhegh p {
  margin: 0;
  padding: 0;
}

#uhodhlhegh .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#uhodhlhegh .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#uhodhlhegh .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#uhodhlhegh .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#uhodhlhegh .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#uhodhlhegh .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#uhodhlhegh .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#uhodhlhegh .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#uhodhlhegh .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#uhodhlhegh .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#uhodhlhegh .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#uhodhlhegh .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#uhodhlhegh .gt_spanner_row {
  border-bottom-style: hidden;
}

#uhodhlhegh .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#uhodhlhegh .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#uhodhlhegh .gt_from_md > :first-child {
  margin-top: 0;
}

#uhodhlhegh .gt_from_md > :last-child {
  margin-bottom: 0;
}

#uhodhlhegh .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#uhodhlhegh .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#uhodhlhegh .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#uhodhlhegh .gt_row_group_first td {
  border-top-width: 2px;
}

#uhodhlhegh .gt_row_group_first th {
  border-top-width: 2px;
}

#uhodhlhegh .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#uhodhlhegh .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#uhodhlhegh .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#uhodhlhegh .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#uhodhlhegh .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#uhodhlhegh .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#uhodhlhegh .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#uhodhlhegh .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#uhodhlhegh .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#uhodhlhegh .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#uhodhlhegh .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#uhodhlhegh .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#uhodhlhegh .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#uhodhlhegh .gt_left {
  text-align: left;
}

#uhodhlhegh .gt_center {
  text-align: center;
}

#uhodhlhegh .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#uhodhlhegh .gt_font_normal {
  font-weight: normal;
}

#uhodhlhegh .gt_font_bold {
  font-weight: bold;
}

#uhodhlhegh .gt_font_italic {
  font-style: italic;
}

#uhodhlhegh .gt_super {
  font-size: 65%;
}

#uhodhlhegh .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#uhodhlhegh .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#uhodhlhegh .gt_indent_1 {
  text-indent: 5px;
}

#uhodhlhegh .gt_indent_2 {
  text-indent: 10px;
}

#uhodhlhegh .gt_indent_3 {
  text-indent: 15px;
}

#uhodhlhegh .gt_indent_4 {
  text-indent: 20px;
}

#uhodhlhegh .gt_indent_5 {
  text-indent: 25px;
}

#uhodhlhegh .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#uhodhlhegh div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
  <table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="pop_Americas">pop_Americas</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="lifeExp_Americas">lifeExp_Americas</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="pop_Europe">pop_Europe</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="lifeExp_Europe">lifeExp_Europe</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="country">country</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="pop_Americas" class="gt_row gt_right">1138101</td>
<td headers="lifeExp_Americas" class="gt_row gt_right">69.465</td>
<td headers="pop_Europe" class="gt_row gt_right">NA</td>
<td headers="lifeExp_Europe" class="gt_row gt_right">NA</td>
<td headers="country" class="gt_row gt_center">Trinidad and Tobago</td></tr>
    <tr><td headers="pop_Americas" class="gt_row gt_right">2531311</td>
<td headers="lifeExp_Americas" class="gt_row gt_right">72.262</td>
<td headers="pop_Europe" class="gt_row gt_right">NA</td>
<td headers="lifeExp_Europe" class="gt_row gt_right">NA</td>
<td headers="country" class="gt_row gt_center">Jamaica</td></tr>
    <tr><td headers="pop_Americas" class="gt_row gt_right">NA</td>
<td headers="lifeExp_Americas" class="gt_row gt_right">NA</td>
<td headers="pop_Europe" class="gt_row gt_right">271192</td>
<td headers="lifeExp_Europe" class="gt_row gt_right">78.950</td>
<td headers="country" class="gt_row gt_center">Iceland</td></tr>
    <tr><td headers="pop_Americas" class="gt_row gt_right">NA</td>
<td headers="lifeExp_Americas" class="gt_row gt_right">NA</td>
<td headers="pop_Europe" class="gt_row gt_right">692651</td>
<td headers="lifeExp_Europe" class="gt_row gt_right">75.445</td>
<td headers="country" class="gt_row gt_center">Montenegro</td></tr>
  </tbody>
  
  
</table>
</div>
gapminder_1997 |>
  tab_header(
    title = "Fewer people, longer lives"
  ) |>
  cols_label(
    pop_Europe = "Iceland",
    lifeExp_Europe = "Montenegro",
    pop_Americas = "Jamaica",
    lifeExp_Americas = "Trinidad and Tobago"
  ) |>
  fmt_number(
    columns = c(pop_Europe, pop_Americas),
    decimals = 0
  ) |>
  fmt_number(
    columns = c(lifeExp_Europe, lifeExp_Americas),
    decimals = 1
  ) |>
  tab_spanner(
    label = "Europe",
    columns = c(pop_Europe, lifeExp_Europe)
  ) |>
  tab_spanner(
    label = "Americas",
    columns = c(pop_Americas, lifeExp_Americas)
  ) |>
  tab_source_note(
    source_note = "Data from gapminder"
  ) |>
  tab_footnote(
    footnote = "Skál!",
    locations = cells_body()
  )
Fewer people, longer lives
Americas Europe country
Jamaica Trinidad and Tobago Iceland Montenegro
1 1,138,101 1 69.5 1 NA 1 NA Trinidad and Tobago1
1 2,531,311 1 72.3 1 NA 1 NA Jamaica1
1 NA 1 NA 1 271,192 1 79.0 Iceland1
1 NA 1 NA 1 692,651 1 75.4 Montenegro1
Data from gapminder
1 Skál!

Submission

To submit your assignment:

  • Change the author name to your name in the YAML portion at the top of this document
  • Render your document to html and publish it to RPubs.
  • Submit the link to your Rpubs document in the Brightspace comments section for this assignment.
  • Click on the “Add a File” button and upload your .qmd file for this assignment to Brightspace.

Grading Rubric

Item
(percent overall)		 100% - flawless 67% - minor issues 33% - moderate issues 0% - major issues or not attempted
Narrative: typos and grammatical errors
(7%)
Document formatting: correctly implemented instructions
(7%)
Accuracy of replicated image as a gt table
(78% )
Submitted properly to Brightspace
(8%)		 NA NA You must submit according to instructions to receive any credit for this portion.