This is my code for the plot. I have tried different values for text size.
I used the featurescatter function because it comes with the package I used for data analysis, and this returns a ggplot object
FeatureScatter(object = hep_plot, feature1 = "A",
feature2 = "B", group.by = "filter",
cols = c("#cccccc", "#de2d26"))+
geom_hline(yintercept = 50, col= "black", linetype= "dashed")+
geom_vline(xintercept = 800, col= "black", linetype = "dashed")+
labs(x= "A", y="B")+
geom_text(aes(Inf, 50, label= "50", hjust =1, vjust= -1, size= text.size, family = "sans"))+
geom_text(aes(800, Inf, label="800", hjust=-0.5, vjust = 1, size=text.size, family= "sans"))+
scale_x_log10()
hep_plot <- data.frame(A= rep(c(1:10), times=10), B=seq(from=0, to=198, by=2), filter= rep(c("yes", "no")))
It is quite big data and I do not think the data frame I made is sufficient, but here is a picture of what I have so far. It is about the 800 and 50 in the graph, I want them to be bigger