想做应该紫外光谱的折线图 但不知道代码哪里错了求助大佬看看呜

我的代码如下
library(readxl) setwd("c:/Users/15940/Desktop/lw/槲皮素(QUE)") df<-read_excel("槲皮素（普荧、同步、位点）.xlsx",range = cell_cols(1:9)) library(tidyr) df_long <- pivot_longer(df, cols = -1, names_to = "浓度", values_to = "吸光值") library(ggplot2) > ggplot(data = df_long, aes(x = '波长', y = '吸光值', color = '浓度')) +
+ geom_line() +
+ labs(title = '槲皮素', x = '波长', y = '吸光值') +
+ theme_minimal()

那个文件夹路径为 C:\Users\15940\Desktop\lw\槲皮素(QUE) 文件格式是excel 名字为槲皮素（普荧、同步、位点） 然后是里面第一个工作表

这个是数据具体样子 大概只是想把这个做成一个 折线图

网上查了一些代码 但怎么也做不出

给孩子无奈了 不知道啥问题

麻烦大佬捞一捞

df_long的数据格式问题

建议检查一下df_long数据格式

图形映射不要使用引号

直接用变量名称就行，aes函数支持数据屏蔽，带引号就变成字符向量了