1
先讀進資料後，把檔案的前後半個自為一個data.frame，再用rbind把東西合併再一起。
std <- read.csv("C:/Users/user/Dropbox/1062-Data_manage/0319/student.txt")
x<-std[1:14,] %>% as.data.frame()
z<-std[15:nrow(std),] %>% as.data.frame()
y<-"U76067010" %>% as.data.frame()
std_new<-rbind(x,y,z)#> .
#> 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 U76064062
#> 15 U76067010
#> 16 U76041064
#> 17 U760410802
依照題目要求更換第一個人的高度後，檢查發現資料格式變成list，因此無法畫圖
dta <- women
data.entry(dta)
dta %>% class()
#> [1] "list"
str(dta)
#> List of 2
#> $ height: num [1:15] 50 59 60 61 62 63 64 65 66 67 ...
#> $ weight: num [1:15] 115 117 120 123 126 129 132 135 139 142 ...把資料重新轉回data.frame，便可以畫散布圖了
dta_new<-data.frame(dta[1],dta[2])
plot(dta_new)
3
把資料抓進來並顯示
load("C:/Users/user/Dropbox/1062-Data_manage/0319/titanic.raw.rdata")
knitr::kable(head(titanic.raw, 10)) | Class | Sex | Age | Survived |
|---|---|---|---|
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
| 3rd | Male | Child | No |
4
pacman::p_load(scholar)
dta <- get_citation_history('FpibrhMAAAAJ')
plot(dta, xlab = "Year", ylab = "Citations", type = "h",
lwd = 2, xlim = c(2008, 2018), ylim = c(0, 500))
grid()