> head(APD.dataframe)
  Serial_number Lot Wafer Irradiated Amplification Voltage Dark_current
1     912009913   9   912          0       1.00252 24.9681     0.000059
2     912009913   9   912          0       1.00452 29.9591    -0.002713
3     912009913   9   912          0       1.00537 34.9494    -0.018948
4     912009913   9   912          0       1.00560 44.9372    -0.023865
5     912009913   9   912          0       1.00683 49.9329    -0.032359
6     912009913   9   912          0       1.00690 54.9625    -0.039507

library(dplyr)
APDmin_irr<- APD.frame_irr %>% group_by(Serial_number, Threshold)  %>% top_n(n, Amplification) %>%  ungroup()
APDmin_irr<- APDmin_irr[!APDmin_irr$Threshold == "No", ]
APDmax_irr<- APD.frame_irr %>% group_by(Serial_number, Threshold)  %>% top_n(-n, Amplification) %>% ungroup()
APDmax_irr<- APDmax_irr[!APDmax_irr$Threshold == "Yes", ]
APD_irr<- rbind(APDmin_irr, APDmax_irr)
APD_irr<- with(APD_irr, APD_irr[order(Serial_number, Amplification),])
APD_irr$Threshold<- NULL

ggeffect(fit3_irr)
Error: Unknown column `log(log(Amplification))`
In addition: Warning message:
'glue::collapse' is deprecated.
Use 'glue_collapse' instead.
See help("Deprecated") and help("glue-deprecated").

APDmin_irr<- APD.frame_irr %>% group_by(Serial_number, Threshold)  %>% top_n(n, Amplification) %>%  ungroup()
APDmin_irr<- APDmin_irr[!APDmin_irr$Threshold == "No", ]
APDmax_irr<- APD.frame_irr %>% group_by(Serial_number, Threshold)  %>% top_n(-n, Amplification) %>% ungroup()
APDmax_irr<- APDmax_irr[!APDmax_irr$Threshold == "Yes", ]
APD_irr<- rbind(APDmin_irr, APDmax_irr)
APD_irr<- with(APD_irr, APD_irr[order(Serial_number, Amplification),])
APD_irr$Threshold<- NULL