Iretara  12-17 21:18

以例题的形式简述R语言基础知识

# 读取文件

setwd(" 文件链接的时候，用  /  ")

install.packages(" readxl ")

library(readxl)

library (tidyverse)

hw1_a<- read_excel ("hw1_a.xlsx", col_types=c("numeric", "numeric", "numeric", "numeric", "numeric") )

hw1_b<- read_excel ("hw1_b.xlsx")

#读取csv

library(readr)

hw1_a<- read_csv ("/")

View(hw1_a)

# 描述型函数

hw1_a + hw1_b 表

#描述最小值，最大值，中值，均值，标准差

Str (hw1_a) #查看数据并指出各个 变量的形式

summary (hw1_a) #指出各个变量的形式， 最小值，最大值，中值，均值

library(psych)

describe (hw1_a) #比summary更简便的方法， 可以直接读取标准差等；但是，使用describe不可读取 NA值, 可以尝试使用 Hmisc包中 describe

描述型函数-R

# 连接

hw1_a %>% inner_join (hw1_b, by ="ID")

hw1_a %>% left_join (hw1_b, by ="ID")

hw1_a %>% right_join (hw1_b, by ="ID")

hw1_a %>% full_join (hw1_b, by ="ID")

inner_join<- inner_join (hw1_a,hw1_b, by =“ID”) #报告合并后的 总行数 ，178行

full_join<- full_join (hw1_a,hw1_b, by ="ID")

( nrow (full_join)) #报告合并后的 总行数 ，200行

>  length (full_join$ID)

#找出各个列的 缺失值

i<-NA

a<-NA

for(i in 1:length(full_join[1,])){ a[i]<- sum(is.na( full_join[,i] ) ) }

paste("缺失值是",a)

#缺失值总数

sum(is.na(full_join))

#删除缺失值 na.omit()

full_join1=filter(full_join,!is.na(full_join[2]))

full_join1=filter(full_join1,!is.na(full_join1[3]))

full_join1=filter(full_join1,!is.na(full_join1[4]))

full_join1=filter(full_join1,!is.na(full_join1[5]))

full_join1=filter(full_join1,!is.na(full_join1[6]))

full_join1=filter(full_join1,!is.na(full_join1[7]))

full_join1=filter(full_join1,!is.na(full_join1[8]))

sum(is.na(full_join1))

找出Income中的 极端值 并滤掉对应行的数据

quantile (hw1_a$Income,c(0.025,0.975))

hw1_a2= filter (hw1_a,Income>14168.81 &Income<173030.92)

#使用dplyr进行数据转换

arrange()

>arrange (hw1_a,Income) #默认升序

>arrange(hw1_a, desc (Income)) #desc降序，NA排序一般最后

select()

>select (hw1_a, - (Years_at_Address:Income)) #不要变量

>rename (hw1_a, In_come=Income) #改名

>select（hw1_a,Income, exerything ()） #把Income放在前面

拓例题1：

library(nycflights13)

view(flights)

#counts

（1）

not_cancelled <- flights %>%

filter(! is.na(dep_delay), !is.na(arr_delay))

（2）

not_cancelled %>%

group_by (year,month,day) %>%

summarize (mean=mean(dep_delay))

（3）

delays <- not_cancelled %>%

group_by (tailnum) %>%

summarize (delay=mean(arr_delay))

ggplot (data=delays,mapping=aes(x= delay))+

geom_freqpoly (binwidth=10) #freqpoly

（4）

delays <- not_cancelled %>%

group_by(tailnum) %>%

summarize(delay=mean(arr_delay,na.rm=TRUE), n=n() ) #tailnum的次数

ggplot(data=delays,mapping=aes(x= n, y=delay))+

geom_point(alpha=1/10)

拓例题2：

#请按照价格的均值，产生新的变量price_new, 低于均值为“低价格”，高于均值为“高价格”。 同样对市场份额也是，产生变量marketshare_new, 数值为“低市场份额”和“高市场份额”

price=data1$price

pricebar=mean(price)

price_new= ifelse (price>pricebar,“高价格”,”低价格”)

marketshare=data1$marketshare

marketsharebar=mean(marketshare)

marketshare_new=ifelse(marketshare>marketsharebar ,“高市场份额”,”低市场份额”)

