DM 0521

Dates & time

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.4.4

dta<-read.table("tw_to_us.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)
dta<-data.frame(dta,year)

dta1_1 <- dta[1:9,]
dta1_2 <- dta[10:23,]

#1990年以前人數持續上升
ggplot(dta1_1,aes(x=year,y=V1))+geom_line(lwd = rel(1.2)) +
  labs(x="Year",y="students")

#1995年以後人數大幅下滑
ggplot(dta1_2,aes(x=year,y=V1))+geom_line(lwd = rel(1.2)) +
  labs(x="Year",y="students")

Maps

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.4.4

m <- leaflet() %>%
 addTiles() %>%
 addMarkers(lng = 120.196958, lat = 22.998650, popup = "鬍鬚忠牛肉湯")%>%
 addMarkers(lng = 120.197444, lat = 22.993833, popup = "邱家小卷米粉")%>%
 addMarkers(lng = 120.201437, lat = 22.998406, popup = "Lovi's巷弄手工雪糕舖")
 m

The Web

library(rvest)

## Warning: package 'rvest' was built under R version 3.4.4

## Warning: package 'xml2' was built under R version 3.4.4

# Flipped by Rob Reiner
fL <- "https://www.imdb.com/title/tt0817177/"
film_ts <- read_html(fL)

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

## [1] 7.7

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

##  [1] "Madeline Carroll"    "Callan McAuliffe"    "Rebecca De Mornay"  
##  [4] "Anthony Edwards"     "John Mahoney"        "Penelope Ann Miller"
##  [7] "Aidan Quinn"         "Kevin Weisman"       "Morgan Lily"        
## [10] "Ryan Ketzner"        "Gillian Pfaff"       "Michael Boza"       
## [13] "Beau Lerner"         "Jacquelyn Evola"     "Taylor Groothuis"