Analysis Results

Question 1: Total Slaves Imported to the United States

us_total <- combined %>%
  filter(is_us == TRUE) %>%
  summarise(total = sum(slaves_disembarked, na.rm = TRUE))

print(paste("Total slaves imported to US:", us_total$total))
## [1] "Total slaves imported to US: 439667"

Question 2: Proportion of Slaves from Africa to the US

africa_total <- trans_clean %>%
  summarise(total = sum(slaves_embarked, na.rm = TRUE))

proportion <- us_total$total / africa_total$total

print(paste("Proportion of slaves from Africa to US:", round(proportion * 100, 2), "%"))
## [1] "Proportion of slaves from Africa to US: 4.16 %"

Question 3

## Question 4

## Question 5

## # A tibble: 20 × 4
##    decade nationality       voyages total_slaves
##     <dbl> <chr>               <int>        <dbl>
##  1   1510 Portugal / Brazil       2          624
##  2   1510 0                       9          223
##  3   1510 Spain / Uruguay         8          144
##  4   1520 Spain / Uruguay         3         1043
##  5   1520 0                       3          597
##  6   1530 0                       9         1777
##  7   1530 Portugal / Brazil       3          919
##  8   1530 Spain / Uruguay         1          224
##  9   1540 0                      61        19385
## 10   1540 Portugal / Brazil       1          160
## 11   1550 0                      48        16949
## 12   1550 Portugal / Brazil       2          718
## 13   1560 0                      48        11791
## 14   1560 Great Britain          17         1749
## 15   1560 Spain                   1          400
## 16   1560 Spain / Uruguay         2          295
## 17   1560 Portugal / Brazil       1          176
## 18   1570 0                      88        29608
## 19   1570 Portugal / Brazil       4          856
## 20   1570 France                  2          104

##### Summary

This analysis examined the Trans-Atlantic and Intra-American slave trade datasets spanning from the 1500s to the 1800s. Key findings include:

  • A total of 439,667 enslaved people were imported to the United States, representing approximately 4.16% of all slaves taken from Africa during this period.

  • Slave imports to the US peaked in the [look at your Q3 graph] decade, with the majority arriving in [look at your Q4 graph - which regions had the most].

  • The primary countries participating in the slave trade from Africa were [look at your Q5 table - list top 3-5 countries].

  • This data reveals the massive scale and human tragedy of the transatlantic slave trade, with millions of people forcibly removed from Africa and transported under brutal conditions.

The analysis demonstrates how data can help us understand historical atrocities and their lasting impact on modern society.