data1= mutate (data1,price_new,marketshare_new)

#可视化

#将Income 对数化

lninc<- log (hw1_a$Income)

#画出直方图和 density curve密度曲线

hist (lninc,prob=T)

lines ( density (lninc),col="blue")

# 添加额外变量 的办法，在 aes()中添加 样式 (color、size、alpha、shape)

ggplot(data=inner_join)+

geom_point(mapping = aes(x=Years_at_Employer,y= Income, alpha= Is_Default))

# 按照Is_Default 增加一个维度，使用明暗程度作为区分方式

ggplot(data=inner_join)+

geom_point(mapping = aes(x=Years_at_Employer,y= Income,

alpha=factor( Is_Default ) ))

#使用形状作为另外一种区分方式

ggplot(data=inner_join)+

geom_point(mapping = aes(x=Years_at_Employer,y= Income,

shape=factor( Is_Default)))

可视化-R

​

​

拓展：

#将 flight1 表和 weather1 表根据共同变量进行内连接，随机抽取 100000 行数据， 将生产的结果保存为 flight_weather。 (提示：sample_n()函数，不用重复抽取)

flight_weather <- inner_join(flight1, weather1) %>% sample_n(100000)

# 从 flight_weather表中对三个出发机场按照平均出发延误时间排降序，并将结果保留在 longest_delay表中。把结果展示出来

longest_delay<- flight_weather %>%

group_by(origin) %>%

summarize(delay=mean(dep_delay, na.rm=TRUE )) %>%

arrange(desc(delay))

#根据不同出发地（origin）在平行的 3 个图中画出风速 wind_speed（x 轴）和出发 延误时间 dep_delay（y 轴）的散点图。

ggplot(data= flight_weather) +

geom_point(mapping=aes(x=wind_speed,y=dep_delay))+

facet_grid(.~origin, nrow = 3 ) # 按照class分类，分成3行

#根据 flight_weather 表，画出每个月航班数的直方分布图，x 轴为月份，y 轴是每个 月份航班数所占的比例。

ggplot(data=flight_weather)+

geom_bar(mapping=aes(x=month, y=..prop .., group=1))

#根据 flight_weather 表，画出每个月航班距离的 boxplot 图，x 轴为月份，y 轴为 航行距离, 根据的航行距离的中位数从低到高对 x 轴的月份进行重新排序

ggplot(data=flight_weather)+

geom_boxplot(mapping=aes(x= reorder (month,distance,FUN=median),y=distance))

线性回归

# 以Income作为因变量，Years at Employer作为自变量，进行 OLS回归

m1<- lm (Income ~ Years_at_Employer,data=hw1_a)

#通过***判断显著性

summary (m1)

#画出拟合直线

ggplot(data= hw1_a)+

geom_point(aes(x=Income,y=Years_at_Employer))+

geom_abline(data= m1,col= "blue")

#证明拟合直线是最优的

b0=runif(20000,-5,5)

b1=runif(20000,-5,5)

d<-NA

sum<-NA

n<-1

while(n<=20000){

for(i in 1:24){

d[i]<-(hw1_a $ Income[i]-b0[n]-b1[n]*hw2$ Years_at_Employer[i])^2}

sum[n]<-sum(d)

n<-n+1

}

resi=m1$residuals

resi2=sum(resi^2)

check=sum(as.numeric(sum<resi2))

check

战歌就是听了之后让人浑身充满力量的DJ或MC喊麦一起玩游戏时来首战歌感觉很爽

德国装甲师战歌，歌名是什么？

德国装甲师的战歌叫《the mass》

歌名：The Mass

所属专辑：《Era》

歌曲原唱：Era

谱 曲：Eric Levi

音乐风格：古典交响乐，电子乐，宗教音乐

歌曲语言：拉丁语

发行日期：2003年

歌词：

Semper crescis aut descrescis

变化无常盈虚交替

Vita detestabilis

可恶的生活

Nunc obdurat et unc curat ludomentis aciem

把苦难和幸福交织在一起

Nunc obdurat et unc curat ludomentis aciem

把苦难和幸福交织在一起

Egestatem potestatem dissolvit ut glaciem

无论贫贱与富贵命运之轮

Divano divano re divano resi

神圣的神圣的神圣的顺序

Divano resido divano resia

