Code example

#把你蒐集到的資料key入
x <- c(11,16,19,18,20,23,19,21,24,29)
y <- c(23,26,34,29,33,27,23,36,30,40)
## C 固定值意思
## x,y 兩個變項,比方身高體重,你有興趣的變項皆可



colors <- c("#FDAE61", # Orange
            "#D9EF8B") # Light green

##畫圖
plot(x, y,
     pch = 19,
     col = colors)

# 你也可以不打色碼換顏色

color <- c("green", 
            "skyblue")

plot(x, y,
     pch = 19,
     col = color)

lm(y ~ x)   # 建立一個線性回歸

## 
## Call:
## lm(formula = y ~ x)
## 
## Coefficients:
## (Intercept)            x  
##     13.8143       0.8143

plot(x, y, pch = 16,col = color)
abline(lm(y ~ x), col = 4, lwd = 3) 

##abline 畫線

## col=顏色 lwd=線的粗細 

##算xy相關,兩者之間的關係
cor(x,y)

## [1] 0.6991015