Untitled

we <- c(55,60,70,75,75)

height <- c(155,160,170,175,175)
plot(we,height,
     pch = 17,
     col= "skyblue",
     main ="班上的體重與身高",
     xlab ="體重",
     ylab ="身高")

plot(we,height,)

# library
library(ggplot2)
 
date3 <- data.frame(we,height)
# use options!
ggplot(date3, aes(x=we, y=height)) + 
    geom_point(
        color="orange",
        fill="#69b3a2",
        shape=21,
        alpha=0.5,
        size=6,
        stroke = 2
        )  

stem(we)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   5 | 5
##   6 | 0
##   6 | 
##   7 | 0
##   7 | 55