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

names(feathers_palettes)

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)

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")

_________________________

_________________________

_________________________

_________________________

_________________________

_________________________