From 020e943010cd0b11b0dae3ddc14b55d906be6f01 Mon Sep 17 00:00:00 2001
From: Jing Miao <jingmiao@buffalo.edu>
Date: Tue, 17 Sep 2024 16:25:15 -0400
Subject: [PATCH] First Version of the third case study

---
 week_03/case_study_03.R | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/week_03/case_study_03.R b/week_03/case_study_03.R
index 0519ecb..eb0feae 100644
--- a/week_03/case_study_03.R
+++ b/week_03/case_study_03.R
@@ -1 +1,33 @@
- 
\ No newline at end of file
+install.packages("gapminder")
+
+library(ggplot2)
+library(gapminder)
+library(dplyr)
+
+gapminder
+str(gapminder)
+
+NoK_gapminder <- gapminder %>%
+  filter(country != "Kuwait")
+
+ggplot(NoK_gapminder, aes(x = lifeExp, y = gdpPercap, color = continent, size = pop/100000)) +
+  geom_point() +
+  theme_bw() +
+  scale_y_continuous(trans = "sqrt") +
+  facet_wrap(~year,nrow=1) +
+  labs(title = "Relationship between GDP and life expetation") + 
+  xlab("Life Expection (Year)") +
+  ylab("GDP (million $)")
+
+gapminder_weighted <- NoK_gapminder %>%
+  group_by(continent, year) %>%
+  summarize(gdpPercapweighted = weighted.mean(x = gdpPercap, w = pop), pop = sum(as.numeric(pop)))
+
+ggplot() +
+  geom_line(data = NoK_gapminder, aes(x = year, y = gdpPercap, color = continent, group = country)) +
+  geom_point(data = NoK_gapminder, aes(x = year, y = gdpPercap, color = continent, group = country)) +
+  geom_line(data = gapminder_weighted, aes(x = year, y = gdpPercapweighted))+
+  geom_point(data = gapminder_weighted, aes(x = year, y = gdpPercapweighted, size = pop/100000)) +
+  facet_wrap(~continent,nrow=1) +
+  theme_bw() +
+  labs()