I would like help to insert the horizontal line into my graph below. Note that the `abline`

function uses the variable `m`

. I'll explain with examples because I believe it's easier to understand

Example: I defined in the `dmda`

as 02/07 (Friday) and Code as `CDE`

, so the variable `m`

for this Data and Code is 4. Therefore, the horizontal line on the graph would have to be 4 for this day and the code I mentioned.

For 03/07 (Saturday), Code `FGH`

, variable `m`

is 5, then the horizontal line on the graph would have to be 5 for this date and code.

Therefore, the code below only generates the graph, but does not insert the line corresponding to the chosen date and code.

```
library(dplyr)
library(tidyverse)
library(lubridate)
library(stringr)
df1 <- structure(
list(date1= c("2021-06-28","2021-06-28","2021-06-28","2021-06-28","2021-06-28",
"2021-06-28","2021-06-28","2021-06-28"),
date2 = c("2021-06-30","2021-06-30","2021-07-01","2021-07-01","2021-07-02","2021-07-02","2021-07-02","2021-07-03"),
Code = c("ABC","BCD","ABC","CDE","DCE","CDE","FGH","FGH"),
Week= c("Wednesday","Wednesday","Thursday","Thursday","Friday","Friday","Friday","Saturday"),
DR1 = c(4,1,4,3,3,4,3,5),
DR01 = c(4,1,4,3,3,4,3,6), DR02= c(4,2,6,7,3,2,7,4),DR03= c(9,5,4,3,3,2,1,5),
DR04 = c(5,4,3,3,6,2,1,9),DR05 = c(5,4,5,3,6,2,1,9),
DR06 = c(2,4,3,3,5,6,7,8),DR07 = c(2,5,4,4,9,4,7,8),
DR08 = c(0,0,0,1,2,0,0,0),DR09 = c(0,0,0,0,0,0,0,0),DR010 = c(0,0,0,0,0,0,0,0),DR011 = c(4,0,0,0,0,0,0,0),
DR012 = c(0,0,0,3,0,0,0,5),DR013 = c(0,0,1,0,0,0,2,0),DR014 = c(0,0,0,0,0,2,0,0)),
class = "data.frame", row.names = c(NA, -8L))
datas <- structure(
list(Code = c("ABC","ABC","ABC","CDE","CDE","CDE","ABC","FGH","FGH"),
Days = c(11,12,13,11,12,13,11,12,13),
Numbers = c(11,17,13,12,12,12,17,12,15)),
class = "data.frame", row.names = c(NA, -9L))
m<-df1 %>%
group_by(Code,Week) %>%
summarize(across(starts_with("DR1"), mean))
> m
# A tibble: 8 x 3
# Groups: Code [5]
Code Week DR1
<chr> <chr> <dbl>
1 ABC Thursday 4
2 ABC Wednesday 4
3 BCD Wednesday 1
4 CDE Friday 4
5 CDE Thursday 3
6 DCE Friday 3
7 FGH Friday 3
8 FGH Saturday 5
dmda<-"2021-07-02"
CodeChosse<-"CDE"
f1 <- function(dat, code_nm) {
dat <- subset(dat, Code == code_nm)
plot(Numbers ~ Days, xlim= c(0,45), ylim= c(0,30),
xaxs='i',data = dat,main = paste0(dmda, "-", code_nm))
abline(h=m,lwd=2)
points(0, m, col = "red", pch = 19, cex = 2, xpd = TRUE)
text(.1,m+ .5, round(m,1), cex=1.1,pos=4,offset =1,col="black")
}
f1(datas, CodeChosse)
Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) :
'list' object cannot be coerced to type 'double
```