20211129HW

##1 The distribution of personal disposable income in Taiwan in 2015 has a story to tell. Revise the following plot to enhance that message.

dta1 <- read.csv("C:/Users/user/Downloads/income_tw.csv",header = T)

```r
library(ggplot2)

library(ggplot2)
  ggplot(dta1, aes(x=Count/10000 , y=reorder(Income,Count))) +
  geom_point(size=rel(1)) +
  labs(x="Number of persons (x 10,000)", 
       y="",
       title = "Distribution of personal disposable income in Taiwan (2015)")+
  theme_minimal()

##3 Use the free recall data to improve on the figure

# list.files
fls <-list.files(path = "C:/Users/user/Desktop/Downloads/Murd62", pattern = "fr")

# give it path
fL <- paste0("C:/Users/user/Desktop/Downloads/Murd62", fls)

# 
pacman::p_load(stringr, dplyr,purrr)


# 計算每個檔案最大欄為長度
## 由於不確定每個檔案的column數，透過str_length計算欄位長度

##4 Sarah Leo at the Economist magazine published a data set to accompany the story about how scientific publishing is dominated by men. The plot on the left panel below is the orignal graph that appeared in the article. Help her find a better plot.

dta1 <- read.csv("C:/Users/user/Downloads/Economist_women-research.csv",header = T)

pacman::p_load(tidyr)