R语言的excel数据分析问题

Question

1.Excel表里每一行去除空值后绘制一个折线图（要有x轴y轴的名称以及图的标题）
2.表1和表2前缀一样的两行一起再绘制一个折线图（即一个 保费+一个 赔款及给付）
需要用R语言解决的代码

exce表内容如下
指标 2023 2022 2021 2020 2019
保险公司赔款及给付(亿元) 18883 15485.14 15608.64 13907.1 12893.9
财产保险公司赔款及给付(亿元) 9171 9078.15 8848.03 7880.42 7278.7
企业财产保险赔款及给付(亿元) 256.81 290.63 245.13 237.03
家庭财产保险赔款及给付(亿元) 32.48 39.42 33.64 36.67
机动车辆保险赔款及给付(亿元) 5138.14 5343.84 4725.5 4613.38
财产保险公司工程保险赔款及给付(亿元) 71.41 81.43 63.26 67.56
财产保险公司责任保险赔款及给付(亿元) 508.05 460.35 395.11 341.69
财产保险公司信用保险赔款及给付(亿元) 105.56 131.21 138.36 113.41
财产保险公司保证保险赔款及给付(亿元) 512.12 397.44 559.14 376.71
财产保险公司船舶保险赔款及给付(亿元) 33.85 38.73 39.53 35.16
财产保险公司货物运输保险赔款及给付(亿元) 82.52 74.61 68.99 69.74
财产保险公司特殊风险保险赔款及给付(亿元) 27.91 21.21 44.95 39.47
财产保险公司农业保险赔款及给付(亿元) 868.94 720.19 592.52 527.87
财产保险公司健康险赔款及给付(亿元) 1121.87 959.84 757.65 623.4
财产保险公司意外伤害保险赔款及给付(亿元) 199.34 200.69 167.98 153.63
财产保险公司其他险赔款及给付(亿元) 119.17 88.43 48.66 42.95
人寿保险公司赔款及给付(亿元) 6406.99 6760.6 6026.7 5615.1
人寿保险公司寿险赔款及给付(亿元) 3791.4 3540.3 3715.11 3742.94
人寿保险公司健康险赔款及给付(亿元) 2477.66 3068.66 2163.51 1728.08
人寿保险公司人身意外伤害险赔款及给付(亿元) 137.93 151.7 148.06 144.03

Answer 1

下午好🌅🌅🌅
本答案参考ChatGPT-3.5

1.使用R语言进行Excel表的数据分析

2.针对问题1，可以通过如下步骤进行折线图的绘制：

• 读取Excel表格数据，用readxl包中的read_excel()函数；
• 对数据进行处理，将空值去除，可以使用dplyr包中的filter()和na.omit()函数。首先筛选出不含NA值的数据，然后去除空值；
• 用ggplot2包中的ggplot()函数创建折线图，并设置x轴和y轴的名称，以及图的标题；
• 最后使用geom_line()函数在图中添加折线。

代码如下：

# 读取Excel表格数据
library(readxl)
data <- read_excel("filepath.xlsx", sheet = "Sheet1")

# 去除空值
library(dplyr)
data <- filter(data, !is.na(`2023`))
data <- na.omit(data)

# 绘制折线图
library(ggplot2)
ggplot(data, aes(x = `指标`, y = `2023`)) +
  geom_line() +
  labs(title = "2023年指标折线图", x = "指标", y = "2023") 

3.针对问题2，可以通过以下步骤绘制一张同时包含表1和表2前缀相同指标的保费和赔款的折线图：

• 读取Excel表格数据，用readxl包中的read_excel()函数；
• 对数据进行处理，去除空值，然后使用merge函数将表1和表2前缀相同的两行数据合并成一个数据集；
• 用ggplot2包中的ggplot()函数创建折线图，并设置x轴和y轴的名称，以及图的标题；
• 最后使用geom_line()函数在图中添加两条折线。

代码如下：

# 读取数据，去除空值
data1 <- read_excel("filepath.xlsx", sheet = "Sheet1")
data1 <- filter(data1, !is.na(`2023`))

data2 <- read_excel("filepath.xlsx", sheet = "Sheet2")
data2 <- filter(data2, !is.na(`2023`))

# 合并前缀相同的行
data_combined <- merge(data1[1:3], data2[1:3], by = "指标")

# 绘制折线图
ggplot(data_combined, aes(x = `指标`)) +
  geom_line(aes(y = `2023.x`, color = "保费")) +
  geom_line(aes(y = `2023.y`, color = "赔款及给付")) +
  labs(title = "2023年保费和赔款折线图", x = "指标", y = "金额") +
  scale_color_manual(name = "", values = c("保费" = "red", "赔款及给付" = "blue"))

运行上述两段代码，可以得到两张折线图，符合问题的要求。