by

Where communities thrive


  • Join over 1.5M+ people
  • Join over 100K+ communities
  • Free without limits
  • Create your own community
People
Activity
    asus50901
    @asus50901
    三個都可以看function 的原始碼
    Martin老師
    @tpemartin
    outer <-     
      rbind( # 外圍
        c(1,5),
        c(2,1),
        c(5,1),
        c(5,5),
        c(1,5)) # 必需自行輸入起點close it
    
    hole <-
      rbind( # 洞
        c(2,4),
        c(3,2),
        c(4,3),
        c(2,4))  # 必需自行輸入起點close it
    
    outer2 <- outer + 12
    hole2 <- hole + 12
    emilyluckey
    @emilyluckey
    finalplot.png
    Martin老師
    @tpemartin
    download.file("http://data.moi.gov.tw/MoiOD/System/DownloadFile.aspx?DATA=72874C55-884D-4CEA-B7D6-F60B0BE85AB0",
                  destfile="tw.zip")
    unzip("tw.zip",exdir="taiwan")
    read_sf("taiwan/COUNTY_MOI_1080726.shp")-> sf_taiwan
    Martin老師
    @tpemartin
    load(url("https://www.dropbox.com/s/uvco1te2kbs6o01/MRT_Taipei.Rda?dl=1"))
    取得BL
    sf_mrtStops_tpe %>%
      filter(
        str_detect(經過路線,"BL")
      ) -> sf_mrtStops_tpe_BL
    
    sf_mrtStops_BL %>% View
    取得站號
    sf_mrtStops_BL %>%
      mutate(
          站號=str_extract(經過路線,"(?<=(BL))[:digit:]+")
                ) %>%
      arrange(站號) -> sf_mrtStops_BL
    
    sf_mrtStops_BL %>% View
    Martin老師
    @tpemartin
    畫圖
    sf_northTaiwan %>%
      ggplot()+geom_sf()+
      geom_sf(
        data=sf_mrtStops_BL
      )+
      coord_sf(
        xlim=c(121.4,121.7),
        ylim=c(24.9,25.1)
      ) -> gg_tpe_mrt
    gg_tpe_mrt
    asus50901
    @asus50901
    JPisland.jpeg
    Chen-Ying-Chen
    @Chen-Ying-Chen
    永和四號公園.png
    shuyulin97
    @shuyulin97
    Imgur
    Hsinyung
    @Hsinyung
    00001d.png
    godgodgod11101
    @godgodgod11101
    mapSSairport.png
    shihhanChiu
    @shihhanChiu
    000037.png
    sunnyzeng
    @sunnzeng
    dzsh.png
    Ching-Hsuan
    @Ching-Hsuan
    plot_zoom_png (1)
    KaEDe1106
    @KaEDe1106
    image.png
    emilyluckey
    @emilyluckey
    捲尾家.png
    LINYICHI017
    @LINYICHI017
    Martin老師
    @tpemartin

    ```var listenArea=document.getElementById('usMap')
    var actionArea=document.getElementById('usNews')

    function giveNews(){
    actionArea.innerHTML="China’s successful repression in Tibet provides a model for Xinjiang"
    }

    listenArea.addEventListener("mouseover",giveNews)

    var listenArea=document.getElementById('usMap')
    var actionArea=document.getElementById('usNews')
    
    function giveNews(){
        actionArea.innerHTML="China’s successful repression in Tibet provides a model for Xinjiang"
    }
    
    listenArea.addEventListener("mouseover",giveNews)
    asus50901
    @asus50901
    source("https://www.dropbox.com/s/mdx4777ugnluspz/webApplications.R?dl=1", encoding = "UTF-8")
    LINYICHI017
    @LINYICHI017
    var targetObj=document.getElementById("myObject").contentDocument
    var uberEl=targetObj.getElementById('GRID.rastergrob.100.1')
    LINYICHI017
    @LINYICHI017

    var myAnswerArea = document.getElementById("answer")

    function giveAnswer(){
    myAnswerArea.innerHTML = "好棒棒"
    }

    uberEl.addEventListener("mouseover", giveAnswer)

    webapp_project_create(dirlib="./ch7_final", overwrite = T)
    Martin老師
    @tpemartin
    var jd=document.getElementById('json1').innerHTML
    var jsd=JSON.parse(jd)
    Martin老師
    @tpemartin
    servr::httd(dir="./ch7_final/webProjectTemplate", port="8888")
    browseURL("http://localhost:8888/rmdTemplate.html")
    Martin老師
    @tpemartin
    Martin老師
    @tpemartin
    html_create_bootstrap("myControl.html",dir="./ch7_final/webProjectTemplate")
    Martin老師
    @tpemartin
    <style>
    body {
    background-color: transparent;
    }
    </style>