神圣的赐福神圣的赐福

Divano divano re divano resido

神圣的神圣的神圣的赐福

Divano resia

神圣的赐福

Sors salutis et virtutis michi nun contraria

我的健康和美德被命运摧残著

Est affectus et defectus semper in angaria

与意志疲劳不堪永远疲于奔命

Hoc in hora sinc mora corde pulsum tangite

就在此刻不要拖延让琴弦拨响

Divano divano re divano resi

神圣的神圣的神圣的顺序

Divano resido divano resia

神圣的赐福神圣的赐福

Divano divano re divano resido

神圣的神圣的神圣的赐福

Divano resia (resia resia resia resia)

神圣的赐福（雷斯肯雷斯肯雷斯肯雷斯肯）

Divano divano re divano resido

神圣的神圣的神圣的赐福

Divano resia (resia resia resia resia...)

神圣的赐福（雷斯肯雷斯肯雷斯肯雷斯肯……）

(Divano)

（神圣的）

Sors salutis et virtutis michi nun contraria

我的健康和美德被命运摧残著

Est affectus et defectus semper in angaria

与意志疲劳不堪永远疲于奔命

Hoc in hora sinc mora corde pulsum tangite

就在此刻不要拖延让琴弦拨响

Divano divano re divano resi

神圣的神圣的神圣的顺序

Divano resido divano resia

神圣的赐福神圣的赐福

Divano divano re埂divano resido

神圣的神圣的神圣的赐福

Divano resia

神圣的赐福

Hoc in hora sinc mora corde pulsum tangite

就在此刻不要拖延让琴弦拨响

Quod per sortem sternt fortem mecum omnes plangite

因为命运也已被命运击垮要把痛苦全部消灭。...

求战歌歌名

找到了 分别是 第一首是 geordie gabry 第二首是 la danza delle streghe 你在库狗里面 就可以听 你还可以听下 凤凰展翅 这个 完传奇 听着 也很 *** 的

游戏战歌网里面有什么比较好听的歌？

火花

逆战

放手一搏

我是愤怒

越夜越有爱

全日爱

era the mass

德国战车

青鸟

金达莱花 - dj

les rois du monde

norther - the final countdown

he s a pirate

网络歌手 - V3（劲乐团）

玩腻 亡灵序曲

shei *** ysin

rammstein - asche zu asche

usher -dj

got usfalling on love

嗯，还有很多，个人感觉亡灵序曲，金达莱花，《克罗地亚狂想曲》《逆战》《青鸟》还有

《德国战车》蛮好听的。这些歌不仅好听，而且高大上。

那一瞬间歌词是什么战歌

感觉夜风像你温柔的缠绵

但虽然象你还是越走越远

轰隆隆的速度带我向前

那一瞬间

爱爱爱~

想到未来

想到从前

就在黑暗路的尽头

一道光划破天边

心涌现

感触万千

感触万千~oh~

在我和我小小的宇宙空间

没人了解也不想人看见

追寻什么的心带我向前

那一瞬间

爱爱爱~

忘了未来

忘了从前

只有我在天地之间

美好平静那一刻

影响未知的明天

心涌现

oh~yeah~

感动万千

感动万千

oh~

那是在乎的宣言

我挺想要去流浪的感觉

oh~渴望那种流浪的感觉

拥抱的感觉~oh~~

想要放开了一切

不在乎有没有人能了解

没有人能了解

就在一瞬间

在那一瞬间

就在一瞬间

在那一瞬间

热血传奇战歌叫什么歌曲名

呵呵，这个问题很多人问，那是 纳粹德国党卫军第一装甲师战歌（传奇战歌） 很经典的 歌名叫《弥散》 要用英文才能搜到

MC天佑得IR战歌歌词

横空出世万人家，钢铁长城阻风沙，

我们誓死捍卫他，他的名字叫 I R，

谈笑之间强虏灭，扫遍Y Y 这一切，

任你花开花又谢，无悔青春这岁月，

华山论剑抖精神，纵横肝胆两昆仑，

王侯到此也称臣，必喊大哥是一人，

亿人国度行仁义，山区善举无人替，

传正气，感天地，青史留名谁不记，

带领I R 战山河，谁要不服腿打折，

肋巴扇子踹骨折，领军人物是阿哲，

