求助：使用R读取两个Excel文件前100行生成折线图

步骤1：安装并加载依赖包 #

运行以下代码安装并加载读取Excel、处理数据和绘图所需的工具包：

install.packages(c("readxl", "tidyverse"))
library(readxl)
library(tidyverse)

步骤2：读取Excel数据并保留前100行 #

将两个Excel文件放在当前工作目录下，替换代码中的文件名，读取数据并仅保留前100行：

# 读取第一个文件并标记数据来源
df1 <- read_excel("你的第一个Excel文件名.xlsx") %>%
  slice(1:100) %>%
  mutate(source = "文件1")

# 读取第二个文件并标记数据来源
df2 <- read_excel("你的第二个Excel文件名.xlsx") %>%
  slice(1:100) %>%
  mutate(source = "文件2")

步骤3：合并并整理数据 #

合并两个数据集，若你的数据是宽格式（多列数值指标），需转换为长格式以适配折线图绘制：

# 合并两个数据集
combined_df <- bind_rows(df1, df2)

# 若数据为宽格式，执行以下代码转长格式（替换`序号列名`为实际列名）
# combined_df <- combined_df %>%
#   pivot_longer(cols = -c(source, 序号列名), names_to = "指标", values_to = "数值")

步骤4：生成目标样式折线图 #

根据需求绘制折线图，替换代码中的轴标签和列名以匹配你的数据：

ggplot(combined_df, aes(x = 序号列名, y = 数值列名, color = source, group = source)) +
  geom_line(size = 1) +  # 设置折线粗细
  geom_point(size = 2) +  # 添加数据点
  labs(
    title = "自定义图表标题",
    x = "X轴名称",
    y = "Y轴名称",
    color = "数据来源"
  ) +
  theme_minimal() +  # 使用简洁主题，可按需调整
  theme(plot.title = element_text(hjust = 0.5))  # 标题居中对齐

注意事项 #

• 请根据实际Excel文件的列名，替换代码中的序号列名和数值列名
• 若数据是单数值列，可直接省略转长格式的代码
• 如需匹配目标图的特殊样式（如特定颜色、线条类型），可通过scale_color_manual()或geom_line(linetype=...)自定义调整

内容的提问来源于stack exchange，提问作者Vamberto Rocha Junior