11月1日台北下雨又冷
接續昨天的geom_text_repel
我們找出資料中,馬力大於100的車種
#找出資料
dat = subset(mtcars,hp>100)
然後我們將資料依照車輛的馬力進行排序,並將馬力最大以及馬力最小的兩者挑出來~
#根據馬力排序
dat = dat[order(dat$hp),]
如下圖 :
#找出最大馬力和最小馬力
dat_label = c(1,length(dat$mpg))
並將原資料 : dat 中 加入新的一行名為car
#給定一行名為 CAR
dat$car = ""
接著我們將列的名稱放入在我們的資料中
#將rowname放入資料中
dat$car[dat_label] =row.names(dat)[dat_label]
做到這裡不知各位猜到要幹嘛了嗎?
(在圖上標上最大馬力的車)
我們明日揭曉~
End.