天地风云我戏弄，语音为帝我放纵，

兄弟难当我心痛，我们兄弟生死共，

纯散人，好哥哥，动我兄弟尼玛波，

一腔热血把酒喝，一马当先往死磕，

铁血柔情大成就，亿万身家秀一秀，

气冲霄汉破宇宙，一个传奇神话 Q，

国王守护一排排，你要有胆你就来，

人民币里把你埋，福哥笑傲烽火台，

英雄买醉为红颜，哥们义气两承担，

兄弟有难从不烦，最骚国王心痛全，

开个国王十二万，话语不多霸气现，

低调奢华我七哥，带你登上金銮殿

泰山顶上一棵松，晖哥傲立风雨中，

拉满战斗这张弓，天下无敌就是冲

火哥他是下山虎，血战群狼都目睹，

文武双全心所属，嘹亮歌声随风舞，

Y Y 最牛土豪团，龙哥大器唱凯旋，

一声怒吼震山峦，剑锋所指敌胆寒，

所向披靡王大少，彪起礼物如咆哮，

义结金兰政哥哥，情比金坚是王道，

王者之路各不同，天哥煮酒论英雄，

纵横驰骋九万里，逆影皇叔化苍龙，

土豪领队益达兽，嬉笑文章谁看透，

傲血披上金甲胄，百万雄狮霸气漏，

天亦有情天亦老，家族信念永不倒，

Y Y 唱歌谁最好，灵魂唱将是娜宝，

自古英雄出少年，五项绝伦王小源，

他的绝活是语言，快嘴赛过机枪连，

花样另类牛逼帅，小敏感他真有派，

作品火遍Y Y 界，万人模仿万人爱，

银狐硬汉传佳话，专治协议的老大，

替天行道谁不怕，谁要敢来谁趴下，

寒毒不改的传说，谁人不知我嘴哥，

肚大能容江湖事，万人喜爱的弥勒，

夏夏当家一枝花，以柔克刚众人夸，

倾情打造这 I R，你是风儿我是沙，

视频部长哦多K ，后宫三千真妩媚，

国色天香惹人醉，春风一度百花会，

美目传情小腰蛮，二十四桥乌篷船，

红袖添香忆江南，沉鱼落雁恰催眠，

我有忠心不悔改，雨轩怒起披战铠，

我的地带我主宰，阿钊绝唱传千载，

我家靓妹小西瓜，嫣然一笑萌哒哒，

小十三，小十四，人间一对姐妹花，

小维尼、小损样，M C 舞蹈都说棒，

喊得山河气势壮，长江一浪高一浪，

江湖风雨故人心，二驴喊麦唱本真，

江湖人走江湖路，是人是鬼自然分，

别tm叫嚣在挑衅，半仙一起把你训

我们IR最讲理，海纳百川无人比

做人不做白眼狼，小人莫要来猖狂，

你要猖狂叫你忙铁定IR在独强，

YY兄弟谁看穿，自古英雄多疯癫，

IR出动那九州天，天佑留下这诗篇，

不争名也不夺利，只为多情的回忆，

一生一世不忘记，我们永远好兄弟。...

骚男的战歌是什么

不会有这么详细的歌单了！！！！！：：

Thomas Bergersen - Immortal（不朽）

Thomas Bergersen - Ocean Princess (海的公主)

Immediate Music - Serenata Immortale - 纯音乐版

Immediate Music - Electric Romeo

Immediate Music - Imperitum

Immediate Music - Prometheus Rising - 纯音乐版

Two Steps From Hell - Dragon Rider

Ivan Torrent - Human Legacy (人类遗产)

Thomas Bergersen - Merchant Prince (富商)

Audiomachine - Shadowfall

Steven Burke - Hero's Theme

Thomas Bergersen - Final Frontier

Two Steps From Hell - Strength Of A Thousand Men

Audiomachine - Akkadian Empire

Audiomachine - Breath And Life

Thomas Bergersen - Enigmatic Soul

Thomas Bergersen - United We Stand – Divided We Fall

Thomas J. Bergersen - Clash Of Empires

John Dreamer - Being A Legend

Audiomachine - Danuvius

Two Steps From Hell - El Dorado（黄金国）

Two Steps From Hell - For The Win（为了胜利）

Two Steps From Hell - False King（假王）

