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)

install.packages('sjPlot')
library(sjPlot)

_________________________

_________________________

———————————

———————————

_________________________

_________________________

_________________________

library("remotes")
install_github("jespermaag/gganatogram")
library(gganatogram)

install.packages('skimr')
library(skimr)

_________________________

remotes::install_github("dill/emoGG")
library(emoGG)

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
       geom_emoji(emoji = "1f934")

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_emoji(emoji = "1f48e")

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point() +
  geom_emoji(emoji = "1f697")

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point() +
  add_emoji(emoji = "1f697")

_________________________