here it is:
#libraries
library(sqldf)
library(ggplot2)
library(ggpubr)
library(dplyr)
library(tibble)
#the dataframe
data.frame(
time = c(10, 20, 30, 40, 50),
control = c(10, 20, 25, 38, 40),
temp_20_pH_7.67 = c(18, 30, 40, 43, 48),
temp_23_pH_8.1 = c(3, 5, 8, 10, 13),
temp_23_ph_7.67 = c(10, 10, 13, 15, 25)
)
#the command
dot_graph = ggplot()+
geom_point(data = table_3, aes(x = time, y=control), shape = "triangle", color = "blue")+
geom_point(data = table_3, aes(x = time, y=temp_20_pH_7.67), shape = "circle", color = "green")+
geom_point(data = table_3, aes(x = time, y=temp_23_pH_8.1), shape = "square", color = "limegreen")+
geom_point(data = table_3, aes(x = time, y=temp_23_ph_7.67), shape = "cross", color = "mediumblue")+
theme(legend.position = "top")+
xlab('time')+
ylab('% of settlement')+
scale_x_discrete(limits = c(0,20,40,60,80,100,120))+
scale_y_discrete(limits = c(0,20,40,60,80,100))+
theme_classic()+
theme(plot.margin = unit(c(2,2,2,2),"cm"))+
expand_limits(y=c(0,100))+
ggtitle("Larvae settlement time in each treatment")+
theme(plot.title = element_text(hjust=0.5))