Add files via upload

challenge02.R

@@ -0,0 +1,49 @@
+rm(list=ls())
+ls()
+
+install.packages("tidyverse")
+install.packages("ggplot2")
+install.packages("ggtheme")
+install.packages("ggthemr")
+install.packages("showtext")
+install.packages("sysfonts")
+install.packages("showtextdb")
+
+library(showtext)
+library(sysfonts) 
+library(tidyverse)
+library(ggplot2)
+library(ggthemes)
+
+
+font_add_google(name = "Roboto Condensed",   # Name of the font as it is listed on Google fonts
+                family = "roboto") # Name we'll use in theme()
+
+challenge02 <- readr::read_csv("https://raw.githubusercontent.com/ajstarks/dubois-data-portraits/master/challenge/2024/challenge02/data.csv")
+
+
+
+plot <- ggplot(data=challenge02,aes(x=Year,y=Free))+
+  geom_line()+
+  theme_minimal()+
+  labs(
+    title = "SLAVES AND FREE NEGROES.",
+    caption = "Source: Du Bois Data Portaits") +
+  theme(#text = element_text('mono'),
+    #axis.title.x=element_blank(),
+    #axis.text.x=element_blank(),
+    #panel.background = element_blank(),
+    plot.title = element_text(hjust = 0.5, size=23, face = "bold"),
+    plot.background = element_rect(fill = 'cornsilk')) +
+  scale_x_reverse(#expand = c(0, 0), 
+                    breaks = seq(0, 1870, 10), 
+                    limits = c(1870,1790)) +
+  scale_y_reverse(#expand = c(0, 0), 
+                    breaks = seq(0, 1.8, 0.5), 
+                    limits = c(1.8, 0.5)) +
+  coord_flip() 
+
+
+plot
+
+ggsave("c02.png", width = 8, height = 20, units = "cm")