pacman::p_load(tidyverse, gridExtra, grid, png, padr,
ggridges, ggalt, lattice, scales, lubridate)
theme_set(theme_bw())
date & times
dta<-read.table("C:/Users/ncku/Documents/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)
knitr::kable(head(dta))
| 3637 |
1950 |
| 2553 |
1955 |
| 4564 |
1960 |
| 6780 |
1965 |
| 12029 |
1970 |
| 12250 |
1975 |
ggplot(dta,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")
Maps
library(leaflet)
## Warning: package 'leaflet' was built under R version 3.4.4
m <- leaflet() %>%
addTiles() %>%
addMarkers(lng = 120.2239210, lat = 22.9846240, popup = "同心包子")%>%
addMarkers(lng = 120.2036130, lat = 22.9990270, popup = "葡吉食品")%>%
addMarkers(lng = 120.1990140, lat = 22.9899980, popup = "甜又鮮飲料")
m
The Web
library(rvest)
## Warning: package 'rvest' was built under R version 3.4.4
## Loading required package: xml2
## Warning: package 'xml2' was built under R version 3.4.4
##
## Attaching package: 'rvest'
## The following object is masked from 'package:purrr':
##
## pluck
## The following object is masked from 'package:readr':
##
## guess_encoding
## Avengers: Infinity War
fL <- fL <- "https://www.imdb.com/title/tt4154756/"
# extract content of web page
film_ts <- read_html(fL)
# extract rating
film_ts %>%
html_node("strong span") %>%
html_text() %>%
as.numeric()
## [1] 8.8
# extract cast
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"