In emajortaiwan/emajorDV:

knitr::opts_chunk$set(echo = TRUE)
library(drake)
library(purrr)
library(emajorDV)
purl_drakePlan(
  filename="/Users/martin/Github/emajorDV/myplan.Rmd",
  plan_name="myplan"
)

makecondition

library(readr)
library(dplyr)
library(ggplot2)

data

downloaddata = {
  library(readr)
  taiwanStatistics <- read_csv(
    file_in("https://www.dropbox.com/s/d5v23cab2b74y5i/Taiwan%E5%9C%8B%E6%B0%91%E6%89%80%E5%BE%97%E7%B5%B1%E8%A8%88%E5%B8%B8%E7%94%A8%E8%B3%87%E6%96%99.csv?dl=1"),
locale = locale(encoding = "BIG5"), skip = 3)
  taiwanStatistics
}

dataReady = {
  downloaddata %>%
  rename(
    "年"="X1"
  ) %>%
  mutate(
    across(
      everything(),
      as.numeric
    )
  )
}

graph

gg_taiwanEconomicGrowth = {
  dataReady %>%
    ggplot()+
    geom_line(
      aes(
        x=年, y=`經濟成長(%)`
      )
    )
}

gg_taiwanEconomicGrowth

export

save_gg_taiwanEconomicGrowth = {
  ggsave(
    file_out("taiwanEconomicsGrowth.svg"),
    gg_taiwanEconomicGrowth,
    width=8,
    height=5
  )

}

emajortaiwan/emajorDV documentation built on Sept. 14, 2020, 8:04 p.m.