In tpemartin/econDV: 國立臺北大學資料視覺化課程套件

key請由課綱選： 新課綱：https://docs.google.com/document/d/1o8UQIpy6GFqCgfUxc47fqyAPuEYrk3FLd7bB1EhYMVg

• 圖片一定要有Title, subtitle, 及資料來源。

knitr::opts_chunk$set(echo = TRUE, eval=F)
library(drake)
library(econDV)
library(dplyr)

makecondition

library(dplyr)
library(tidyr)
library(stringr)
library(googledrive)
library(readr)
library(ggplot2)
library(econDV)
econDV::setup_chinese(need2Knit = F)
rprojroot::is_rstudio_project -> .pj
.pj$make_fix_file() -> .root

imageFolder <- file.path(.root(),"img")
dataFolder <- file.path(.root(),"data")

if(!dir.exists(imageFolder)) dir.create(imageFolder)
if(!dir.exists(dataFolder)) dir.create(dataFolder)

data

datadownload = {
  # 下載google drive檔案 share link 到本機project folder, 本以graph4week.csv名稱儲存
  googledrive::drive_download(
    file_in("https://drive.google.com/file/d/18L7z13xz_Rn_bYcQBhZR9wLxGZFgeO9e/view?usp=sharing"),
    path=file.path(dataFolder,"graph4week1.csv"),
    overwrite = T
  )

  # 自本機project folder裡引入graph4week.csv為graph4week1 data frame物件
  graph4week1 <- read_csv(
    file.path(dataFolder,"graph4week1.csv")
  )
}

graph

myggplot = {

}

export

save_ggplot = {

  ggsave(
    plot=myggplot,
    filename=file.path(imageFolder, "myPlot.svg"),
    width = 8,
    height = 5
  )
}

tpemartin/econDV documentation built on Feb. 12, 2021, 5:56 a.m.