plotting image data via ggimg

Data Source: Daryo.uz

Code

ggplot(stars) +
  geom_point_img(aes(
    x = artists,
    y = price,
    img = img_path
  ), size = 1.3) -> p
#
p +
  geom_text(data = stars, aes(
    x = artists, 
    y = price, 
    label = paste(price, "$")), 
    size = 4, 
    vjust = -3.0) +
  scale_y_continuous(limits = c(0,5500), breaks = seq(0, 5500, by = 500),
                     labels = function(x) paste0(x, "$")) +
  labs(title = "Xonandlarning birrovga borish narxi ©СФ",
       subtitle = "Malumotlar \"Daryo.uz\" ga asoslangan",
       x = "Sanatkorlar",
       y = "\"Birrov\" narxi") +
  theme_minimal()+
  theme(plot.title = element_text(color = "dodgerblue4", size = 14, face = "bold", hjust = 0.5),
        plot.subtitle = element_text(color = "dodgerblue", size = 13, face = "bold.italic", hjust = 0.5),
        axis.title.x = element_text(color="indianred4", size = 12, face="bold", vjust = 0.1),
        axis.title.y = element_text(color="indianred4", size = 12, face="bold", vjust = 1.9),
        axis.text.x = element_text(colour = "slateblue", size = 10, face = "bold.italic", vjust = 0.5),
        axis.text.y = element_text(colour = "darkblue", size = 10, face = "plain", vjust = 0.5)
        ) -> pp
pp

Code

imgg <- "gallery_img/stars/imgsb.png"
p1 <- ggbackground(pp, imgg)
p1