3/19 in class

ex1

dta <- read.table("student2017.txt", header=T)
dta$ID <- as.character(dta$ID)
miss <- "U76067010"
dtaNEW <- data.frame(c(dta[1:13,], miss, dta[14:16,]))
names(dtaNEW) <- "ID";dtaNEW

##           ID
## 1  D84057058
## 2  C44035023
## 3  D84041162
## 4  D84046081
## 5  D84021057
## 6  U36037025
## 7  U36041074
## 8  U36041090
## 9  U36051087
## 10 U36031118
## 11 U36041082
## 12 U76051019
## 13 U76054025
## 14 U76067010
## 15 U76064062
## 16 U76041064
## 17 U76041080

ex2

plot(women)

上圖是利用15個觀察值所畫出，如用data.entry（）直接修改數值，軟體會將修改數值視為字元而不是觀察值，變成2個list，故無法作圖。

ex3

load("C:/Users/she22_000/Documents/titanic.raw.rdata")

str(titanic.raw)

## 'data.frame':    2201 obs. of  4 variables:
##  $ Class   : Factor w/ 4 levels "1st","2nd","3rd",..: 3 3 3 3 3 3 3 3 3 3 ...
##  $ Sex     : Factor w/ 2 levels "Female","Male": 2 2 2 2 2 2 2 2 2 2 ...
##  $ Age     : Factor w/ 2 levels "Adult","Child": 2 2 2 2 2 2 2 2 2 2 ...
##  $ Survived: Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...

ex4

pacman::p_load(scholar)
dta <- get_citation_history('aG2KuDYAAAAJ')
plot(dta, xlab = "Year", ylab = "Citations", type = "h", 
     lwd = 2, xlim = c(2014, 2018), ylim = c(0, 500))
grid()