用R语言将按收入五等分划分的某地区城镇居民平均每人纯收入数据表((1)在R中录入上表数据，并保存成名为 mydata 的 csv 格式文件。 (2)将收入户等级转化成有序因子。 (3)将上述数据转化成矩阵。 (4)将上述数据转化成长格式

数据，并将收入等级作为一个变量列。)

1. 在R中录入上表数据，并保存成名为 mydata 的 csv 格式文件。

# 创建数据框
mydata <- data.frame(
  income_level = c("第一等分", "第二等分", "第三等分", "第四等分", "第五等分"),
  average_income = c(1876, 3526, 5124, 7129, 10061)
)

# 将数据框保存成 csv 文件
write.csv(mydata, "mydata.csv", row.names = FALSE)

2. 将收入户等级转化成有序因子。

mydata$income_level <- factor(mydata$income_level, ordered = TRUE)

3. 将上述数据转化成矩阵。

mydata_matrix <- as.matrix(mydata)

4. 将上述数据转化成长格式数据，并将收入等级作为一个变量列。

library(tidyr)

mydata_long <- gather(mydata, key = "variable", value = "value", -income_level)

结果如下：

   income_level        variable value
1        第一等分 average_income  1876
2        第二等分 average_income  3526
3        第三等分 average_income  5124
4        第四等分 average_income  7129
5        第五等分 average_income 10061