Rpackage【ggplot2】

最新推荐文章于 2024-11-10 15:13:25 发布

TOMOCAT

最新推荐文章于 2024-11-10 15:13:25 发布

阅读量1.9w

点赞数

CC 4.0 BY-SA版权

分类专栏： Rpackage

本文链接：https://blog.youkuaiyun.com/TOMOCAT/article/details/78777067

Rpackage 专栏收录该内容

6 篇文章

订阅专栏

本文通过多个实例展示了如何使用R语言的ggplot2包进行数据可视化，包括将分类变量转化为因子、绘制不同类型的图表如散点图、箱形图等，并通过分组和刻面功能增强图表的表达力。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 ##mtcats数据集把am，vs和cy1转化为因子
 attach(mtcars)
 mtcars$am<-factor(mtcars$am,levels=c(0,1),labels=c("Automatic","Manual"))
 mtcars$vs<-factor(mtcars$vs,levels=c(0,1),labels=c("V-Engine","Straight Engine"))
 mtcars$cyl<-factor(mtcars$cyl)
 library(ggplot2)
 ggplot(data=mtcars,aes(x=hp,y=mpg,shape=cyl,color=cyl)) +            
 geom_point(size=3)+
 facet_grid(am~vs)+
 labs(title="Automobile Data by Engine Type",x="Horsepower",y="Miles Per Gallon")

 ##几何函数
 install.packages("car")
 install.packages("ggplot2")
 library(ggplot2)
 data(Salaries,package="car") 
 ggplot(Salaries,aes(x=rank,y=salary))+
        geom_boxplot(fill="cornflowerblue",color="black",notch=T)+
        geom_point(position="jitter",color="blue",alpha=.5)+
        geom_rug(side="l",color="blue")
            
 ##分组：
 data(Salaries,package="car")
 library(ggplot2) 
 ggplot(data=Salaries,aes(x=salary,fill=rank))+
        geom_density(alpha=.3)
 ggplot(Salaries,aes(x=yrs.since.phd,y=salary,color=rank,shape=sex))+
        geom_point()

 ##刻面：
 install.packages("lattice")
 library(ggplot2)
 data(singer,package="lattice") 
 ggplot(data=singer,aes(x=height))+
        geom_histogram()+
        facet_wrap(~voice.part,nrow=4)
 ggplot(Salaries,aes(x=yrs.since.phd,y=salary,color=rank,shape=rank))+
        geom_point()+
        facet_grid(.~sex)
 
 ##添加光滑曲线：
 data(Salaries,package="car")
 library(ggplot2) 
 ggplot(data=Salaries,aes(x=yrs.since.phd,y=salary))+
        geom_point()+
        geom_smooth()

 ggplot(data=Salaries,aes(x=yrs.since.phd,y=salary,linetype=sex,color=sex,shape=sex))+
        geom_smooth(method=lm,formula = y~poly(x,2),se=F,size=1)+
        geom_point(size=2)