practice

library(readr)
IbmYhooAaplReturnData <- read_csv("C:/Users/ywang/OneDrive/Desktop/IbmYhooAaplReturnData.csv")

## Rows: 1258 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (3): IBMreturn, YhooReturn, Aaplreturn
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(IbmYhooAaplReturnData)

var1 <- IbmYhooAaplReturnData$IBMreturn
var2 <- IbmYhooAaplReturnData$YhooReturn
var3 <- IbmYhooAaplReturnData$Aaplreturn
df<- data.frame(var1,var2,var3)
pairs(df)

library(ggplot2)
library(GGally)

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

ggpairs(df)