Untitled

Statistics <- c (68,85,74,88,63,78,90,80,58,63)

Math <- c (85,91,74,100,82,84,78,100,51,70)


library(readr)

data <- read_csv("D:/table1_1.csv")

## Warning: One or more parsing issues, call `problems()` on your data frame for details,
## e.g.:
##   dat <- vroom(...)
##   problems(dat)

## Rows: 12 Columns: 1
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): ---
## 
## ℹ 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.

plot(Statistics,Math,
     pch = 17,
     col= "skyblue",
     main ="班上的Statistics與Math",
     xlab ="Statistics",
     ylab ="Math")

hist(Statistics,
     col= "lightyellow",
     main ="班上的Statistics與Math",
     xlab ="Statistics",
     ylab ="次數")