2020-03-23 Homework-4

解壓縮

unzip("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1.zip")

讀取檔案，刪除第31個變項

library(data.table)
w1 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/1w.dat")[,-31]
w2 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/2w.dat")[,-31]
w3 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/3w.dat")[,-31]
w4 <- fread("C:/Users/X510/Desktop/2020-03-23 Homework-4/Subject1/4w.dat")[,-31]

提取四個檔案的F7變項

w1F7 <- w1[,1]
w2F7 <- w2[,1]
w3F7 <- w3[,1]
w4F7 <- w4[,1]
dta <- cbind(w1F7,w2F7,w3F7,w4F7)
colnames(dta) <- c("F7.1","F7.2","F7.3","F7.4")
time <- c(1:451)

1w的F7變項折線圖

library(ggplot2)
ggplot(dta, aes(x = time, y = F7.1)) + geom_line(aes(color=F7.1))

2w的F7變項折線圖

ggplot(dta, aes(x = time, y = F7.2)) + geom_line(aes(color=F7.2))

3w的F7變項折線圖

ggplot(dta, aes(x = time, y = F7.3)) + geom_line(aes(color=F7.3))

4w的F7變項折線圖

ggplot(dta, aes(x = time, y = F7.4)) + geom_line(aes(color=F7.4))