关于r的问题，求解求解

根据汽车测试的mtcars数据集：以50-100,100-150,150-200,200以上对马力hp进行分类，以此类别型变量及每加仑汽油行驶英里数mpg绘制并组箱型图，并对图形进行解释。

参考一下如下写法：

getwd()
data=mtcars
f<-function(x){
    if (50<=x & x<=100)
    s=1
    if (100<x & x<=150)
    s=2
    if (150<x & x<=200)
    s=3    
    if (x>200)
    s=4
    return(s)
}
data$hp=as.numeric(lapply(data$hp,f))
boxplot(mpg~hp,data)