Two Steps From Hell - Winterspell（寒冰法术）

Immediate Music - Protectors Of Truth

Two Steps From Hell - Archangel

Two Steps From Hell - Sons of War

懒得更新了 骚男新增了 几个 “音响怪物” 的纯音乐他微博有

qq飞车里有一首战歌是什么歌

你说的应该是这首bye bye beautiful-nightwish

《Bye Bye Beautiful》是由Nightwish演唱的一首歌曲，收录在2007年发行的专辑《Dark Passion Play》中。

英雄联盟战歌的背景音乐是什么求歌名

我很忙 - A-Lin

词：邬裕康

曲：施佳阳

不需要假期 我没地方可去

不需要狂欢 人群只是空虚

多数的关心 只是嘴上说说而已

真正懂我的人是自己

我的眼睛一做梦就看到你

一闭上就想哭泣

笑容忽然间变成奢侈品

我的生活 充满了和你有关的记忆

每每靠近 满城风雨

就让我忙的疯掉 忙的累倒

连哭的时间都没有最好

就让我忙的忘掉 你的怀抱

他曾带给我的美好

当有人问好不好

怕伤心夺眶就咬牙说我很忙

这完美的谎 完美的伪装

才让我的痛没人看到

我的眼睛一做梦就看到你

一闭上就想哭泣

笑容忽然间变成奢侈品

你在哪里 曾是每天要问你的一句

我要戒断 这种恶习

就让我忙的疯掉

忙的累倒 连哭的时间都没有最好

就让我忙的忘掉

你的怀抱 他曾带给我的美好

当有人问好不好

怕伤心夺眶就咬牙说我很忙

这完美的谎 完美的伪装

才让我的痛没人看到

当一个麻痹的人 那有多好

心里没别的只有忙忙忙

工作是一种抵抗 一帖解药

人怎能被想念打倒

当有人问好不好

怕伤心夺眶就咬牙说我很忙

这完美的谎 完美的伪装

才让我的痛没人看到

[i5litErit]

n.

文盲

adj.

不识字的, 没受教育的

illiterate

il.lit.er.ate

AHD:[¹-l¹t“…r-¹t]

D.J.[!6l!t*r!t]

K.K.[!6l!t*r!t]

adj.（形容词）

Unable to read and write.See Synonyms at ignorant

文盲的：不会读书写字的参见 ignorant

Having little or no formal education.

无知的：受教育少或未受正规教育的

Marked by inferiority to an expected standard of familiarity with language and literature.

墨水少的：显得不够公认的语言文字水平的

Violating prescribed standards of speech or writing.

语文差错的：违反规定的读写、说话规则的

Ignorant of the fundamentals of a given art or branch of knowledge:

无知的：对某种艺术或知识一窍不通的：

musically illiterate.See Usage Note at literate

对音乐一窍不通的参见 literate

Middle English

中古英语

from Latin illº³tus}

源自 拉丁语 illº³tus}

in- [not] * see in- 1

in- [不] *参见 in-1

lº³tus} [literate] * see literate

lº³tus} [有文化的] *参见 literate

illiteracy

[i5litErEsi]

n.

文盲

illiteracy

il.lit.er.a.cy

AHD:[¹-l¹t“…r-…-s¶]

D.J.[!6l!t*r*si8]

K.K.[!6l!t*r*si]

n.（名词）

【复数】 il.lit.er.a.cies

The condition of being unable to read and write.

文盲：不会读写

An error, as in writing or speech, made by or thought to be characteristic of one who is illiterate.See Usage Note at literate

语文差错：作文或发言中，由文盲或被认为是文盲所犯的错误参见 literate

illiteracy

[i5litErEsi]

n.

失学文盲

(语言)错误

无教育, 无学识

wipe out illiteracy

扫除文盲

functional illiteracy

职业上的文盲

illit“erate

n.（名词）

illit“erately

adv.（副词）

illit“erateness

n.（名词）

illiterate

[i5litErit]

adj.

不能读写的, 目不识丁的

知识浅陋[缺乏]的

语言错误的

未开化的

a largely illiterate population

文盲占多数的人口

an illiterate letter

语言错误百出的信

illiterate

[i5litErit]

n.

无知的人, 文盲

illiterately

adv.

illiterateness

n.