Publications by TJLee
Document
04-20-In-class exercises-5 TJLee 2020-04-25 ##load & see (same code from lecture note ) library(ggalluvial) ## Loading required package: ggplot2 library(ggplot2) data <- read.csv("/Users/Tjlee/Desktop/weather/diabetes_mell.csv", header = T) head(data) ## SEQN RIAGENDR RIDRETH1 DIQ010 BMXBMI gender race diabetes BMI ## 1 51...
62 sym R (4187 sym/12 pcs) 3 img
Document
04-20-In-class exercises-4 TJLee 2020-04-25 # load & see data <- WWGbook::autism head(data) ## age vsae sicdegp childid ## 1 2 6 3 1 ## 2 3 7 3 1 ## 3 5 18 3 1 ## 4 9 25 3 1 ## 5 13 27 3 1 ## 6 2 17 3 3 str(data) ## 'data.frame': 612 ob...
63 sym R (3850 sym/20 pcs) 3 img
Document
04-20-In-class exercises-3 TJLee 2020-04-24 #load &see data <- datasets::USPersonalExpenditure head(data) ## 1940 1945 1950 1955 1960 ## Food and Tobacco 22.200 44.500 59.60 73.2 86.80 ## Household Operation 10.500 15.500 29.00 36.5 46.20 ## Medical and Health 3.530 5.760 9.71 14.0 21.10 ## Personal Care ...
58 sym R (1964 sym/11 pcs) 1 img
Document
04-20-In-class exercises-1 TJLee 2020-04-22 ##實際把資料列出來看看。 head(women) ## height weight ## 1 58 115 ## 2 59 117 ## 3 60 120 ## 4 61 123 ## 5 62 126 ## 6 63 129 ## type 型式 #“p”: Points #“l”: Lines #“b”: Both #“c”: The lines part alone of “b” #�...
57 sym R (852 sym/5 pcs) 3 img
Document
04-13-Trellis graphics-ex1 TJLee 2020-04-20 ##在執行這code前，需先安裝package及調用，不然跑不出來 library(lattice) library(datasets) ##讀取它 VADeaths ## Rural Male Rural Female Urban Male Urban Female ## 50-54 11.7 8.7 15.4 8.4 ## 55-59 18.1 11.7 24.3 1...
77 sym R (3587 sym/24 pcs) 9 img
Document
04-13-Trellis graphics-ex2 TJLee 2020-04-18 ##load and see dta <- Ecdat::Caschool head(dta) ## distcod county district grspan enrltot teachers ## 1 75119 Alameda Sunol Glen Unified KK-08 195 10.90 ## 2 61499 Butte Manzanita Elementary KK-08 240 11.15 ## 3 61549 But...
61 sym R (5744 sym/16 pcs) 1 img
Document
04-13-Hw-4 TJLee 2020-04-18 library(longCatEDA) ?longCat ## starting httpd help server ... done example(longCat) ## ## longCt> # create the longcat object similar to Figure 2 in Tueller (2016) ## longCt> times <- c(1,100,200,300,400,500,600) ## ## longCt> f2lc <- longCat(example2cat, times) ## ## longCt> # object summary ## longCt> su...
41 sym R (3933 sym/9 pcs) 3 img
Document
04-13-Hw-2 TJLee 2020-04-17 ##load and see library(HSAUR3) ## Loading required package: tools library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(tidyr...
44 sym R (5251 sym/18 pcs) 1 img
Document
04-13-Hw-1 TJLee 2020-04-16 # Galton's data on the heights of parents and their children #load and see library(HistData) dta <- HistData::Galton help(Galton) ## starting httpd help server ... done head(dta) ## parent child ## 1 70.5 61.7 ## 2 68.5 61.7 ## 3 65.5 61.7 ## 4 64.5 61.7 ## 5 64.0 61.7 ## 6 67.5 62.2 ## ...
41 sym R (1851 sym/8 pcs) 1 img
Document
04-13-In-class exercises-5 TJLee 2020-04-16 #test -Method1 #I use white and black to run par(mfrow = c(1, 1)) b2p1 <- colorRampPalette(c("black", "white")) b2p2 <- colorRamp(c("black", "white")) pie(rep(1, 50), col = b2p1(50), border = b2p1(50), main = "white-gray-black") #just try.. -Method2 (lecture note) grDevices::gray(level=1) ## [1...
59 sym R (818 sym/10 pcs) 2 img