如何对时间轴上放置的点的值进行插值？

我想创建不同位置“x”浓度随时间变化的插值图。如果可能的话，我想水平插值点（即随着时间的推移），以便为每个样本获得平滑的变色水平线。

df<-data.frame(Concentration = rnorm(30), Position = rep(c(0, 1), 15), Sample = rep(c("A", "B"), 15), Date = seq.Date(as.Date("2020-01-01"), as.Date("2020-01-30"), "days"))

df %>% 
  ggplot(aes(x = Date, y = Position)) +
    geom_hline(yintercept = c(0,1),
              size = 0.3) +
    geom_tile(aes(fill = Concentration),
               interpolate = T) +
    xlab("Day")+
    ylab("Sample")

我将不胜感激任何建议。 李

正是如此ggforce::geom_link是为.

library(tidyverse)
library(ggforce)

set.seed(42)
df <- data.frame(Concentration = rnorm(30), Position = rep(c(0, 1), 15), Sample = rep(c("A", "B"), 15), Date = seq.Date(as.Date("2020-01-01"), as.Date("2020-01-30"), "days"))

df %>%
  ggplot(aes(x = Date, y = Position)) +
  geom_link2(aes(group = Position, color = Concentration), size = 10) +
  labs(x = "Day", y = "Sample")

^{Created on 2021-10-25 by the reprex package https://reprex.tidyverse.org (v2.0.1)}