Я хочу линейный график со средним и SD, как

Question

Я хочу график, похожий на рисунок, но не понимаю, как это сделать. На самом деле есть разные данные на ту же дату, как я сделал его линию.

library(tidyverse)
library(data.table)
fish <- read_csv(file = "FishF.csv", col_types = cols(DD= col_factor()))
fish1<-fish[is.na(fish)] <- 0
fish
View(fish)
fd<-fish[,c(1,2,3)]
1
newfish <- melt(setDT(fish), id.vars = "DD", 
                measure.vars = patterns("avg","SE"),
                value.name = c("avg","SE"))[ , variable := lvls_revalue(variable, c("C3", "IgM", "IgT", "KHV", "Lyso"))][]
n<-  melt(setDT(fd), id.vars = "DD", 
          measure.vars = patterns("avg","SE"),
          value.name = c("avg","SE"))[ , variable := lvls_revalue(variable, c("C3"))][]