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

數(shù)據(jù)可視化分析報(bào)告可見(jiàn)1此圖形是一個(gè)傳統(tǒng)的堆積條形圖。這個(gè)圖形在內(nèi)置于ggplot2庫(kù)中的mpg數(shù)據(jù)集上工作。library(ggplot2)ggplot(mpg,aes(class,fill=trans))+geom_bar(position="stack")echo=TRUE可見(jiàn)2這個(gè)boxplot也是使用mpg數(shù)據(jù)集建立的。ggplot(mpg)+geom_boxplot(aes(manufacturer,hwy))+theme_classic()+coord_flip()+labs(y="HighwayFuelEfficiency(mile/gallon)",x="VehicleManufacturer")echo=TRUEVis3這個(gè)圖形是用另一個(gè)數(shù)據(jù)集菱形建立的，也是內(nèi)置在ggplot2包中的數(shù)據(jù)集。library(ggthemes)ggplot(diamonds)+geom_density(aes(price,fill=cut,color=cut),alpha=0.4,size=0.5)+labs(title='DiamondPriceDensity',x='DiamondPrice(USD)',y='Density')+theme_economist()echo=TRUE另外，我正在使用ggplot2軟件包來(lái)將線性模型擬合到框架內(nèi)的所有數(shù)據(jù)上。ggplot(iris,aes(Sepal.Length,Petal.Length))+geom_point()+geom_smooth(method=lm)+theme_minimal()+theme(panel.grid.major=element_line(size=1),panel.grid.minor=element_line(size=0.7))+labs(title='relationshipbetweenPetalandSepalLength',x='IrisSepalLength',y='IrisPetalLength')echo=TRUEVis5Finally,inthisvisIextendonthelastexample,byplottingthesamedatabutusinganadditionalchanneltocommunicatespeciesleveldifferences.AgainIfitalinearmodeltothedatabutthistimeoneforeachspecies,andaddadditionalthemeandlabelingmodicitations.ggplot(iris,aes(x=iris$Sepal.Length,y=iris$Petal.Length,fill=Species,color=Species))+geom_point()+theme_minimal()+labs(x="IrisSepalLength",y="IrisPetalLength",title="RelationshipbetweenSepalandPetalLength")+g