In tpemartin/econDV1091:

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)

xfun::download_file("https://www.dropbox.com/s/7b3nbgfx5bgft8g/drake_annotationmaps.Rdata?dl=1")
load("drake_annotationmaps.Rdata")

drake$.updateCache()
drake$source_plan()
drake$makePlan()

getwd() # working directory

scales::rescale(
  dpp,
  from=c(0,1),
  to=c(-1,1)
)

drake$loadTarget$electionData0()

dppRange =  round(range(electionData0$dpp),1)

dppRange

rescale(
  dpp,
  from=c(0.3, 0.7),
  to=c(-1,1)

)

drake$loadTarget$list_ranges()
electionData0 %>%
    mutate(
      dpp_rescaled=
        scales::rescale(
          electionData0$dpp,
          from=list_ranges$fromRange,
          to=list_ranges$toRange)
        ) -> electionData

colorspace::choose_palette(gui="shiny")

colorspace::diverging_hcl(n = 12, h = c(247, 120), c = 100, l = c(30, 90), power = 1.5, register = "kmt_dpp")

scale_election = {


  colorspace::scale_fill_continuous_diverging(
    palette="kmt_dpp") -> scale_fill_election 


  scale_fill_election
}

ggsf_election <- {
  ggplot()+
    geom_sf(
      data=electionData,
      mapping=aes(fill=dpp_rescaled), size=0.2, color="white",
      inherit.aes = FALSE
    )+
    scale_election+
    theme_void()
}

ggsf_election

drake$loadTarget$ggmap_newTaipeiTonerLite()
gg_electionComplete <- 
  ggmap_newTaipeiTonerLite +
    geom_sf(
      data = electionData,
      mapping = aes(fill = dpp_rescaled), size = 0.2, color = "white", alpha=0.7, 
      inherit.aes = FALSE
    ) +
    scale_election +
    theme_void()

gg_electionComplete

breaksPal = seq(
    from=list_ranges$toRange[[1]],
    to=list_ranges$toRange[[2]],
    length.out=5
  )
breaksPal

labelsPal = seq(
    from=list_ranges$fromRange[[1]],
    to=list_ranges$fromRange[[2]],
    length.out=5
  )
labelsPal

scale_election = {

  breaksPal = seq(
    from=list_ranges$toRange[[1]],
    to=list_ranges$toRange[[2]],
    length.out=5
  )

  labelsPal = seq(
    from=list_ranges$fromRange[[1]],
    to=list_ranges$fromRange[[2]],
    length.out=5
  )

  colorspace::scale_fill_continuous_diverging(
    palette="kmt_dpp") -> scale_fill_election 

  scale_fill_election$breaks = breaksPal
  scale_fill_election$labels = labelsPal
  scale_fill_election$name = "民進黨得票率"

  scale_fill_election
}

gg_electionComplete <- 
  ggmap_newTaipeiTonerLite +
    geom_sf(
      data = electionData,
      mapping = aes(fill = dpp_rescaled), size = 0.2, color = "white", alpha=0.7, 
      inherit.aes = FALSE
    ) +
    scale_election +
    theme_void()

gg_electionComplete

tpemartin/econDV1091 documentation built on Feb. 17, 2021, 6:37 a.m.