试验二数据整理

为比较不同能量饲料对肉仔鸡生长的影响，某研究所对96只肉仔鸡饲喂三种不同能量水平的饲料，两周后获得生成性能数据如下：

饲料类型	平均日增重(g)	平均日耗料(g)	料重比
A饲料	36.8±2.4	60.5±3.1	1.65±0.12
B饲料	34.9±2.7	56.9±2.4	1.64±0.13
C饲料	21.3±6.6	55.8±1.5	2.74±0.75

1. 假设表中数据均服从正态分布，请模拟出表中数据的观测值并组成数据框；

2. 调用R内置数据ChickWeight，并将该数据与问题1中模拟的数据合并;

3. 删除合并后数据中的缺失值，并“weight“变量名更改成你的名字，并将更改后数据保存成EXCEL文件；

4. 尝试在合并数据中提取子集、排序查看数据结构等操作。

feed <- c("A", "B", "C")
weight_up <- rnorm(3, mean = c(36.8, 34.9, 21.3), sd = c(2.4, 2.7, 6.6))
food <- rnorm(3, mean = c(60.5, 56.9, 55.8), sd = c(3.1, 2.4, 1.5))
weight_food <- rnorm(3, mean = c(1.65, 1.64, 2.74), sd = c(0.12, 0.13, 0.75))
data1 <- data.frame(feed, weight_up, food, weight_food)

data()
chicken<-ChickWeight
library(MASS)

colnames(data1)
colnames(chicken)

data2 <- merge(data1, chicken)
na.fail(data2)
data3<-na.omit(data2)
names(data3)[5]<-"···"
write.xlsx(data3, file = "合并data.xlsx")

food_data<-data3$food[1:100]
food_data_sort <- sort(food_data)
food_data_sort
food_data_sort <- sort(food_data,decreasing = T)
food_data_sort
str(data3)