install.packages("randomNames")
library(randomNames)

> randomNames(3)
[1] "Dodd, Reese"       "Clements, Clayton" "al-Badie, Mudrika"

> randomNames(3, gender=0)
[1] "Berhe, Dashawn"   "Tsuchiya, Oliver" "Wright, Jorge" 

> randomNames(3, gender=1, ethnicity=6, which.names="first") 
[1] "Ruqayya" "Sawada"  "Awaatif"

install.packages("ggdist")
library(ggdist)

devtools::install_github("shandiya/feathers")
library(feathers)

names(feathers_palettes)

install.packages('modelsummary')
library(modelsummary)

fit <- lm(Sepal.Length ~ ., iris)
modelsummary(fit)

modelsummary(fit, output = "table.docx")
modelsummary(fit, output = "table.tex")

install.packages("ggside")
library(ggside)

ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point(size = 2) +
  geom_xsideboxplot(aes(y =class), orientation = "y") +
  scale_xsidey_discrete() +
  geom_ysidedensity(aes(x = after_stat(density)), position = "stack") +
  scale_ysidex_continuous(guide = guide_axis(angle = 90), minor_breaks = NULL) +
  theme(ggside.panel.scale = .3)

df <- data.frame(method=LETTERS[1:8], rate=runif(8,1,5))
ggplot(data=df, aes(x=method, y=rate, fill=method))+geom_bar(stat="identity")

ggplot(data=df, aes(x=reorder(method,rate), y=rate, fill=method)+geom_bar(stat="identity")

df <- data.frame(x=runif(50,1,5), y=runif(50,1,5))
p <- ggplot(data=df, aes(x=x, y=y)) + geom_point(col=3, size=6)
p

# change the number of breaks 20 y-axis
p + scale_y_continuous(breaks=seq(0,5,length=20))

# change the number of breaks 20 x-axis
p + scale_x_continuous(breaks=seq(0,5,length=8))

remotes::install_github("jnolis/ggirl")
library(ggirls)