I am looking for help to create a left-skewed distribution giving a specific mean and standard deviation. EnvStats package has a function to creates bounded right-skewed distribution as shown below with mean=2, sd=.9, lb=1,ub=5, but not left-skewed.
library(EnvStats)
set.seed(20)
# Rigth skewed
x <- rlnormTruncAlt(100, 2, .9, 1, 5)
hist(x)
mean(x)
skewness(x)