From a8151c0271c98f6157bc4a1171cd99fb7db3a6e3 Mon Sep 17 00:00:00 2001
From: Shreya Ravilla <shreya.ravilla248@Shreyas-MacBook-Air.local>
Date: Mon, 17 Apr 2023 22:40:36 -0700
Subject: [PATCH] plotly

---
 .DS_Store                                     | Bin 0 -> 6148 bytes
 .gitignore                                    |   4 ++
 lab2-visualization.Rproj                      |  13 ++++
 lab2.Rmd                                      |  62 +++++++++++++++++-
 ...m2018-dataset-crosstabs-all-countries.xlsx | Bin 0 -> 165 bytes
 5 files changed, 78 insertions(+), 1 deletion(-)
 create mode 100644 .DS_Store
 create mode 100644 .gitignore
 create mode 100644 lab2-visualization.Rproj
 create mode 100644 ~$wgm2018-dataset-crosstabs-all-countries.xlsx

diff --git a/.DS_Store b/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..5008ddfcf53c02e82d7eee2e57c38e5672ef89f6
GIT binary patch
literal 6148
zcmeH~Jr2S!425mzP>H1@V-^m;4Wg<&0T*E43hX&L&p$$qDprKhvt+--jT7}7np#A3
zem<@ulZcFPQ@L2!n>{z**<q8>++&mCkOWA81W14cNZ<zv;LbK1Poaz?KmsK2CSc!(
z0ynLxE!0092;Krf2c+FF_Fe*7ECH>lEfg7;MkzE(HCqgga^y>{tEnwC%0;vJ&^%eQ
zLs35+`xjp>T0<F0fCPF1$Cyrb|F7^5{eNG?83~ZUUlGt@xh*qZDeu<Z%US-OSsOPv
j)R!Z4KLME7ReXlK;d!wEw5GODWMKRea10D2@KpjYNUI8I

literal 0
HcmV?d00001

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5b6a065
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/lab2-visualization.Rproj b/lab2-visualization.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/lab2-visualization.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/lab2.Rmd b/lab2.Rmd
index c4df28f..1ba3663 100644
--- a/lab2.Rmd
+++ b/lab2.Rmd
@@ -1,10 +1,12 @@
 ---
 title: "lab2"
-author: "Gavin Martinez, Brandon Kim"
+author: "Gavin Martinez, Brandon Kim, Shreya Ravilla"
 date: "2023-04-13"
 output: html_document
 ---
 
+## Part 1
+
 **1. While there are certainly issues with this image, do your best to tell the story of this graph in words. That is, what is this graph telling you? What do you think the authors meant to convey with it?**
 
 The graph seems to show a plot of proportions of people who believe vaccines are safe per country. And each the plot seems to be separated by region, with certain countries being labeled. For each plot, there is a line within the plots, showing the median per each region. 
@@ -37,6 +39,7 @@ knitr::opts_chunk$set(warning = FALSE, message = FALSE)
 library(tidyverse)
 library(readxl)
 library(ggthemes)
+library(plotly)
 ```
 
 ```{r readxl}
@@ -80,3 +83,60 @@ ggplot(plt, aes(x = prop, y = region, fill = region)) +
   theme(legend.position = "none") 
 ```
 
+## Part 2
+
+Trust in medical and health advice from government or doctors and nurses by region; p. 72
+```{r}
+med <- tibble(country = toupper(c("World", "Eastern Africa", "Central Africa", "North Africa", "Southern Africa", "Western Africa", "Central America & Mexico", "Northern America", "South America", "Central Asia", "East Asia", "Southeast Asia", "South Asia", "Middle East", "Eastern Europe", "Northern Europe", "Southern Europe", "Western Europe", "Austrailia & New Zealand")),
+              med_workers = c(.84, .83, .57, .79, .69, .78, .8, .92, .74, .88, .82, .84, .87, .82, .81, .93, .91, .95, .97),
+              gov = c(.76, .82, .53, .73, .64, .71, .74, .61, .66, .86, .77, .79, .84, .73, .53, .77, .65, .78, .86))
+               
+```
+
+```{r}
+med <- med |>
+  mutate(med_workers = med_workers * 100,
+         gov = gov * 100)
+
+head(med)
+```
+
+
+```{r}
+med2 <- df_world %>%
+  filter(Q21 == 1 | Q21 == 2,
+         Q22 == 1 | Q22 == 2) %>%
+  group_by(WP5) %>%
+  summarize(gov = sum(Q21 %in% c(1, 2)), 
+            med_workers = sum(Q22 %in% c(1, 2)),
+            Regions_Report)
+
+```
+
+```{r}
+#https://plotly.com/r/bar-charts/
+med$country <- factor(med$country, levels = med[["country"]])
+
+fig <- plot_ly(med, 
+               x = ~country, 
+               y = ~med_workers, 
+               type = 'bar', 
+               name = 'Medical Workers',
+               marker = list(color = "steelblue"))
+
+fig <- fig |>
+  add_trace(y = ~gov, 
+            name = 'Government', 
+            marker = list(color = "orange"))
+
+fig <- fig |> layout(title = "Trust in Medical and Health Advice from Government or Doctors and Nurses by Region",
+                     xaxis = list(title = "Region", 
+                                  tickangle = -45),
+         yaxis = list(title = "Percentage"),
+         margin = list(b = 100),
+         barmode = 'group')
+
+fig
+```
+
+
diff --git a/~$wgm2018-dataset-crosstabs-all-countries.xlsx b/~$wgm2018-dataset-crosstabs-all-countries.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..5a932052db2a5d1e1d32a453f59be330b8becc3b
GIT binary patch
literal 165
zcmWgj%}g%JFV0UZQSeVo%S=vH2rW)6QXm9G8GIQs8Il=_81fm4fjEt!gh7G9A4sQx
R#Z!U2P@qgIP=x};5CA3W7%cz*

literal 0
HcmV?d00001