##畫出women檔案裡的第一筆資料(58,115)
plot(women, type='n')
points(women[1,])

##先定義weight(Y) ~ height(X)，再切割出women檔案
##裡的第一筆資料
lattice::xyplot(weight ~ height, 
  data=women,
  subset=row.names(women)==1, type='p')

##先設定Aesthetic mappings；再畫出Geometric objects
library(ggplot2)
ggplot(data=women[1,], aes(height, weight))+
  geom_point()

##就繪出women檔案裡第一筆資料的「點」這個任務來說，
##base graphics反而是最簡易的方式。