R- How to do curved surface on multiple linear regression

Question

I have written this

library(readxl)
new_set <- read_excel("C:/Users/Defne/Desktop/new_set.xlsx")
View(new_set)
pf<- new_set 
x1 <- pf$SO2 -