# Little useless-useful R function – R-jobs title generator

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**R – TomazTsql**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Another post on the series of useless-useful R functions. This time more on the fun side and only using paste() function for concatenation and sample() function for selection of random items from array.

The complete (longer) list of all the names available on Github.

RJobTitle <- function(){ ### Values Fancystuff = c( 'Regional','Only the best','Insane','Qualitative','Virtuous','Senior' ,'Junior','In-House','Outsourced','Magnificent','Evolutionary','Customer orientated','Product' ,'Dynamic','Corporate Lead','Legacy','Investor','Direct','International','Over-seas','Internal','Human' ,'Creative','Volunteer','Lead','4 Stages of','Complete','Most Advanced','State of the art','Super high' ,'First Class','Powerful','Data','Head of','Master of','Chief of','Officer','Lead','Special') RStuff <- c('CRAN Lover','R Environment','userR! conference','R Package','Lattice','Graphics','Factors','Probability distribution' ,'Sampling','Vectors and numbers','package dependencies','Set.seed','Visualization','Data manipulation','Machine Learning' ,'Plot.ly','Shiny','Sys.getenv','Lubridate','NA','NaN','Environment history','R Script Editor','S3 Class' ,'Box Plot','Infix Operator','Parametrization','Slow Script','Long running Script','R ggplot library','Statistical Models' ,'%>% clause','R WHILE loop','Kronecker product','Matching operator','Integer division','dplyr and data.table' ) Roles = c('Analyst','Project Manager','Expert','Manager','Programmer','Artist' ,'Tamer','Developer','Wrangler','DataFramer','Statistician','Philosopher','ggPlotter' ,'Data Manipulator','tEvangelist','Hero','Guru','partz professional','Composer','Reader','Outliner' ,'Proof-reader','zoo Assistant','data.frame Operator','Matrix Maker','dpylr lover' ,'Tester','Deep tester','Backward tester','Office hater','Hollister','Warrior','Junkie' ,'Wizard','Leader','King','Github Approver','CARET Engineer','e1071 Architect','Rockstar','Ninja','R Coder' ,'Python Hater','Ninja','Captain','Strategist','Consultant','Counsellor','Organizer' ,'Emacs Endorser','Dog','Library Installer','Cheever','RStudio specialist','R Fanboy','Functionist' ,'Researcher','Shadower','Variable lover','Knitter Helper','Debugger','Data Scientists' ,'Statistician','Coffee Addict','Tidyverser','Knitter' ,'R-Studio dispatcher','Advanced Copy/paster','R-Bloggers subscriber','Markdown Writter' ) ### Ordering of subsets and generating R Job Title RTitle <- paste(sample(Fancystuff,1, replace=TRUE),sample(RStuff,1, replace=TRUE),sample(Roles,1, replace=TRUE), sep= " ") RTitle <- paste("Your Greatest of them greatest made-up R job title is: ", RTitle) return(RTitle) } #Run the script RJobTitle()

Once running the function, you should be presented with random, wacky, funky, made-up and non-existing (hopefully) R job.

Or maybe not Sharing with you some of the screen shots from my runs:

Well, a * creative dplyr and data.table Analyst* sounds very attractive.

As always, code is available at Github.

Happy R-ing!

To

**leave a comment**for the author, please follow the link and comment on their blog:**R – TomazTsql**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.