knitr::opts_chunk$set(echo = FALSE, cache = T, warning = F, message = F, 
  fig.showtext=T)
library(ggplot2)
library(showtext)
sysfonts::font_add_google('Noto Sans TC')
showtext_auto()
theme_set(
  theme(
    text=element_text(family = "Noto Sans TC")
  )+
    theme_classic()
)

source("graph.R")

台灣圖像

以#開頭表示heading(標題效果)從一個#到六個#共有6種標題大小可用。

graph1= readRDS("graph1.Rds")
graph1


tpemartin/econDV2 documentation built on Aug. 6, 2023, 11:46 p.m.