Cleaning Environment

rm(list=ls())

Creating function

Password = function(n){
  
  sampling = c(1:9,letters,LETTERS,"!","@","#","$","%","^","&","*","(",")","_")
  paste(sample(sampling,n),collapse="")
  
}

Running the function now to generate password of 8 digits as per need

Password(8)
## [1] "XjIqsE5A"

And that is it, its easy to generate a password