R 绘制各波段下药材吸光度折线图

假设你已经有了药材各波段下的吸光度数据，可以使用 R 中的 ggplot2 包绘制折线图。

首先，将数据存储在一个数据框中，其中每一行代表一个药材样本，每一列代表一个波段下的吸光度。例如：

library(ggplot2)

# 创建一个示例数据框
df <- data.frame(
  wavelength = c(400, 450, 500, 550, 600, 650, 700),
  sample1 = c(0.3, 0.2, 0.1, 0.05, 0.07, 0.1, 0.15),
  sample2 = c(0.35, 0.25, 0.12, 0.08, 0.1, 0.13, 0.2),
  sample3 = c(0.4, 0.3, 0.15, 0.1, 0.12, 0.17, 0.25)
)

接下来，使用 `gather` 函数将数据从宽格式转换为长格式，方便后续绘图。代码如下所示：

# 将数据从宽格式转换为长格式
df_long <- tidyr::gather(df, key = "sample", value = "absorbance", -wavelength)

现在我们可以使用 ggplot2 绘制折线图了。首先，设置 x 轴为波长，y 轴为吸光度，同时使用 `group` 参数将不同样本的吸光度连接起来。代码如下所示：

# 绘制折线图
ggplot(df_long, aes(x = wavelength, y = absorbance, group = sample, color = sample)) +
  geom_line() +
  labs(x = "Wavelength (nm)", y = "Absorbance")

运行以上代码，即可得到各波段下药材吸光度的折线图。你可以根据需要进行调整和美化，例如添加标题、修改颜色等。