Publications by TJLee
Document
05-18-In-class exercises-3 TJLee 2020-05-18 library(leaflet) m <- leaflet() %>% addTiles() %>% addMarkers(lng=120.219722, lat=22.996667, popup="NCKU") %>% addMarkers(lng=120.218722, lat=23.005000, popup="芯恬也breakfast")%>% addMarkers(lng=120.219006, lat=23....
53 sym R (429 sym/1 pcs)
Document
05-11-In-class exercises-4 TJLee 2020-05-17 # # # library(animation) library(gganimate) ## Loading required package: ggplot2 #跑了這動畫跑非常久，不得以參考KY同學的將張數下修 Brownian <- function(n = 11, pause = 0.05, nIter = 64, ...) { x = rnorm(n) y = rnorm(n) i = 1 while (i <= nIter) { ...
113 sym R (1045 sym/8 pcs) 9 img
511HW3
05-11-hw-3 TJLee 2020-05-11 # # plot a color strip # plot.new() plot.window(xlim = c(0, 6), ylim = c(0, 6), asp = 1) my_cl <- c("indianred", "indianred", "indianred", "indianred", "indianred", "indianred", "indianred") my_o <- c("orange", "orange", "orange", "orange", "orange") my_y <- c("yellow", "yellow", "yellow", "yello...
38 sym R (1243 sym/2 pcs) 1 img
0427inclass5
04-27-In-class exercises-5 TJLee 2020-05-08 # # a case study - II # ##load data dta2 <- read.table("NCEA2007.txt", sep=":", quote="", h=T, as.is=T) ##dimension of dta2 dim(dta2) ## [1] 88 4 ## the abstract of dta2 str(dta2) ## 'data.frame': 88 obs. of 4 variables: ## $ Name : chr "Al-Madinah School" "Alfriston College" "Ambury ...
70 sym R (4076 sym/37 pcs)
0427inclass4
04-27-In-class exercises-4 TJLee 2020-05-08 # # a case study # ## keep the school names with white spaces dta <- read.csv("nzSchools.csv", as.is=2) ## Load & see data str(dta) ## 'data.frame': 2571 obs. of 6 variables: ## $ ID : int 1015 1052 1062 1092 1130 1018 1029 1030 1588 1154 ... ## $ Name: chr "Hora Hora School" "Mornin...
73 sym R (25656 sym/43 pcs)
Document
04-27-In-class exercises-4 TJLee 2020-05-08 # # a case study # ## keep the school names with white spaces dta <- read.csv("nzSchools.csv", as.is=2) ## Load & see data str(dta) ## 'data.frame': 2571 obs. of 6 variables: ## $ ID : int 1015 1052 1062 1092 1130 1018 1029 1030 1588 1154 ... ## $ Name: chr "Hora Hora School" "Mornin...
72 sym R (24619 sym/41 pcs)
Document
04-27-In-class exercises-3 TJLee 2020-05-06 # # Cushings example # library(pacman) #load &see pacman::p_load(MASS, tidyverse) help(Cushings) ## starting httpd help server ... done ##First,understand data head(Cushings) ## Tetrahydrocortisone Pregnanetriol Type ## a1 3.1 11.70 a ## a2 3.0 ...
65 sym R (8171 sym/28 pcs)
Document
04-27-In-class exercises-1 TJLee 2020-05-04 #load & see library(datasets) dta <- datasets::ChickWeight head(dta) ## weight Time Chick Diet ## 1 42 0 1 1 ## 2 51 2 1 1 ## 3 59 4 1 1 ## 4 64 6 1 1 ## 5 76 8 1 1 ## 6 93 10 1 1 #understand data help(Chick...
58 sym R (4449 sym/8 pcs) 2 img
Document
04-27-In-class exercises-2 TJLee 2020-04-28 #search() 查詢目前所有被載入的套件列表 search() ## [1] ".GlobalEnv" "package:stats" "package:graphics" ## [4] "package:grDevices" "package:utils" "package:datasets" ## [7] "package:methods" "Autoloads" "package:base" #lapply(search(), ls) 列出各套件裡�...
56 sym R (1192 sym/9 pcs)
Document
04-20-In-class exercises-6 TJLee 2020-04-26 ## ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics library(ggplot2) ?ggplot2 ## starting httpd help server ... done ##load &see library(gapminder) ## data(gapminder) str(gapminder) ## Classes 'tbl_df', 'tbl' and 'data.frame': 1704 obs. of 6 variables: ## $ count...
76 sym R (3064 sym/13 pcs) 6 img