Could you help me understand why I can generate the graph when my else if condition is not being considered, but when I consider, the graph is not generated? I found it strange that this happens, any help is welcome! If you can help me fix this, I appreciate it!
Note: My idea is that if datas$Numbers has 3 or more identical values it executes the else if condition. Otherwise, the else condition, which uses the nls function. As can be seen datas has 4 numbers, being 3 equal (10) and one different (10.5), so the correct function for this case is nls function.
Not considering else if
library(dplyr)
df1 <- structure(
list(date1= c("2021-06-28","2021-06-28","2021-06-28","2021-06-28","2021-06-28"),
date2 = c("2021-06-29","2021-06-29","2021-07-06","2021-07-06","2021-07-06"),
Category = c("FDE","ABC","FDE","ABC","DDE"),
Week= c("Tuesday","Tuesday","Tuesday","Tuesday","Tuesday"),
DR1 = c(4,2,0,3,2),
DR01 = c(4,1,0,3,2), DR02= c(4,2,0,2,4),DR03= c(9,5,0,7,1),
DR04 = c(5,4,0,2,1),DR05 = c(5,4,0,4,1),
DR06 = c(2,4,0,2,4),DR07 = c(2,5,1,4,5),
DR08 = c(3,4,1,4,4),DR09 = c(2,3,1,4,5),DR10 = c(2,3,1,4,5),DR11 = c(2,3,0,4,5),DR12 = c(2,3,0,4,5)),
class = "data.frame", row.names = c(NA, -5L))
datas<-structure(list(Category = c("ABC", "ABC", "ABC", "ABC"),
Days = c(41, 42, 43, 44),
Numbers = c(10,10, 10, 10.5)), row.names = c(NA, -4L), class = "data.frame")
f1 <- function(dmda, CategoryChosse) {
plot(Numbers ~ Days, xlim= c(0,45), ylim= c(0,30),
xaxs='i',data = datas,main = paste0(dmda, "-", CategoryChosse))
m<-df1 %>%
group_by(Category,Week) %>%
summarize(across(starts_with("DR1"), mean))
m<-subset(m, Week == df1$Week[match(ymd(dmda), ymd(df1$date2))] & Category == CategoryChosse)$DR1
if (nrow(datas)<=2){
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")
}
#else if(any(table(datas$Numbers) >= 3)){
#yz <- unique(datas$Numbers)
#lines(c(0,datas$Days), c(yz, datas$Numbers), lwd = 2)
#points(0, yz, col = "red", pch = 19, cex = 2, xpd = TRUE)
#text(.1,yz+ .5,round(yz,1), cex=1.1,pos=4,offset =1,col="black")}
else{
mod <- nls(Numbers ~ b1*Days^2+b2,start = list(b1 = 0,b2 = 0),data = datas, algorithm = "port")
new.data <- data.frame(Days = with(datas, seq(min(Days),max(Days),len = 45)))
new.data <- rbind(0, new.data)
lines(new.data$Days,predict(mod,newdata = new.data),lwd=2)
coef<-coef(mod)[2]
points(0, coef, col="red",pch=19,cex = 2,xpd=TRUE)
text(.99,coef + 1,max(0, round(coef,1)), cex=1.1,pos=4,offset =1,col="black")
}
}
f1("2021-06-29", "ABC")
Considering else if
f1 <- function(dmda, CategoryChosse) {
plot(Numbers ~ Days, xlim= c(0,45), ylim= c(0,30),
xaxs='i',data = datas,main = paste0(dmda, "-", CategoryChosse))
m<-df1 %>%
group_by(Category,Week) %>%
summarize(across(starts_with("DR1"), mean))
m<-subset(m, Week == df1$Week[match(ymd(dmda), ymd(df1$date2))] & Category == CategoryChosse)$DR1
if (nrow(datas)<=2){
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")
}
else if(any(table(datas$Numbers) >= 3)){
yz <- unique(datas$Numbers)
lines(c(0,datas$Days), c(yz, datas$Numbers), lwd = 2)
points(0, yz, col = "red", pch = 19, cex = 2, xpd = TRUE)
text(.1,yz+ .5,round(yz,1), cex=1.1,pos=4,offset =1,col="black")}
else{
mod <- nls(Numbers ~ b1*Days^2+b2,start = list(b1 = 0,b2 = 0),data = datas, algorithm = "port")
new.data <- data.frame(Days = with(datas, seq(min(Days),max(Days),len = 45)))
new.data <- rbind(0, new.data)
lines(new.data$Days,predict(mod,newdata = new.data),lwd=2)
coef<-coef(mod)[2]
points(0, coef, col="red",pch=19,cex = 2,xpd=TRUE)
text(.99,coef + 1,max(0, round(coef,1)), cex=1.1,pos=4,offset =1,col="black")
}
}
f1("2021-06-29", "ABC")
Error in xy.coords(x, y) : 'x' and 'y' lengths differ