Visualisasi Data


Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.

``` r
library(ggplot2)

data <- data.frame(
  Platform = c("Instagram", "TikTok", "YouTube", "Facebook"),
  Pengguna = c(120, 150, 90, 60)
)

ggplot(data, aes(x = Platform, y = Pengguna)) +
  geom_bar(stat = "identity") +
  labs(
    title = "Jumlah Pengguna Media Sosial",
    x = "Platform",
    y = "Jumlah Pengguna"
  ) +
  theme_minimal()