如何用R或其他软件在图像上绘制指定起止点的时间序列折线？支持弯曲折线吗？

一、R语言实现方案 #

1. 准备工作 #

先加载所需工具包，导入你的数据和目标图像：

# 安装依赖包（首次运行需执行）
install.packages(c("magick", "ggplot2", "dplyr", "scales"))

# 加载包
library(magick)
library(ggplot2)
library(dplyr)
library(scales)

# 导入你的时间序列数据
data <- tibble(
  index = 1:15,
  value = c(2.064189, 2.259854, 2.483817, 2.243919, 2.259637,
            1.994976, 1.898974, 1.799953, 2.153994, 2.179374,
            2.637224, 3.780604, 4.52431, 4.540029, 3.968827)
)

# 加载目标图像
img <- image_read("https://i.sstatic.net/m3hLN.jpg")
img_dim <- image_info(img)[c("width", "height")]

2. 绘制指定起止点的直线折线 #

通过归一化数据，将时间序列映射到图像的指定坐标范围（这里自定义x轴起止为图像左右各留100像素，y轴对应数据范围）：

# 归一化数据到图像坐标
data <- data %>%
  mutate(
    x = rescale(index, to = c(100, img_dim$width - 100)), # 自定义x起止位置
    y = rescale(value, to = c(img_dim$height - 100, 100)) # 反转y轴（图像y轴向下）
  )

# 叠加图像与折线
p_line <- ggplot() +
  annotation_raster(img, xmin=0, xmax=img_dim$width, ymin=0, ymax=img_dim$height) +
  geom_path(data = data, aes(x = x, y = y), color = "red", size = 1.2) +
  coord_fixed() +
  theme_void()

# 查看结果
print(p_line)

3. 绘制弯曲折线 #

通过样条插值生成平滑曲线，实现弯曲折线效果：

# 样条插值生成平滑点
spline_data <- data %>%
  spline(x = .$index, y = .$value, n = 50) %>% # n控制平滑度，值越大越平滑
  as_tibble() %>%
  mutate(
    x = rescale(x, to = c(100, img_dim$width - 100)),
    y = rescale(y, to = c(img_dim$height - 100, 100))
  )

# 绘制弯曲折线
p_curve <- ggplot() +
  annotation_raster(img, xmin=0, xmax=img_dim$width, ymin=0, ymax=img_dim$height) +
  geom_path(data = spline_data, aes(x = x, y = y), color = "blue", size = 1.2, lineend = "round") +
  coord_fixed() +
  theme_void()

print(p_curve)

二、其他工具选项 #

• Python：可以用PIL加载图像，matplotlib绘图，结合scipy.interpolate.spline生成弯曲折线，逻辑和R类似，都是先映射数据到图像坐标，再叠加绘制。
• Photoshop/GIMP：手动绘制的话，可先将数据导出为坐标点，再用软件的钢笔工具绘制直线或弯曲路径，但自动化程度低，适合少量需求。

关键说明 #

• 你可以通过修改rescale函数的to参数，精准控制折线在图像上的起止位置。
• 样条插值的n参数决定弯曲折线的平滑程度，数值越大曲线越细腻。

内容的提问来源于stack exchange，提问作者confusedindividual