R语言编程 R语言作业

一、（40 分）
请使用 nycflight13 回答以下问题：
（1）请用 flights 表单找出出发时间没有延误，但是到达时间的所有航班。
（2）在（1）数据的基础上计算到达每个目的地的航班数量，平均飞行距离和平
均到达延误时间。
（3）在（2）的基础上在一张图中画出平均到达延误时间和平均飞行距离关系的
散点图和平滑曲线图。
（4）用 flights 数据，然后根据 origin 和 time_hour 两个变量与 weather 表格进行
左连接。
二、（20 分）
请用 map 函数从 1 到 100 中随机抽取 10 组数，这 10 组数的样本量分别为 10:19；然后
计算这 10 组数的均值和标准差
三、（20 分）
请编写函数分别完成以下两个问题：
（1）编写函数 get.root(a, b, c)，求解一元二次方程ܽݔଶ ൅ ܾ ܿ ൅ ݔൌ 0的实根；
（2）已知某一元二次方程ܽݔଶ ൅ ܾ ܿ ൅ ݔൌ 0的三个系数都是随机变量，其中 a 服从[1, 5]上的
均匀分布， b 服从正态分布 N(3, 10)， c 服从均值为 1 的指数分布。请编写函数 get.prob()，
计算该方程有实根的概率。
四、（20 分）
请编写一个函数，能够将一个向量中的字符串按逆序排序。我们通常使用的字符串排序是根
据字符串的首字母从小到大排序，所谓逆序排序是指根据字符串的尾字母从小到大排序，例
如：
c("economics", "employment", "management", "finance")
的逆序排序结果是：
c("finance", "economics", "management", "employment"
下面一一给出问题的解答

library(nycflights13) #加载包
library(dplyr)#数据处理
colnames(flights)=c("年","月","日","起飞时间","计划起飞时间","起飞延误","到达时间","计划到达时间","到达延误","承运商缩写","flight","飞机尾号","始发地","目的地","空中时间","机场间距","hour","minute","time_hour" )#修改列名
df=flights
head(df) #查看数据

library(tidyverse) #加载包shuju=df%>%
filter(起飞延误 == 0 & 到达延误 != 0)#出发时间无延误,到达时间有延误的航班

shuju%>%
group_by(目的地)%>%
count()#每个目的地的航班数量anyNA(shuju$flight)#检查有无缺失数据
shuju1=shuju%>%
group_by(目的地)%>%
summarise(Mean=mean(flight)) # 平均飞行距离anyNA(shuju$到达延误)#检查有无缺失数据
shuju2=shuju%>%
group_by(目的地)%>%
summarise(Mean=mean(到达延误)) #平均到达延误时间

这里的结果就不展示了

shuju3=left_join(x = shuju1,y = shuju2,by="目的地" )a=colors()
b=sample(a,99,replace=F)
ggplot(shuju3,aes(x=Mean.y,y=Mean.x,fill=目的地))+
geom_point(shape=21,alpha=0.8,colour="black")+
geom_smooth()+
scale_fill_manual(values=b)#画出平均到达延误时间和平均飞行距离关系的
散点图和平滑曲线图df=df%>%
rename(origin=始发地)
left_join(weather,df,by=c("origin","time_hour"))  #左连接

第二问

data=list()
f=function(x){a=c(10:19)for(i in seq_along(a) ){data[[i]]=sample(x,a[i],replace=T)}data }
d=map(100,f)#生成列表
a=list()
for(i in 1:10){a[i]=d[[1]][i] }sapply(a,mean) #
sapply(a,sd)

第三问

get.root=function(a,b,c){discrim<-b^2-4*a*c     if(discrim>0){
roots<-c((-b+sqrt(b^2-4*a*c))/(2*a),(-b-sqrt(b^2-4*a*c))/(2*a))
}else{
if(discrim==0){
roots<- -b/(2*a)
} else{
roots<-c()}
}roots } #求根函数#基于蒙特卡罗模拟
a=runif(10000,1,5)
b=rnorm(10000,3,10)
c=rexp(10000,1)
get.prob=function(a,b,c){discrim=b^2-4*a*c sum(discrim>=0)/10000    }
get.prob(a,b,c)

第四问

w=c("economics", "employment", "management", "finance")
C=c(length(w))
data=data.frame(letters,shu=1:26)
rownames(data)=letters
fd=function(x){a=nchar(x)for(i in 1:length(a)){C[i]=substr(x[i],a[i],a[i])}b=data[C,]$shux[order(b)]  } #排序函数

以上就是关于问题的所有解答，如有更好的方法可以留言，也可以加我博客好友，一起学习，一起交流。

R语言编程 R语言作业相关推荐

[Lua语言编程]Lua语言基础知识
文章目录 `Lua` `Lua`语言的起源 `Lua` 特性 `Lua下载` Linux 系统上安装 Mac OS X 系统上安装 Window 系统上安装 `Lua` `Lua`语言语法 `Lua` ...
11 12 13c语言编程,C语言编程
C语言编程 1.sscanf() sscanf()与scanf()类似,都是用于输入的,只是后者以键盘(stdin)为输入源,前者以固定字符串为输入源. 头文件:#include 格式:int ssc ...
0.618法C语言编程,c语言编程题--0.618法求最小值
c语言编程题--0.618法求最小值0 题目: 1.函数f(x)=x+10/x,初始量a=2,b=10,c=0.3 2.步骤:(1)取a1=a+0.382*(b-a),b1=b+0.618*(b-a) ...
100以内加减法C语言编程,C语言编程100题(其三）来啦！
原标题:C语言编程100题(其三)来啦! 无论是风里,还是在雨里,我都在这里守候着你- 大家好啊,我是小C,咱们又见面咯,前面的题目做的怎么样呢,今天又给大家送上新的题目了,快来学习吧! 计算200到 ...
在线模拟c语言编程,c语言模拟编程学习软件v2019
C/C ++程序设计学习与实验系统是一款可用于设计教学演示.学习与实验的C/C ++语言编程学习软件,是由从事教学的老师根据C/C ++的初学者及C程序多媒体演示研发.对于想要学习C语言的朋友是一个不 ...
蔬菜信息配送系统c语言编程,c语言大作业物流配送系统程序（10页）-原创力文档...
c语言大作业物流配送系统程序 #include #include #include //日期 struct date { int year; int month; int day; }; //订单链表 ...
蔬菜信息配送系统c语言编程,c语言大作业物流配送系统程序文件.doc
. . .. . . . 专业专注 . #include #include #include //日期 struct date { int year; int month; int day; }; ...
万年历(c语言)编程,C语言实现的万年历
下面是编程之家 jb51.cc 通过网络收集整理的代码片段. 编程之家小编现在分享给大家,也给大家做个参考. #include #include static char *months[]={&quo ...
在电脑测试c语言编程,C语言电脑编程兴趣班测试题目
<C语言电脑编程兴趣班测试题目>由会员分享,可在线阅读,更多相关<C语言电脑编程兴趣班测试题目(3页珍藏版)>请在人人文库网上搜索. 1.少年宫电脑编程兴趣班测试题目竞赛时间: ...
面向对象的C语言编程-DynamicLinkageGenericFunctions--C语言中的偷梁换柱
文章目录 `DynamicLinkageGenericFunctions` Constructors and Destructors 方法.信息.类和对象 `new` `delete` `clone` ...

R语言编程 R语言作业

R语言编程 R语言作业相关推荐

最新文章

热门文章