Project_Blog

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
## 
## Attaching package: 'plotly'
## 
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## 
## The following object is masked from 'package:graphics':
## 
##     layout

GRAPH ONE: LABOR FORCE BY ECONOMIC SECTOR OVER TIME (Plotly animation)

## 
## Attaching package: 'reshape2'

## The following object is masked from 'package:tidyr':
## 
##     smiths

GRAPH TWO: GENERAL ECONOMIC DATA BY REPUBLIC (Shiny)

Shiny applications not supported in static R Markdown documents

## Warning: Using an external vector in selections was deprecated in tidyselect 1.1.0.
## ℹ Please use `all_of()` or `any_of()` instead.
##   # Was:
##   data %>% select(columns)
## 
##   # Now:
##   data %>% select(all_of(columns))
## 
## See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

GRAPH THREE: NMP (official vs Khanin’s estimate) OVER TIME

GRAPH THREE_a: GNP (CIA Estimate) OVER TIME

GRAPH FIVE: DISPARITIES IN PARTY MEMBERSHIP AMONG ETHNICITIES

## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_smooth()`).

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_boxplot()`).

## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_smooth()`).

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_boxplot()`).

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_boxplot()`).

GRAPH SIX: ETHNO-NATIONALIST DEMONSTRATIONS, 1987-1992 (Now with Shiny!)

Shiny applications not supported in static R Markdown documents

## Warning: NAs introduced by coercion
## Warning: NAs introduced by coercion
## Warning: NAs introduced by coercion
## Warning: NAs introduced by coercion

GRAPH SEVEN: WESTERN VS SOVIET ESTIMATES OF GNP, COMPARED TO HOUSEHOLD GOVT BOND OWNERSHIP

section$decade<-cut(section$Year,
                    breaks = c(-Inf, 1940, 1950, 1960, 1970, 1980, Inf),
                    labels = c("1930s", "1940s", "1950s", "1960s", "1970s", "1980s"))

section2<-section[-1,]%>%
  group_by(decade)%>%
  summarize(diffGDPest = mean((R-W)/R),
            diffPropHouseBond = mean(HGB/TGB))


graphTwo<-ggplot(section2)+
  geom_col(position = "dodge", aes(x = decade, y = diffGDPest, fill = diffPropHouseBond))+
  labs(title = "Proportional difference of Soviet estimate to Western estimate of Soviet GNP",
       subtitle = "By decade",
       y = "Proportional difference in estimated GNP",
       fill = "Proportion of household-owned state bonds")
graphTwo

GRAPH EIGHT: CAPITAL STOCK SOVIET VS WESTERN ESTIMATES