R语言面向对象编程
面向对象是一种对现实世界理解和抽象的方法,当代码复杂度增加难以维护的时候,面向对象就会显得非常重要。我经历过Java和Javascript两种语言从面向过程到面向对象思路的改造,并感觉这种变化也会出现在R语言中。在工业界的引导下,R将走向大规则的企业应用,因此面向对象的编程方式将成为R语言的一种非常重要的发展方向,动起来迎接R的进步。
目录
什么是面向对象?
R为什么要进行面向对象编程?
R的面向对象编程
与其他语言的对比
1 什么是面向对象?
面向对象是一种对现实世界理解和抽象的方法,是计算机编程技术发展到一定阶段后的产物。早期的计算机编程是基于面向过程的方法,例如实现算术运算2+3+4=9,通过设计一个算法就可以解决当时的问题。
随着计算机技术的不断提高,计算机被用于解决越来越复杂的问题。一切事物皆对象,通过面向对象的方式,将现实世界的事物抽象成对象,现实世界中的关系抽象成类、继承,帮助人们实现对现实世界的抽象与数字建模。通过面向对象的方法,更利于用人理解的方式对复杂系统进行分析、设计与编程。同时,面向对象能有效提高编程的效率,通过封装技术,消息机制可以像搭积木的一样快速开发出一个全新的系统。面向对象是指一种程序设计范型,同时也是一种程序开发的方法。对象指的是类的集合。它将对象作为程序的基本单元,将程序和数据封装其中,以提高软件的重用性、灵活性和扩展性。
面向对象的3个特征:封装,继承,多态
封装:是把客观事物封装成抽象的类,并且类可以把自己的数据和方法只让可信的类或者对象操作,对不可信的进行信息隐藏。
我们通过面向对象的思想,定义老师和学生两个对象,并分别定义老师和学生的行为。
老师的行为:讲课,布置作业,批作业
学生的行为:听课,写作业,考试
通过封装就把两个客观事物进行了抽象,并设置了事情的行为。
继承:子类自动共享父类数据结构和方法的机制,这是类之间的一种关系。在定义和实现一个类的时候,可以在一个已经存在的类的基础之上来进行,使用现有类的所有功能,并在无需重新编写原来的类的情况下对这些功能进行扩展。通过继承创建的新类称为“子类”或“派生类”;被继承的类称为“基类”、“父类”或“超类”。
通常每门课都会从学生中选出这门课的课代表,来帮助老师和其他同学的沟通。课代表会有一些比普通同学更多特权。通过继承关系,把普通同学和课代表区别为两个子类,课代表不仅有普通同学的行为,还有帮助老师批作业的行为。
多态: 指由继承而产生的相关的不同的类,其对象对同一消息会做出不同的响应。
临近期末考试时,总有考的好的同学和考的不好的同学。所以,对于优等生来说,他的考试结果是优;次等生,考试结果就不是太好。相同行为对于由继承而产生的相关的不同的对象,结果是不同的。
所以,通过面向对象的思想,我们可以把客观世界的事物都进行抽象。
is a 和 has a
在客观世界中有若干类,这些类之间有一定的结构关系。通常有两种主要的结构关系,is a,和 has a。
is a: 为继承关系,比如 菱形、圆形和方形都是一种形状
has a:为组合关系或聚合关系,比如 电脑是由显示器、CPU、硬盘等组成
2 R为什么要进行面向对象编程?
R主要面向统计计算,而且代码量一般不会很大,几十行,几百行,使用面向过程的编程方法就可以很好地完成编程的任务。
不过,虽然R语言的持续手热,伴随着越来越多的工程背景的人的加入,R语言开始向更多的领域发展。原来的少量的代码的面向过程的编码方式,会越来越难以维护海量代码的项目,所以必须有一种新的编程方式来代码原来的面向过程的编码思路,这种新的编程方式就是面向对象编程(Object Oriented Programming, OOP)。
面向对象编程,早在C++/Java时代就被广泛使用了,几乎90%以上的Java框架都是按面向对象的方法设计的;8年前Javascript各种面向过程编码让前端开发困难重重,直到Google的Gmail的Web端出现,才让大家认识到原来Javascript也可以面向对象编程,随后的jQuery, ExtJS等类库的完全面向对象的实现,终于让Javascript承得起前端的天空,后来的Node的诞生更是让Javascript拓宽了应用领域。
当R语言被大家所看好的同时,我们也要开始思考,如何才能让R成为工业界的开发语言?应用如何构建非统计计算的项目?如何用R有效的编写10万行以上的代码?
我想这个答案就是以面向对象进行编程,现在的R就像8年前的Javascript,需要大公司和牛人来推动。从我的观察来看,以Hadley Wickham为代表的R语言领军人物,已经开始在R包中全面引入面向对象思路进行R包的开发了。以面向对象思想开发的R包memoise,请参考文章:R语言本地缓存memoise
3 R的面向对象编程
R的面向对象编程是基于泛型函数(generic function)的,而不是基于类层次结构。接下来,我从面向对象的3个特征入手,分别用R语言进行实现,使用的案例为上文中,老师和学生的3幅图。
3.1 R语言实现封装
# 定义老师对象和行为
> teacher <- function(x, ...) UseMethod("teacher")
> teacher.lecture <- function(x) print("讲课")
> teacher.assignment <- function(x) print("布置作业")
> teacher.correcting <- function(x) print("批改作业")
> teacher.default<-function(x) print("你不是teacher")
# 定义同学对象和行为
> student <- function(x, ...) UseMethod("student")
> student.attend <- function(x) print("听课")
> student.homework <- function(x) print("写作业")
> student.exam <- function(x) print("考试")
> student.default<-function(x) print("你不是student")
# 定义两个变量,a老师和b同学
> a<-'teacher'
> b<-'student'
# 给老师变量设置行为
> attr(a,'class') <- 'lecture'
# 执行老师的行为
> teacher(a)
[1] "讲课"
# 给同学变量设置行为
> attr(b,'class') <- 'attend'
# 执行同学的行为
> student(b)
[1] "听课"
> attr(a,'class') <- 'assignment'
> teacher(a)
[1] "布置作业"
> attr(b,'class') <- 'homework'
> student(b)
[1] "写作业"
> attr(a,'class') <- 'correcting'
> teacher(a)
[1] "批改作业"
> attr(b,'class') <- 'exam'
> student(b)
[1] "考试"
# 定义一个变量,既是老师又是同学
> ab<-'student_teacher'
# 分别设置不同对象的行为
> attr(ab,'class') <- c('lecture','homework')
# 执行老师的行为
> teacher(ab)
[1] "讲课"
# 执行同学的行为
> student(ab)
[1] "写作业"
3.2 R语言实现继承
# 给同学对象增加新的行为
> student.correcting <- function(x) print("帮助老师批改作业")
# 辅助变量用于设置初始值
> char0 = character(0)
# 实现继承关系
> create <- function(classes=char0, parents=char0) {
+ mro <- c(classes)
+ for (name in parents) {
+ mro <- c(mro, name)
+ ancestors <- attr(get(name),'type')
+ mro <- c(mro, ancestors[ancestors != name])
+ }
+ return(mro)
+ }
# 定义构造函数,创建对象
> NewInstance <- function(value=0, classes=char0, parents=char0) {
+ obj <- value
+ attr(obj,'type') <- create(classes, parents)
+ attr(obj,'class') <- c('homework','correcting','exam')
+ return(obj)
+ }
# 创建父对象实例
> StudentObj <- NewInstance()
# 创建子对象实例
> s1 <- NewInstance('普通同学',classes='normal', parents='StudentObj')
> s2 <- NewInstance('课代表',classes='leader', parents='StudentObj')
# 给课代表,增加批改作业的行为
> attr(s2,'class') <- c(attr(s2,'class'),'correcting')
# 查看普通同学的对象实例
> s1
[1] "普通同学"
attr(,"type")
[1] "normal" "StudentObj"
attr(,"class")
[1] "homework" "attend" "exam"
# 查看课代表的对象实例
> s2
[1] "课代表"
attr(,"type")
[1] "leader" "StudentObj"
attr(,"class")
[1] "homework" "attend" "exam" "correcting"
3.3 R语言实现多态
# 创建优等生和次等生,两个实例
> e1 <- NewInstance('优等生',classes='excellent', parents='StudentObj')
> e2 <- NewInstance('次等生',classes='poor', parents='StudentObj')
# 修改同学考试的行为,大于85分结果为优秀,小于70分结果为及格
> student.exam <- function(x,score) {
+ p<-"考试"
+ if(score>85) print(paste(p,"优秀",sep=""))
+ if(score<70) print(paste(p,"及格",sep=""))
+ }
# 执行优等生的考试行为,并输入分数为90
> attr(e1,'class') <- 'exam'
> student(e1,90)
[1] "考试优秀"
# 执行次等生的考试行为,并输入分数为66
> attr(e2,'class') <- 'exam'
> student(e2,66)
[1] "考试及格"
这样通过R语言的泛型函数,我们就实现了面向对象的编程。
4 R的面向过程编程
接下来,我们再次对比用R语言用面向过程实现上面的逻辑。
4.1 定义老师和同学两个对象和行为
# 辅助变量用于设置初始值
> char0 = character(1)
# 定义老师对象和行为
> teacher_fun<-function(x=char0){
+ if(x=='lecture'){
+ print("讲课")
+ }else if(x=='assignment'){
+ print("布置作业")
+ }else if(x=='correcting'){
+ print("批改作业")
+ }else{
+ print("你不是teacher")
+ }
+ }
# 定义同学对象和行为
> student_fun<-function(x=char0){
+ if(x=='attend'){
+ print("听课")
+ }else if(x=='homework'){
+ print("写作业")
+ }else if(x=='exam'){
+ print("考试")
+ }else{
+ print("你不是student")
+ }
+ }
# 执行老师的一个行为
> teacher_fun('lecture')
[1] "讲课"
# 执行同学的一个行为
> student_fun('attend')
[1] "听课"
4.2 区别普通同学和课代表的行为
# 重定义同学的函数,增加角色判断
> student_fun<-function(x=char0,role=0){
+ if(x=='attend'){
+ print("听课")
+ }else if(x=='homework'){
+ print("写作业")
+ }else if(x=='exam'){
+ print("考试")
+ }else if(x=='correcting'){
+ if(role==1){#课代表
+ print("帮助老师批改作业")
+ }else{
+ print("你不是课代表")
+ }
+ }else{
+ print("你不是student")
+ }
+ }
# 以普通同学的角色,执行课代表的行为
> student_fun('correcting')
[1] "你不是课代表"
# 以课代表的角色,执行课代表的行为
> student_fun('correcting',1)
[1] "帮助老师批改作业"
我在修改student_fun()函数的同时,已经增加了原函数的复杂度。
4.3 参加考试,以成绩区别出优等生和次等生
# 修改同学的函数定义,增加考试成绩参数
> student_fun<-function(x=char0,role=0,score){
+ if(x=='attend'){
+ print("听课")
+ }else if(x=='homework'){
+ print("写作业")
+ }else if(x=='exam'){
+ p<-"考试"
+ if(score>85) print(paste(p,"优秀",sep=""))
+ if(score<70) print(paste(p,"及格",sep=""))
+ }else if(x=='correcting'){
+ if(role==1){#课代表
+ print("帮助老师批改作业")
+ }else{
+ print("你不是课代表")
+ }
+ }else{
+ print("你不是student")
+ }
+ }
# 执行考试函数,考试成绩为大于85分,为优等生
> student_fun('exam',score=90)
[1] "考试优秀"
# 执行考试函数,考试成绩为小于70分,为次等生
> student_fun('exam',score=66)
[1] "考试及格"
我再一次用面向过程的代码,实现了整个的编辑逻辑。再用到面向过程来写程序的时候,每一次的需求变化,都需要对原始代码进行修改,从而不仅增加了复杂度,而且不利于长久的维护。更多思考留给了大家!
本文抛砖引玉地讲了R语言的面向对象的编程,其中部分代码有些不够严谨,本文只希望给大家思路上的认识,更具体的面向对象编程实例,会在以后的文章中进行讨论。
数据分析咨询请扫描二维码
若不方便扫码,搜微信号:CDAshujufenxi
你是否被统计学复杂的理论和晦涩的公式劝退过?别担心,“山有木兮:统计学极简入门(Python)” 将为你一一化解这些难题。课程 ...
2025-03-31在电商、零售、甚至内容付费业务中,你真的了解你的客户吗? 有些客户下了一两次单就消失了,有些人每个月都回购,有些人曾经是 ...
2025-03-31在数字化浪潮中,数据驱动决策已成为企业发展的核心竞争力,数据分析人才的需求持续飙升。世界经济论坛发布的《未来就业报告》, ...
2025-03-28你有没有遇到过这样的情况?流量进来了,转化率却不高,辛辛苦苦拉来的用户,最后大部分都悄无声息地离开了,这时候漏斗分析就非 ...
2025-03-27TensorFlow Datasets(TFDS)是一个用于下载、管理和预处理机器学习数据集的库。它提供了易于使用的API,允许用户从现有集合中 ...
2025-03-26"不谋全局者,不足谋一域。"在数据驱动的商业时代,战略级数据分析能力已成为职场核心竞争力。《CDA二级教材:商业策略数据分析 ...
2025-03-26当你在某宝刷到【猜你喜欢】时,当抖音精准推来你的梦中情猫时,当美团外卖弹窗刚好是你想吃的火锅店…… 恭喜你,你正在被用户 ...
2025-03-26当面试官问起随机森林时,他到底在考察什么? ""请解释随机森林的原理""——这是数据分析岗位面试中的经典问题。但你可能不知道 ...
2025-03-25在数字化浪潮席卷的当下,数据俨然成为企业的命脉,贯穿于业务运作的各个环节。从线上到线下,从平台的交易数据,到门店的运营 ...
2025-03-25在互联网和移动应用领域,DAU(日活跃用户数)是一个耳熟能详的指标。无论是产品经理、运营,还是数据分析师,DAU都是衡量产品 ...
2025-03-24ABtest做的好,产品优化效果差不了!可见ABtest在评估优化策略的效果方面地位还是很高的,那么如何在业务中应用ABtest? 结合企业 ...
2025-03-21在企业数据分析中,指标体系是至关重要的工具。不仅帮助企业统一数据标准、提升数据质量,还能为业务决策提供有力支持。本文将围 ...
2025-03-20解锁数据分析师高薪密码,CDA 脱产就业班助你逆袭! 在数字化浪潮中,数据驱动决策已成为企业发展的核心竞争力,数据分析人才的 ...
2025-03-19在 MySQL 数据库中,查询一张表但是不包含某个字段可以通过以下两种方法实现:使用 SELECT 子句以明确指定想要的字段,或者使 ...
2025-03-17在当今数字化时代,数据成为企业发展的关键驱动力,而用户画像作为数据分析的重要成果,改变了企业理解用户、开展业务的方式。无 ...
2025-03-172025年是智能体(AI Agent)的元年,大模型和智能体的发展比较迅猛。感觉年初的deepseek刚火没多久,这几天Manus又成为媒体头条 ...
2025-03-14以下的文章内容来源于柯家媛老师的专栏,如果您想阅读专栏《小白必备的数据思维课》,点击下方链接 https://edu.cda.cn/goods/sh ...
2025-03-13以下的文章内容来源于刘静老师的专栏,如果您想阅读专栏《10大业务分析模型突破业务瓶颈》,点击下方链接 https://edu.cda.cn/go ...
2025-03-12以下的文章内容来源于柯家媛老师的专栏,如果您想阅读专栏《小白必备的数据思维课》,点击下方链接 https://edu.cda.cn/goods/sh ...
2025-03-11随着数字化转型的加速,企业积累了海量数据,如何从这些数据中挖掘有价值的信息,成为企业提升竞争力的关键。CDA认证考试体系应 ...
2025-03-10