实验1 熟悉R语言环境_r自带的数据集titanic怎么读取

实验一 熟悉R语言环境

实验目的：掌握R语言的实验环境，掌握R的安装，R包的安装，载入与使用。

实验内容：

1. 请登录R的主页（https://www.r-project.org）,了解R的最新动态，查看MASS包的版本信息，作者信息等。

   

2. 请登录R的CRAN社区（http://cran.r-project.org/）,查看最新版本的R软件。

   

3. 打开帮助文档首页，并查阅其中的“Introduction to R”.

4. 打开R数据包下载页面，查阅当前数据包情况（https://cran.r-project.org/web/packages/）

5. 综合实例

a) 安装vcd包（一个可用于可视化类别数据的包）

b) 列出此包中可用的函数和数据集

c) 载入这个包并阅读数据集Arthritis的描述

d) 显示数据集Arthritis的内容

6. 综合实例

R自带的数据集Titanic记录了泰坦尼克上乘客的生存和死亡信息，该数据集包含船舱等级（class）,性别，年龄和生存状况4个类别变量。

https://blog.csdn.net/c1z2w3456789/article/details/50983713

1）显示该数据集的内容

2）阅读该数据集的描述

7. 显示当前工作目录

8. 修改当前工作目录为“D:\R”或者“E：\R”

9. 查看基础包(datasets)包含的数据集

10. 查看基础包中的iris数据集的前6行数据，后6行数据，以及前12行数据

前6行

后6行

前12行

11. 查看基础包中的mtcars数据集信息

12. 使用帮助函数查看mtcars数据集描述

13. 运行代码> demo(graphics)查看R的绘图功能

14. 综合实验（散点图）

1.) 根据基础包basesets中的数据集airquality的两列数据：Wind 和Temp绘制散点图，图形标题为“The scatter plot of temp and wind”。散点图中点的属性自定。

2.) 使用ggplot2包中的函数完成

> library(ggplot2)
>ggplot(data=airquality,aes(x=Wind,y=Temp))+geom_point(color="orange",fill="blue",shape=21,alpha=0.5,size=0.4,stroke=1.5)+ggtitle("The scatter plot of temp and wind")
1
2

15. 综合实验（简单条形图）

数据:data3_1.csv.根据2000个消费者网购情况的调查数据，分别绘制性别，网购次数和满意度的条形图。其结果如下所示：

(1) 使用read.csv()读取数据到data3_1中，可以采用绝对路径或者相对路径形式读取文件。

> data3_1<- read.csv("E:/R语言/作业/data3_1.csv")
1

文件格式错误

记事本打开CSV文件，更改编码格式选择UTF-8，另存为其他。

(2) 在R控制台查看data3_1的内容

(3) 查看data3_1的模式

> mode(data3_1)
1

(4) 使用attach()函数绑定列表data3_1

> attach(data3_1)
1

(5) 使用table()生成性别的一维表到table1

> table1 <-table(data3_1$性别)
> table1
1
2

(6) 使用table()生成网购次数的一维表到table2

> table2 <- table(data3_1$网购次数)
> table2
1
2

(7) 使用table()生成满意度的一维表到table3

> table3 <- table(data3_1$满意度)
> table3
1
2

(8) 使用layout()进行页面布局，按行存放图形

> layout(matrix(c(1,2,3,3), 2, 2,byrow = TRUE))
1

(9) 使用par()设置图形的边距和字体大小：par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)

> par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)
1

(10) 使用barplot()绘制图(a),参数density=30,angle=0,分别设置填充密度和密度线的角度。参数border=”blue”,即边框线设为蓝色。

> barplot(table1,main = "(a)水平条形图",horiz = TRUE,xlab = "人数",ylab="性别",density = 30,angle = 0,border = "blue")
1

(11) 使用barplot()绘制图（b）, 参数density=20,angle=90.

> barplot(table2,main = "(b)垂直条形图",xlab = "网购次数",ylab="人数",density = 20,angle = 90,col=c("red","green","blue"))
1

(12) 使用barplot()绘制图（c）,颜色设置自行选择。

> barplot(table3,main = "(c)垂直条形图",xlab = "满意度",ylab="人数",col=c("red","yellow","green"))
1

(13) 通过改变barplot()参数，如angle，观看图形的变化。

这里已第一个图为例，将 angle 修改为45

barplot(table1,main = "(a)水平条形图",horiz = TRUE,xlab = "人数",ylab="性别",density = 30,angle = 45,border = "blue")
1

(14) 最后将完整的代码复制到R编译器中，清空控制台内容，运行代码并观察图形的输出。

#first.R
data3_1<- read.csv("E:/R语言/作业/data3_1.csv")
attach(data3_1)
table1 <-table(data3_1$性别)
table2 <- table(data3_1$网购次数)
table3 <- table(data3_1$满意度)
#使用layout()进行页面布局，按行存放图形
layout(matrix(c(1,2,3,3), 2, 2,byrow = TRUE))
#使用par()设置图形的边距和字体大小
par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)
#使用barplot()绘制图(a),参数density=30,angle=0,分别设置填充密度和密度线的角度。参数border=”blue”,即边框线设为蓝色。
barplot(table1,main = "(a)水平条形图",horiz = TRUE,xlab = "人数",ylab="性别",density = 30,angle = 0,border = "blue")
#使用barplot()绘制图（b）, 参数density=20,angle=90.
barplot(table2,main = "(b)垂直条形图",xlab = "网购次数",ylab="人数",density = 20,angle = 90,col=c("red","green","blue"))
#使用barplot()绘制图（c）,颜色设置自行选择。
barplot(table3,main = "(c)垂直条形图",xlab = "满意度",ylab="人数",col=c("red","yellow","green"))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

运行结果如下：

``