Visualisizing Perbandingan Google Trend Grab, Gojek, dan Maxim Periode Mei 2025 - 2026

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Warning: package 'tidyr' was built under R version 4.5.3

## Rows: 52 Columns: 4

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl  (3): Grab Holdings, Gojek, maxim
## date (1): Time
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

## spc_tbl_ [52 × 4] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
##  $ Time         : Date[1:52], format: "2025-05-11" "2025-05-18" ...
##  $ Grab Holdings: num [1:52] 72 79 69 66 70 77 75 70 77 77 ...
##  $ Gojek        : num [1:52] 61 74 60 54 60 59 57 58 59 62 ...
##  $ maxim        : num [1:52] 1 0 0 0 1 1 1 1 1 1 ...
##  - attr(*, "spec")=
##   .. cols(
##   ..   Time = col_date(format = ""),
##   ..   `Grab Holdings` = col_double(),
##   ..   Gojek = col_double(),
##   ..   maxim = col_double()
##   .. )
##  - attr(*, "problems")=<externalptr>

## # A tibble: 6 × 4
##   Time       `Grab Holdings` Gojek maxim
##   <date>               <dbl> <dbl> <dbl>
## 1 2025-05-11              72    61     1
## 2 2025-05-18              79    74     0
## 3 2025-05-25              69    60     0
## 4 2025-06-01              66    54     0
## 5 2025-06-08              70    60     1
## 6 2025-06-15              77    59     1

# Grafik tren pencarian dari waktu ke waktu
ggplot(df_time, aes(x = Time, y = hits, color = keyword)) +
geom_line(size = 1) +
geom_point(size = 1.5) +
scale_x_date(date_labels = "%b %Y", date_breaks = "1 month") +
labs(
title = "Tren Pencarian Gojek, Grab, dan Maxim di Indonesia",
subtitle = "Periode Mei 2025 - Mei 2026",
x = "Tanggal",
y = "Nilai Tren Pencarian (0-100)",
color = "Keyword"
) +
theme_minimal() +
theme(
axis.text.x = element_text(angle = 45, hjust = 1), legend.position = "bottom")

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Interpretasi :

• Grab Holdings memiliki tren pencarian paling dominan dibandingkan Gojek dan Maxim. Selama periode pengamatan, nilai pencarian Grab cenderung berada pada level tertinggi, bahkan beberapa kali mengalami lonjakan besar, terutama sekitar Desember 2025 dan menjelang Mei 2026.

• Gojek berada di posisi kedua dengan tren yang cukup stabil tetapi lebih rendah dari Grab. Nilai pencarian Gojek sebagian besar bergerak pada kisaran menengah, dengan beberapa kenaikan pada awal periode, sekitar September 2025, serta Maret–Mei 2026. Hal ini menunjukkan bahwa Gojek tetap memiliki minat pencarian yang kuat, meskipun tidak setinggi Grab.

• Maxim memiliki tren pencarian paling rendah, tetapi menunjukkan kenaikan perlahan. Sepanjang periode, nilai pencarian Maxim berada jauh di bawah Grab dan Gojek. Namun, terdapat sedikit peningkatan dari akhir 2025 hingga 2026, yang mengindikasikan mulai adanya pertumbuhan minat masyarakat terhadap Maxim meskipun skalanya masih kecil.