R语言小代码
战战兢兢的菜鸟
菜鸟
展开
-
R语言(把银行已认购定期存款的客户原始数据建立决策树模型,从而预测新一批客户是否会认购定期存款)
library(outliers)#设置工作空间,导入数据setwd('D:/bankfull')bankfull <- read.csv2("bank-full.csv",stringsAsFactors = F) # 数据读取#处理噪声数据outlier(as.numeric(bankfull$balance))# opposite = FALSE, logical = FALSE#检测NA值,并输出其位置which(is.na(bankfull))#删除含有缺失值的行bankf原创 2020-07-08 20:21:30 · 1915 阅读 · 1 评论 -
R语言小代码(聚类练习)
任务:参考资料1参考资料2在篮球运动中,一般情况下,控球后卫与得分后卫的助攻数较多,小前锋的得分数较多,而大前锋与中锋的助攻数与得分数较少。下表为21名篮球运动员每分钟助攻数和每分钟得分数的数据集,请运用K-Means聚类算法将这21名篮球运动员划分为5类,并通过画图判断他们分别属于什么位置。 assists_per_minute points_per_minute1 0.0888 0.58852 0.1399 0.82913 0.0747 0.49744 0.原创 2020-06-05 13:09:33 · 4135 阅读 · 0 评论 -
R语言小代码(航空公司客户价值分析)
博客所用原始数据原始数据解释:任务一:统计不同会员等级数量#导入数据setwd('D:/')airdata <- read.csv("air_data.csv",stringsAsFactors = F)airdata:#统计不同会员等级数量airdata_ffptier <-data.frame(table(airdata[,5]))names(airdata_ffptier)<-c("FFP_TIER","Num")airdata_ffptier:#算出原创 2020-05-27 19:10:45 · 1946 阅读 · 0 评论 -
R语言小代码(商品零售购物篮分析)
任务:某西饼屋准备对现有的店面重新进行布置,以期能够给用户提供更加友好的体验。现有某西饼屋某天60天订单数据,部分数据如下所示,使用Apriori算法对西饼屋订单进行关联分析。在这里插入代码片// A code blockvar foo = 'bar';在这里插入代码片// A code blockvar foo = 'bar';在这里插入代码片// A code bl...原创 2020-05-08 11:01:51 · 5987 阅读 · 4 评论 -
R语言小代码(弥补测试)
任务一:R语言获取中国石油股票数据#quantmod 包默认是访问 yahoo finance 的数据,#其中包括上证和深证的股票数据,还有港股数据。library(quantmod)#中国石油--沪A601857 港股00857#上证代码是 ss,深证代码是 sz,港股代码是 hk#setSymbolLookup(sy=list(name='00857.hk',src='yahoo'...原创 2020-04-30 11:38:28 · 604 阅读 · 0 评论 -
R语言小代码9(使用R语言高级绘图函数)
任务:使用R语言高级绘图函数对金融领域的数据进行绘图并做简单分析。数据:金融案例数据获取数据:getwd()setwd('D:\\')FinRatio <- read.csv("financial ratio.csv", header= T,stringsAsFactors=F, na.strin...原创 2020-04-24 17:59:59 · 1270 阅读 · 0 评论 -
R语言小程序(R作图基础)
任务:2020年1月以来,蔓延全球的新冠肺炎疫情受到人们的广泛关注,也深刻改变了中国人民的工作和生活方式。各行各业的人都在为控制疫情作出贡献,作为学习数据分析我们也应该利用专业知识给出自己的分析和建议。附件中是1月20日到2月21日期间,全国、湖北省和非湖北省每日接受医学观察的人数统计,请利用R语言作图方法来直观展现接受医学观察人数的发展趋势。请提交图形、代码并做简单分析。(注:可以选用其他...原创 2020-04-17 22:09:05 · 1996 阅读 · 0 评论 -
R语言小代码7(流程控制练习)
任务:计算等额本金还款和等额本息还款小张贷款100万购买房子,贷款利率为4.9%(年利率),贷款期限20年。1)用循环执行语句(for或者while),分别计算等额本金还款和等额本息还款的每月偿还本金、偿还利息、偿还本息、剩余本金2)以数据框的形式给出。3)计算两种还款方式的利息差额。其中等额本金每月偿还本金 = 贷款总额/贷款月数等额本息每个月的偿还本息 = 贷款总额月利率(1+月利...原创 2020-04-11 15:48:23 · 3648 阅读 · 2 评论 -
R语言小代码5(流程控制)
任务一:switch函数个人理解,匹配函数> x <- 2> switch(x, "河北", "河南", "天津", "北京")[1] "河南"> for(i in c(-1:3,9))+ print(i)[1] -1[1] 0[1] 1[1] 2[1] 3[1] 9> for(i in c(-1:3,9))+ print(swi...原创 2020-04-09 10:29:04 · 333 阅读 · 0 评论 -
R语言小代码6(股票数据分析)
任务:一:请举例说明R语言如何读取Excel中不同工作表中的文件创建一个excel文件,给不同的sheet命名;下载readxl包,使用read_xlsx方法,注明路径和sheet名字,就能读取不同工作表的内容代码:> library("readxl")> getwd()[1] "C:/Users/lenovo/Documents"> > read_sheet...原创 2020-04-04 15:41:25 · 2254 阅读 · 1 评论 -
R语言小作业(数据处理)
例题:1创建数据框。(自己命名)2 将空的部分设为NA值。3定义新变量,删除不完整观测值。4 创建新变量(自己命名)数值为Height/Weight,并将此变量放入数据框中。5将源数据框中的Height变量重命名为He,Weight变量重命名为We,并重新定义为另外一个数据框6将数据按照Height的升序排序,若Height相等,按Weight排序,并重新定义为另外一个数据框。7定...原创 2020-03-26 10:56:55 · 2700 阅读 · 1 评论 -
R语言小作业4(基本数据管理)
一个示例#创建数据集> #创建leadership数据集> manager <- c(1, 2, 3, 4, 5)> date <- c("10/24/08", "10/28/08", "10/1/08", "10/12/08", + "5/1/09")> gender <- c("M", "F", "F", "M", "...原创 2020-03-22 16:19:19 · 868 阅读 · 0 评论 -
R语言小作业3代码(列表操作)
任务一:列表操作任务内容:stu_id <- c(101,102,103,104,105)stu_age <- c(20,21,20,21,22)stu_class <- c("jr","jr","kj","kj","jr")stu_perf <- c("excellent","average","good","poor","average") stu1 ...原创 2020-03-19 21:44:41 · 878 阅读 · 0 评论 -
R语言小作业2(向量操作)
任务一:生成简单向量任务内容:生成如下向量:"金融1801甲" "金融1801乙" "金融1802甲" "金融1802乙""金融1803甲" "金融1803乙" "金融1804甲" "金融1804乙"代码及结果:> x <- paste("金融",rep(c(1801:1804),each=2),c("甲","乙"),sep="")> x[1] "金融180...原创 2020-03-19 21:36:36 · 2147 阅读 · 0 评论