1 Pendahuluan

Dalam rangka menggali potensi wisata tematik berbasis budaya mistis dan spiritualitas lokal Indonesia, dokumen ini menganalisis tren pencarian Google Trends selama 24 bulan terakhir untuk tiga fenomena mistis: Kuyang, Minyak Bintang, dan Saranjana.

2 1. Pengambilan Data Tren

keywords <- c("Kuyang", "Santet", "Pocong")
trend_mistis <- gtrends(keyword = keywords, geo = "ID", time = "2023-05-29 2025-05-28")

df <- trend_mistis$interest_over_time %>%
  mutate(hits = as.numeric(ifelse(hits == "<1", 0, hits)))

3 2. Visualisasi Tren

3.1 2.1 Visualisasi Bawaan gtrendsR

plot(trend_mistis)

Berdasarkan hasil yang didapatkan, Kata kunci pocong pernah mendapatkan nilai Hits 100 pada rentang 2 tahun terakhir ini. namun trend hits cenderung menurun. Sebaliknya pada kata kunci santet, selama dua tahun ini mengalami peningkatan trend dengan kondisi adanya pola seasonal selama 6 bulan dan trend cenderung naik. Sedangkan pada kata kunci kuyang adanya pola stasioner dan adanya peningkatan kata kunci sebanyak dua kali pada awal 2024 dan juli 2024.

3.2 Line Chart per Keyword dengan ggplot2

ggplot(df, aes(x = date, y = hits, color = keyword)) +
  geom_line(size = 1) +
  facet_wrap(~ keyword, scales = "free_y") +
  theme_minimal(base_size = 12) +
  labs(
    title = "Tren Pencarian Google untuk Kata Kunci Mistis (24 Bulan)",
    x = "Tanggal",
    y = "Nilai Hits",
    color = "Keyword"
  )+
  theme(axis.text.x = element_text(angle = 50,hjust = 1),
        plot.title = element_text(hjust = 0.5))

4 Trend berdasarkan daerah

df_region <- trend_mistis$interest_by_region %>%
  filter(location != "") %>%
  group_by(keyword) %>%
  mutate(hits = as.numeric(ifelse(hits == "<1", 0, hits)))
df_region
## # A tibble: 68 × 5
## # Groups:   keyword [2]
##    location                      hits keyword geo   gprop
##    <chr>                        <dbl> <chr>   <chr> <chr>
##  1 East Java                      100 Santet  ID    web  
##  2 Central Java                    83 Santet  ID    web  
##  3 Bangka Belitung Islands         80 Santet  ID    web  
##  4 Bengkulu                        79 Santet  ID    web  
##  5 West Java                       78 Santet  ID    web  
##  6 Gorontalo                       78 Santet  ID    web  
##  7 North Kalimantan                76 Santet  ID    web  
##  8 South Kalimantan                74 Santet  ID    web  
##  9 Special Region of Yogyakarta    73 Santet  ID    web  
## 10 Banten                          72 Santet  ID    web  
## # ℹ 58 more rows

5 Kata Kunci berdasarkan Daera

ggplot(df_region, aes(x = reorder(location, hits), y = hits, fill = keyword)) +
  geom_bar(stat = "identity", position = "dodge") +
  coord_flip() +
  labs(title = "Minat Berdasarkan Provinsi",
       x = "Provinsi", y = "Tren (0–100)") +
  theme_minimal()

6 Statistik Ringkas

summary_by_keyword <- df %>%
  group_by(keyword) %>%
  summarise(
    rata_rata = mean(hits, na.rm = TRUE),
    maksimum   = max(hits, na.rm = TRUE),
    minimum    = min(hits, na.rm = TRUE),
    sd         = sd(hits, na.rm = TRUE)
  )

print(summary_by_keyword)
## # A tibble: 3 × 5
##   keyword rata_rata maksimum minimum    sd
##   <chr>       <dbl>    <dbl>   <dbl> <dbl>
## 1 Kuyang       6.77       28       4  4.05
## 2 Pocong      47.3       100      28 14.8 
## 3 Santet      23.7        70      15  9.53

7 4. Interpretasi

8 Rekomendasi Strategi Konten

  1. Konten yang bisa dipakai: Bisa menggunakan ide santet karena trend mengalami peningkatan selama 2 tahun terakhir. Bisa menggunakan kuyang juga sebagai referensi namun trend cukup stagnan di angka 3-4 pada kondisi normal
  2. Kolaborasi dengan Influencer: Ajak Aktor/Aktris maupun tokoh masyarakat yang memahami bentuk-bentuk santet tersebut
  3. Cerita Visual: Buat film yang bisa menjelaskan tentang kuyang maupun santet itu sendiri.