#Setting
pacman::p_load(tidyverse, gridExtra, grid, png, padr, 
               ggridges, ggalt, lattice, scales, lubridate)
theme_set(theme_bw())

1

#read data
dt1<-read.table("C:/Users/user/Dropbox/1062-Data_manage/0521/tw2us.txt",header = F)

#create year variable
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)

#combine it
dt1<-data.frame(dt1,year)

knitr::kable(head(dt1))
V1 year
3637 1950
2553 1955
4564 1960
6780 1965
12029 1970
12250 1975

重新改過圖的間距，原先的圖片間距很奇怪。在1990年以前數量是不斷上升的，但是1995之後開始急遽下降。

#draw it 
ggplot(dt1,aes(x=year,y=V1)) + geom_line(lwd = rel(1.2)) +
  labs(x="Year",y="Number of students") +
  geom_vline(xintercept = c(1990), linetype = "dotted")

2

成大、梅嶺、安平古堡

library(ggmap)
u3 <- c("National Cheng Kung University","Meiling Scenic Area","Anping Castle")
u3c <- data.frame(geocode(u3), uni = abbreviate(u3))
tw0 <- get_map(location = "Tainan", zoom = 10, maptype = "roadmap")
ggmap(tw0) +
 geom_point(data = u3c, aes(x = lon, y = lat), size = 5, color = "pink") +
 geom_point(data = u3c, aes(x = lon, y = lat), size = 3, color = "violet") +
 geom_text(data = u3c, aes(x = lon, y = lat, label = uni), size = rel(2), 
           vjust = 0, hjust = 0) +
 labs(x = "Longitude", y = "Latitude")

3

library(rvest)

# 神偷奶爸3
fL <- "https://www.imdb.com/title/tt3469046/?ref_=nv_sr_1"

# extract content of web page
film_ts <- read_html(fL)

# extract rating
film_ts %>%
 html_node("strong span") %>%
 html_text() %>%
 as.numeric()
## [1] 6.3
# extract cast
film_ts %>%
 html_nodes("#titleCast .itemprop span") %>%
 html_text()
##  [1] "Steve Carell"     "Kristen Wiig"     "Trey Parker"     
##  [4] "Miranda Cosgrove" "Dana Gaier"       "Nev Scharrel"    
##  [7] "Pierre Coffin"    "Steve Coogan"     "Julie Andrews"   
## [10] "Jenny Slate"      "Michael Beattie"  "Andy Nyman"      
## [13] "Adrian Ciscato"   "Brian T. Delaney" "Katia Saponenko"