R语言可视化分析案例报告 附代码数据

R语言可视化报告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•绘制一个饼图，显示来自mtcars数据集的具有不同碳水化合物值的汽车的比例。library(ggplot2)ggplot(data=mtcars,aes(x=factor(1),fill=factor(carb)))+ylab("PercentageofCarAmountbyCarbType)+xlab("")+geom_bar(width=1)+coordpolar(theta="y")绘制一个条形图，显示mtcars中每个齿轮类型的数量ggplot(data=mtcars,aes(x=gear))+geom_bar(stat="count")15-oSoo3.接下来显示每个齿轮类型的数字的堆积条形图以及它们如何被cyl进一步划分出来。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