R语言居民收支数据分析代码
时间: 2023-08-08 07:05:04 浏览: 42
好的,以下是一些R语言居民收支数据分析的示例代码:
1. 读取数据文件
```R
# CSV文件
data <- read.csv("data.csv")
# Excel文件
library(readxl)
data <- read_excel("data.xlsx")
```
2. 查看数据基本信息
```R
# 查看前几行数据
head(data)
# 查看数据结构
str(data)
# 查看数据摘要
summary(data)
```
3. 绘制收入和支出的折线图
```R
library(ggplot2)
# 绘制收入折线图
ggplot(data, aes(x = month, y = income)) +
geom_line()
# 绘制支出折线图
ggplot(data, aes(x = month, y = expenses)) +
geom_line()
```
4. 绘制收入和支出的柱形图
```R
# 绘制收入柱形图
ggplot(data, aes(x = month, y = income)) +
geom_bar(stat = "identity")
# 绘制支出柱形图
ggplot(data, aes(x = month, y = expenses)) +
geom_bar(stat = "identity")
```
5. 绘制收入和支出的饼图
```R
# 计算收入和支出总额
total_income <- sum(data$income)
total_expenses <- sum(data$expenses)
# 绘制收入饼图
ggplot(data.frame(type = c("income", "expenses"),
value = c(total_income, total_expenses)),
aes(x = "", y = value, fill = type)) +
geom_bar(stat = "identity", width = 1) +
coord_polar("y", start = 0)
# 绘制支出饼图
ggplot(data.frame(type = c("expenses", "income"),
value = c(total_expenses, total_income)),
aes(x = "", y = value, fill = type)) +
geom_bar(stat = "identity", width = 1) +
coord_polar("y", start = 0)
```
以上是一些R语言居民收支数据分析的示例代码,希望对您有所帮助。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)