The `stargazer` arguments can be put inside of this function. Then the output for the PDF is resized e.g. through something like this: `resizebox.stargazer(df,summary = TRUE,header = FALSE,tab.width = "0.9\\textwidth")` Taken from https://www.thetopsites.net/article/54022279.shtml

resizebox.stargazer.R

# Original source: https://www.thetopsites.net/article/54022279.shtml

resizebox.stargazer = function(..., tab.width = "!", tab.height = "!"
){
  #Activate str_which() function:
  require(stringr) 
  
  #Extract the code returned from stargazer()
  res = capture.output(
    stargazer::stargazer(...)
  )
  
  #Render the arguments:
  tab.width = tab.width
  tab.height = tab.height
  
  #Attach "}" between \end{tabular} and \end{table}
  res = 
    prepend(res, "}", before = length(res))
  
  #Input \resizebox before \begin{tabular}
  res = 
    c(res[1:str_which(res, "^\\\\begin\\{tabular\\}.*")-1],
      paste0("\\resizebox{",tab.width,"}{",tab.height,"}{%"),
      res[str_which(res, "^\\\\begin\\{tabular\\}.*"):length(res)]
    )
  
  #Produce the whole strings
  cat(res, sep = "\n")
}