R語(yǔ)言可視化分析案例報(bào)告 附代碼數(shù)據(jù)

R語(yǔ)言可視化報(bào)告Mtcars概要summary(mtcars)##mpgcyldisphp##Min.:10.40Min.:4.000Min.:71.1Min.52.0##1stQu.:15.431stQu.:4.0001stQu.:120.81stQu.96.5##Median:19.20Median:6.000Median:196.3Median123.0##Mean:20.09Mean:6.188Mean:230.7Mean46.7##3rdQu.:22.803rdQu.:8.0003rdQu.:326.03rdQu.180.0##Max.:33.90Max.:8.000Max.:472.0Max.35.0##dratwtqsecv##Min.:2.760Min.:1.513Min.:14.50Min.0.0000##1stQu.:3.0801stQu.:2.5811stQu.:16.891stQu.0.0000##Median:3.695Median:3.325Median:17.71Median0.0000##Mean:3.597Mean:3.217Mean:17.85Mean0.4375##3rdQu.:3.9203rdQu.:3.6103rdQu.:18.903rdQu.1.0000##Max.:4.930Max.:5.424Max.:22.90Max.1.0000##amgearcarb##Min.:0.0000Min.:3.000Min.:1.000##1stQu.:0.00001stQu.:3.0001stQu.:2.000##Median:0.0000Median:4.000Median:2.000##Mean:0.4062Mean:3.688Mean:2.812

##3rdQu.:1.00003rdQu.:4.0003rdQu.:4.000##Max.:1.0000Max.:5.000Max.:8.0001?繪制一個(gè)餅圖，顯示來(lái)自mtcars數(shù)據(jù)集的具有不同碳水化合物值的汽車的比例。library(ggplot2)ggplot(data=mtcars,aes(x=factor(1),fill=factor(carb)))+ylab("PercentageofCarAmountbyCarbType)+xlab("")+geom_bar(width=1)+coordpolar(theta="y")繪制一個(gè)條形圖，顯示mtcars中每個(gè)齒輪類型的數(shù)量ggplot(data=mtcars,aes(x=gear))+geom_bar(stat="count")15-oSoo3.接下來(lái)顯示每個(gè)齒輪類型的數(shù)字的堆積條形圖以及它們?nèi)绾伪籧yl進(jìn)一步劃分出來(lái)。ggplot(mtcars,aes(x=factor(cyl),fill=factor(gear)))+xlab("cylamount'")+ylab("gearamount'")+geombar(color="black")factor(gear)66cylamaunfo-■A4.Drawascatterplotshowingtherelationshipbetweenwtandmpg.ggplot(mtcars,aes(x=wt,y=mpg))+xlab("CarWeight")+ylab("MilePerGallon")+geom_point()+geom_line()+ggtitle("'wt'and'mpg'relation)+stat_smooth(method="loess",formula=y~x,size=1,col="green")

'wtrand'mpgrrelation5.：二iVisualizationofHoursePowerandMilePerGallon.ggplot(mtcars,aes(x=hp,y=mpg))+xlab("HoursePower")+ylab("MilePerGallon")+geom_point()+geom_line()+ggtitle("'hp'and'mpg'relation)+statsmooth