MAP

TainanFood <- leaflet() %>%
 addTiles() %>%
 addMarkers(lng = 120.200213, lat = 22.994436, popup = "冰鄉") %>%
  addMarkers(lng = 120.190627, lat = 22.982696, popup = "阿銘") %>% 
  addMarkers(lng = 120.218918, lat = 23.005900, popup = "老友")
TainanFood

Dates & Times

dta <- read.table("data/tw2us.txt",header=F)
year<-c(1950,1955,1960,1965,1970,1975,1980,1985,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004)
dta1 <- data.frame(dta,year)
dta1_1 <- dta1[1:9,]
dta1_2 <- dta1[10:23,]
ggplot(dta1_1,aes(x=year,y=V1))+geom_line(lwd = rel(1.2)) +
  labs(x="Year",y="students")

ggplot(dta1_2,aes(x=year,y=V1))+geom_line(lwd = rel(1.2)) +
  labs(x="Year",y="students")

The Web

library(rvest)

# Avengers: Infinity War
fL <- "https://www.imdb.com/title/tt4154756/?ref_=nv_sr_5"

film_ts <- read_html(fL)

film_ts %>%
 html_node("strong span") %>%
 html_text() %>%
 as.numeric()

## [1] 8.8

film_ts %>%
 html_nodes("#titleCast .itemprop span") %>%
 html_text()

##  [1] "Robert Downey Jr."    "Chris Hemsworth"      "Mark Ruffalo"        
##  [4] "Chris Evans"          "Scarlett Johansson"   "Don Cheadle"         
##  [7] "Benedict Cumberbatch" "Tom Holland"          "Chadwick Boseman"    
## [10] "Zoe Saldana"          "Karen Gillan"         "Tom Hiddleston"      
## [13] "Paul Bettany"         "Elizabeth Olsen"      "Anthony Mackie"