knitr::opts_chunk$set(
  echo = TRUE,
  results = 'markup',
  message = FALSE,
  warning = FALSE
)

Tugas gtrends upload data manual dan ganti kolom

library(tidyverse)
library(readr)
gm <- read.csv("C:/Users/ihsan/OneDrive/Documents/Semester 6/Bintel/gm.csv")
ts <- read.csv("C:/Users/ihsan/OneDrive/Documents/Semester 6/Bintel/ts.csv")
colnames(gm) <- c("provinsi", "gemini", "gpt", "claude")
colnames(ts) <- c("minggu", "gemini", "gpt", "claude")

Preprocessing data time series

library(tidyverse)
data_ts_clean <- ts %>%
  mutate(minggu = as.Date(minggu)) %>%
  mutate(across(-minggu, ~ {
    x <- as.character(.x)
    x <- gsub("%", "", x)
    x <- ifelse(x == "<1", "0", x)
    as.numeric(x)
  }))

data_ts_long <- data_ts_clean %>%
  pivot_longer(
    cols = -minggu,
    names_to = "Keyword",
    values_to = "Minat",
    values_transform = list(Minat = as.numeric)
  )

Plot data time series

library(ggplot2)
ggplot(data_ts_long, aes(x = minggu, y = Minat, color = Keyword)) +
  geom_line(linewidth = 1) +
  labs(title = "Tren Pencarian AI dari Waktu ke Waktu di Indonesia",
       x = "Waktu",
       y = "Skor Pencarian (0-100)",
       color = "Keyword") +
  theme_minimal()

Dari grafik time series dapat dilihat Gemini mengalami lonjakan di 2025 yang mana waktu itu Gemini membuka pendaftaran fitur pro gratis untuk student. Kemudian setelah tren itu turun Gemini mengalami kenaikan skor pencarian menjadi yang lebih tinggi dari ChatGPT dan Claude.

Preprocessing data per wilayah

data_geo_clean <- gm %>%
  mutate(across(-provinsi, ~ {
    x <- as.character(.x)
    x <- gsub("%", "", x)
    x <- ifelse(x == "<1", "0", x)
    as.numeric(x)
  }))

data_geo_long <- data_geo_clean %>%
  pivot_longer(
    cols = -provinsi, 
    names_to = "Keyword", 
    values_to = "Minat",
    values_transform = list(Minat = as.numeric)
  )

Visualisasi 5 provinsi tertinggi per Pencarian

ChatGPT

prov_gpt <- data_geo_long %>%
  filter(Keyword == "gpt") %>%
  arrange(desc(Minat)) %>%
  slice_head(n = 5) %>%
  pull(provinsi)

data_top_gpt <- data_geo_long %>%
  filter(provinsi %in% prov_gpt) %>%
  mutate(provinsi = factor(provinsi, levels = rev(prov_gpt)))

ggplot(data_top_gpt, aes(x = provinsi, y = Minat, fill = Keyword)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  coord_flip() +
  labs(title = "5 Provinsi dengan Pencarian ChatGPT Tertinggi",
       x = "Provinsi", y = "Proporsi Minat (%)", fill = "Keyword") +
  theme_minimal()

Provinsi dengan skor pencarian ChatGPT tertinggi adalah provinsi Bali

Gemini

prov_gemini <- data_geo_long %>%
  filter(Keyword == "gemini") %>%
  arrange(desc(Minat)) %>%
  slice_head(n = 5) %>%
  pull(provinsi)

data_top_gemini <- data_geo_long %>%
  filter(provinsi %in% prov_gemini) %>%
  mutate(provinsi = factor(provinsi, levels = rev(prov_gemini)))

ggplot(data_top_gemini, aes(x = provinsi, y = Minat, fill = Keyword)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  coord_flip() +
  labs(title = "5 Provinsi dengan Pencarian Gemini Tertinggi",
       x = "Provinsi", y = "Proporsi Minat (%)", fill = "Keyword") +
  theme_minimal()

Provinsi dengan pencarian Gemini tertinggi adalah Sulawesi Barat

Claude

prov_claude <- data_geo_long %>%
  filter(Keyword == "claude") %>%
  arrange(desc(Minat)) %>%
  slice_head(n = 5) %>%
  pull(provinsi)

data_top_claude <- data_geo_long %>%
  filter(provinsi %in% prov_claude) %>%
  mutate(provinsi = factor(provinsi, levels = rev(prov_claude)))

ggplot(data_top_claude, aes(x = provinsi, y = Minat, fill = Keyword)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  coord_flip() +
  labs(title = "5 Provinsi dengan Pencarian Claude Tertinggi",
       x = "Provinsi", y = "Proporsi Minat (%)", fill = "Keyword") +
  theme_minimal()

Provinsi dengan skor pencarian Claude tertinggi adalah DI Yogyakarta. Secara keseluruhan, Gemini dan ChatGPT masih paling diminati di Indonesia dan lebih familiar, sedangkan Claude belum terlalu familiar.