library(readxl)

usernames <- read_excel("Dataset AHP (Terbaru).xlsx",sheet = "Data Valid")$username
character <- read_excel("Dataset AHP (Terbaru).xlsx",sheet = "Part 1")
ahp <- read_excel("Dataset AHP (Terbaru).xlsx",sheet = "Data AHP")
preferences <- read_excel("Dataset AHP (Terbaru).xlsx",sheet = "Data Valid")

combine_df <- merge(character,ahp,by="username")

library(dplyr)
## 
## 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
combine_df <- combine_df %>%
  filter(username %in% usernames)

final_df <- merge(combine_df,preferences,by="username")

final_df <- final_df[,-c(2:6,47:51)]
final_df <- final_df[,c(1,90:94,2:89,95:132)]

final_df[7:46] <- lapply(final_df[7:46], function(x) {
  x <- gsub("\\(.*?\\)", "", x)
  trimws(x)
})

emotion <- unique(as.vector(as.matrix(final_df[7:46])))
writexl::write_xlsx(data.frame(emotion),"emotion.xlsx")

writexl::write_xlsx(final_df[,c(1,7:46)],"username with emotion.xlsx")

# ============================
# Definisikan kategori emosi
# ============================

sanguinis <- c(
  "Animated","Playful","Sociable","Persuasive","Spirited","Refreshing","Popular",
  "Friendly","Funny","Delightful","Cheerful","Inspiring","Demonstrative",
  "Mixes easily","Talker","Lively","Cute","Promoter","Optimistic","Bouncy",
  "Brassy","Show-offs","Loud","Talkative","Tactless","Disorganized",
  "Unpredictable","Interrupts","Messy","Scatterbrained","Wants credit",
  "Naive","Haphazard","Indifferent","Changeable"
)

koleris <- c(
  "Adventurous","Persuasive","Strong-willed","Competitive","Resourceful",
  "Self-reliant","Independent","Decisive","Mover","Leader","Productive",
  "Bold","Outspoken","Confident","Forceful","Daring","Tenacious","Chief",
  "Sure","Bossy","Headstrong","Domineering","Intolerant","Impatient",
  "Argumentative","Stubborn","Short-tempered","Rash","Unsympathetic",
  "Workaholic","Wants credit","Lord over","Proud"
)

plegmatis <- c(
  "Adaptable","Peaceful","Submissive","Controlled","Diplomatic","Consistent",
  "Reserved","Respectful","Sensitive","Patient","Mediator","Tolerant",
  "Listener","Contented","Balanced","Pleasant","Behaved","Dry humor",
  "Inoffensive","Nonchalant","Indecisive","Hesitant","Timid","Shy","Slow",
  "Lazy","Plain","Indifferent","Reluctant","Doubtful","Withdrawn"
)

melankolis <- c(
  "Analytical","Persistent","Self-sacrificing","Considerate","Orderly",
  "Detailed","Planner","Sensitive","Respectful","Thoughtful","Faithful",
  "Chartmaker","Perfectionist","Deep","Idealistic","Musical","Cultured",
  "Scheduled","Critical","Moody","Introvert","Unenthusiastic","Pessimistic",
  "Depressed","Skeptical","Too sensitive","Fussy","Forgetful","Insecure",
  "Fearful","Worrier","Unforgiving","Withdrawn","Reticent","Repetitious",
  "Resistant","Negative attitude","Crafty"
)

# ==============================================
# Fungsi untuk mengklasifikasikan 1 emosi
# ==============================================

classify_emotion <- function(x) {
  if (x %in% sanguinis)   return("Sanguinis")
  if (x %in% koleris)     return("Koleris")
  if (x %in% plegmatis)   return("Plegmatis")
  if (x %in% melankolis)  return("Melankolis")
  return(NA)
}

# ==============================================
# Hitung persentase kecenderungan tiap karakter
# ==============================================

final_df$Sanguinis_pct <- apply(final_df[,7:46], 1, function(row) {
  mean(sapply(row, classify_emotion) == "Sanguinis", na.rm = TRUE) * 100
})

final_df$Koleris_pct <- apply(final_df[,7:46], 1, function(row) {
  mean(sapply(row, classify_emotion) == "Koleris", na.rm = TRUE) * 100
})

final_df$Plegmatis_pct <- apply(final_df[,7:46], 1, function(row) {
  mean(sapply(row, classify_emotion) == "Plegmatis", na.rm = TRUE) * 100
})

final_df$Melankolis_pct <- apply(final_df[,7:46], 1, function(row) {
  mean(sapply(row, classify_emotion) == "Melankolis", na.rm = TRUE) * 100
})


# ==============================================
# Terapkan ke 40 kolom dan hitung tipe dominan
# ==============================================

final_df$dominant_type <- apply(final_df[,7:46], 1, function(row_values) {
  
  categories <- sapply(row_values, classify_emotion)
  
  # hitung frekuensi
  freq <- table(categories)
  
  # ambil kategori terbanyak
  names(freq)[which.max(freq)]
})

writexl::write_xlsx(subset(final_df, dominant_type == "Sanguinis"),"Data Sangunis.xlsx")
writexl::write_xlsx(subset(final_df, dominant_type == "Koleris"),"Data Koleris.xlsx")
writexl::write_xlsx(subset(final_df, dominant_type == "Melankolis"),"Data Melankolis.xlsx")
writexl::write_xlsx(subset(final_df, dominant_type == "Plegmatis"),"Data Plegmatis.xlsx")

writexl::write_xlsx(final_df[,c(1,133:137)],"username with character percentage and dominant type.xlsx")

library(janitor)
## Warning: package 'janitor' was built under R version 4.5.2
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
final_df %>%
  tabyl(dominant_type) %>%
  adorn_pct_formatting(digits = 2)
##  dominant_type  n percent
##        Koleris 24  43.64%
##     Melankolis  5   9.09%
##      Plegmatis 12  21.82%
##      Sanguinis 14  25.45%
library(janitor)

lapply(final_df[,c(2:6,95:132)], 
       function(x) tabyl(x) %>% adorn_pct_formatting(digits = 1))
## $`Durasi Penggunaan X`
##                    x  n percent
##           1 -3 tahun 20   36.4%
##  Kurang dari 1 tahun 35   63.6%
## 
## $Usia
##              x  n percent
##  13 - 28 tahun 35   63.6%
##  29 - 44 tahun 13   23.6%
##  45 - 60 tahun  7   12.7%
## 
## $`Jenis Kelamin`
##                        x  n percent
##              Laki - laki 22   40.0%
##                Perempuan 12   21.8%
##  Tidak Berkenan Menjawab 21   38.2%
## 
## $`Keputusan Investasi Berdasarkan X`
##   x  n percent
##  Ya 55  100.0%
## 
## $`Keuntungan dalam Investasi`
##      x  n percent
##  Tidak 17   30.9%
##     Ya 38   69.1%
## 
## $`Investasi apa yang anda sukai? >> Perhiasan emas atau logam mulia`
##                         x  n percent
##  Suka Tapi Belum Memiliki  3    5.5%
##   Suka dan Sudah Memiliki 29   52.7%
##                Tidak Suka 23   41.8%
## 
## $`Investasi apa yang anda sukai? >> Obligasi pemerintah`
##                         x  n percent
##  Suka Tapi Belum Memiliki 20   36.4%
##   Suka dan Sudah Memiliki 26   47.3%
##                Tidak Suka  9   16.4%
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan indonesia`
##                         x  n percent
##  Suka Tapi Belum Memiliki 27   49.1%
##   Suka dan Sudah Memiliki 21   38.2%
##                Tidak Suka  7   12.7%
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan asing`
##                         x  n percent valid_percent
##  Suka Tapi Belum Memiliki 18   32.7%         33.3%
##   Suka dan Sudah Memiliki 28   50.9%         51.9%
##                Tidak Suka  8   14.5%         14.8%
##                      <NA>  1    1.8%             -
## 
## $`Investasi apa yang anda sukai? >> Properti seperti rumah atau tanah`
##                         x  n percent
##  Suka Tapi Belum Memiliki 23   41.8%
##   Suka dan Sudah Memiliki 29   52.7%
##                Tidak Suka  3    5.5%
## 
## $`Investasi apa yang anda sukai? >> Mata uang kripto seperti Bitcoin atau Etherum`
##                         x  n percent
##  Suka Tapi Belum Memiliki 16   29.1%
##   Suka dan Sudah Memiliki 16   29.1%
##                Tidak Suka 23   41.8%
## 
## $`Investasi apa yang anda sukai? >> Obligasi perusahaan swasta`
##                         x  n percent
##  Suka Tapi Belum Memiliki 26   47.3%
##   Suka dan Sudah Memiliki 24   43.6%
##                Tidak Suka  5    9.1%
## 
## $`Investasi apa yang anda sukai? >> Reksadana`
##                         x  n percent
##  Suka Tapi Belum Memiliki 30   54.5%
##   Suka dan Sudah Memiliki  6   10.9%
##                Tidak Suka 19   34.5%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika untung yang saya dapatkan tidak sesuai ekspektasi`
##                    x  n percent
##               Netral  9   16.4%
##        Sangat Setuju 33   60.0%
##  Sangat Tidak Setuju  8   14.5%
##               Setuju  4    7.3%
##         Tidak Setuju  1    1.8%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika investasi saya lebih banyak ruginya dibandingkan dengan untungnya`
##                    x  n percent
##               Netral 14   25.5%
##        Sangat Setuju 10   18.2%
##  Sangat Tidak Setuju  6   10.9%
##               Setuju 17   30.9%
##         Tidak Setuju  8   14.5%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya harus mengambil risiko`
##                    x  n percent
##               Netral  7   12.7%
##        Sangat Setuju  4    7.3%
##  Sangat Tidak Setuju  7   12.7%
##               Setuju 25   45.5%
##         Tidak Setuju 12   21.8%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika terjadi banyak fluktuasi harga dari sebuah investasi`
##                    x  n percent
##               Netral 23   41.8%
##        Sangat Setuju 13   23.6%
##  Sangat Tidak Setuju  3    5.5%
##               Setuju  3    5.5%
##         Tidak Setuju 13   23.6%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya membuat pilihan yang buruk dan kehilangan seluruh uang saya`
##                    x  n percent
##               Netral 11   20.0%
##        Sangat Setuju  7   12.7%
##  Sangat Tidak Setuju 11   20.0%
##               Setuju 19   34.5%
##         Tidak Setuju  7   12.7%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya menjadi korban investasi bodong`
##                    x  n percent
##               Netral 13   23.6%
##        Sangat Setuju  5    9.1%
##  Sangat Tidak Setuju 10   18.2%
##               Setuju  6   10.9%
##         Tidak Setuju 21   38.2%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi emas dibandingkan saham`
##                    x  n percent
##               Netral  8   14.5%
##        Sangat Setuju 30   54.5%
##  Sangat Tidak Setuju  4    7.3%
##               Setuju  4    7.3%
##         Tidak Setuju  9   16.4%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada emas dibandingkan obligasi pemerintah`
##                    x  n percent
##               Netral 24   43.6%
##        Sangat Setuju  2    3.6%
##  Sangat Tidak Setuju 10   18.2%
##               Setuju 16   29.1%
##         Tidak Setuju  3    5.5%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada Bitcoin`
##                    x  n percent
##               Netral  7   12.7%
##        Sangat Setuju  9   16.4%
##  Sangat Tidak Setuju  9   16.4%
##               Setuju 12   21.8%
##         Tidak Setuju 18   32.7%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan obligasi`
##                    x  n percent
##               Netral 24   43.6%
##        Sangat Setuju 10   18.2%
##  Sangat Tidak Setuju  5    9.1%
##               Setuju  5    9.1%
##         Tidak Setuju 11   20.0%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan Bitcoin`
##                    x  n percent
##               Netral 26   47.3%
##  Sangat Tidak Setuju  6   10.9%
##               Setuju 11   20.0%
##         Tidak Setuju 12   21.8%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada obligasi dibandingkan Bitcoin`
##                    x  n percent
##               Netral 27   49.1%
##        Sangat Setuju 14   25.5%
##  Sangat Tidak Setuju  3    5.5%
##               Setuju  2    3.6%
##         Tidak Setuju  9   16.4%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih Bitcoin dibandingkan instrumen lainnya`
##                    x  n percent
##               Netral 14   25.5%
##        Sangat Setuju  7   12.7%
##  Sangat Tidak Setuju  4    7.3%
##               Setuju  3    5.5%
##         Tidak Setuju 27   49.1%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya menghindari Bitcoin karena risikonya yang sangat besar`
##                    x  n percent
##               Netral  9   16.4%
##        Sangat Setuju  3    5.5%
##  Sangat Tidak Setuju  1    1.8%
##               Setuju  6   10.9%
##         Tidak Setuju 36   65.5%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Memilih instrumen investasi yang telah saya miliki sebelumnya`
##                    x  n percent
##               Netral 14   25.5%
##        Sangat Setuju 12   21.8%
##  Sangat Tidak Setuju 10   18.2%
##               Setuju 15   27.3%
##         Tidak Setuju  4    7.3%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya suka berinvestasi pada instrumen yang baru`
##                    x  n percent
##               Netral 13   23.6%
##        Sangat Setuju  1    1.8%
##  Sangat Tidak Setuju 21   38.2%
##               Setuju  5    9.1%
##         Tidak Setuju 15   27.3%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang aman meskipun untungnya kecil`
##              x  n percent
##         Netral 29   52.7%
##  Sangat Setuju  8   14.5%
##         Setuju 12   21.8%
##   Tidak Setuju  6   10.9%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang telah dimiliki oleh orang yang saya kenal`
##                    x  n percent
##               Netral 10   18.2%
##        Sangat Setuju 18   32.7%
##  Sangat Tidak Setuju  2    3.6%
##               Setuju  8   14.5%
##         Tidak Setuju 17   30.9%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi yang dimiliki/dipopulerkan oleh idola atau influencer yang saya ikuti`
##                    x  n percent
##               Netral  9   16.4%
##        Sangat Setuju  4    7.3%
##  Sangat Tidak Setuju  2    3.6%
##               Setuju 31   56.4%
##         Tidak Setuju  9   16.4%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang memberikan laba terbesar`
##                    x  n percent
##               Netral  9   16.4%
##        Sangat Setuju  3    5.5%
##  Sangat Tidak Setuju 17   30.9%
##               Setuju 10   18.2%
##         Tidak Setuju 16   29.1%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang disarankan oleh penasihat keuangan saya`
##                    x  n percent
##               Netral  8   14.5%
##        Sangat Setuju  7   12.7%
##  Sangat Tidak Setuju  2    3.6%
##               Setuju 23   41.8%
##         Tidak Setuju 15   27.3%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang pertumbuhannya bagus dari waktu ke waktu`
##                    x  n percent
##               Netral 14   25.5%
##        Sangat Setuju  5    9.1%
##  Sangat Tidak Setuju  4    7.3%
##               Setuju 15   27.3%
##         Tidak Setuju 17   30.9%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang mudah diperjualbelikan (likuid)`
##                    x  n percent
##               Netral 33   60.0%
##        Sangat Setuju  3    5.5%
##  Sangat Tidak Setuju  8   14.5%
##               Setuju  9   16.4%
##         Tidak Setuju  2    3.6%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi berdasarkan perasaan/feeling`
##                    x  n percent
##               Netral  9   16.4%
##        Sangat Setuju 15   27.3%
##  Sangat Tidak Setuju 12   21.8%
##               Setuju  7   12.7%
##         Tidak Setuju 12   21.8%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan menahannya dalam jangka panjang (di atas 5 tahun)`
##                    x  n percent
##               Netral  8   14.5%
##        Sangat Setuju 10   18.2%
##  Sangat Tidak Setuju 17   30.9%
##               Setuju  8   14.5%
##         Tidak Setuju 12   21.8%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya membeli dan menjual instrumen yang saya miliki kurang dari 6 bulan`
##                    x  n percent
##               Netral 25   45.5%
##        Sangat Setuju 18   32.7%
##  Sangat Tidak Setuju  5    9.1%
##               Setuju  2    3.6%
##         Tidak Setuju  5    9.1%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan tetap menyimpannya sampai saya membutuhkan dana untuk membeli instrumen lainnya`
##                    x  n percent
##               Netral 19   34.5%
##        Sangat Setuju  4    7.3%
##  Sangat Tidak Setuju 13   23.6%
##               Setuju 10   18.2%
##         Tidak Setuju  9   16.4%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya selalu mengecek dan mengevalusasi secara berkala`
##                    x  n percent
##               Netral 12   21.8%
##  Sangat Tidak Setuju 19   34.5%
##               Setuju 14   25.5%
##         Tidak Setuju 10   18.2%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menahan investasi yang telah saya miliki hingga menghasilkan untung lalu menjualnya`
##                    x  n percent
##               Netral 14   25.5%
##        Sangat Setuju  3    5.5%
##  Sangat Tidak Setuju  8   14.5%
##               Setuju 13   23.6%
##         Tidak Setuju 17   30.9%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menyimpan investasi saya dan menjualnya ketika keadaan darurat`
##                    x  n percent
##               Netral 29   52.7%
##        Sangat Setuju  6   10.9%
##  Sangat Tidak Setuju  8   14.5%
##               Setuju  8   14.5%
##         Tidak Setuju  4    7.3%
# ==============================================
# Crosstab: Tabulasi silang karakter vs setiap variabel di "preferences"
# ==============================================

pref_cols <- colnames(preferences)[7:44]

character_pref_crosstab <- lapply(pref_cols, function(colname) {
  final_df %>%
    tabyl(dominant_type, !!sym(colname)) %>% 
    adorn_percentages("row") %>%
    adorn_pct_formatting(digits = 1)
})

names(character_pref_crosstab) <- pref_cols
character_pref_crosstab_count <- lapply(pref_cols, function(colname) {
  final_df %>%
    tabyl(dominant_type, !!sym(colname))
})

# beri nama list sesuai nama kolom preferences
names(character_pref_crosstab_count) <- pref_cols

# Tampilkan hasil
print(character_pref_crosstab_count)
## $`Investasi apa yang anda sukai? >> Perhiasan emas atau logam mulia`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                      11                        0         13
##     Melankolis                       2                        2          1
##      Plegmatis                       8                        0          4
##      Sanguinis                       8                        1          5
## 
## $`Investasi apa yang anda sukai? >> Obligasi pemerintah`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                      15                        4          5
##     Melankolis                       1                        4          0
##      Plegmatis                       1                        7          4
##      Sanguinis                       9                        5          0
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan indonesia`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                       5                       19          0
##     Melankolis                       1                        3          1
##      Plegmatis                       6                        2          4
##      Sanguinis                       9                        3          2
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan asing`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka NA_
##        Koleris                      18                        4          2   0
##     Melankolis                       4                        1          0   0
##      Plegmatis                       0                       10          1   1
##      Sanguinis                       6                        3          5   0
## 
## $`Investasi apa yang anda sukai? >> Properti seperti rumah atau tanah`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                       9                       15          0
##     Melankolis                       3                        2          0
##      Plegmatis                       8                        1          3
##      Sanguinis                       9                        5          0
## 
## $`Investasi apa yang anda sukai? >> Mata uang kripto seperti Bitcoin atau Etherum`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                       5                        4         15
##     Melankolis                       1                        3          1
##      Plegmatis                       9                        1          2
##      Sanguinis                       1                        8          5
## 
## $`Investasi apa yang anda sukai? >> Obligasi perusahaan swasta`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                      13                        9          2
##     Melankolis                       2                        2          1
##      Plegmatis                       2                       10          0
##      Sanguinis                       7                        5          2
## 
## $`Investasi apa yang anda sukai? >> Reksadana`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                       0                       11         13
##     Melankolis                       1                        4          0
##      Plegmatis                       4                        7          1
##      Sanguinis                       1                        8          5
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika untung yang saya dapatkan tidak sesuai ekspektasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      3            15                   5      1            0
##     Melankolis      0             2                   1      1            1
##      Plegmatis      5             7                   0      0            0
##      Sanguinis      1             9                   2      2            0
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika investasi saya lebih banyak ruginya dibandingkan dengan untungnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     10             3                   0      9            2
##     Melankolis      1             1                   0      1            2
##      Plegmatis      1             2                   4      4            1
##      Sanguinis      2             4                   2      3            3
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya harus mengambil risiko`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      4             1                   2     13            4
##     Melankolis      1             0                   0      1            3
##      Plegmatis      0             1                   5      1            5
##      Sanguinis      2             2                   0     10            0
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika terjadi banyak fluktuasi harga dari sebuah investasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     15             6                   0      0            3
##     Melankolis      2             0                   0      1            2
##      Plegmatis      0             6                   0      1            5
##      Sanguinis      6             1                   3      1            3
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya membuat pilihan yang buruk dan kehilangan seluruh uang saya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      9             1                   2      9            3
##     Melankolis      0             0                   0      4            1
##      Plegmatis      0             6                   5      1            0
##      Sanguinis      2             0                   4      5            3
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya menjadi korban investasi bodong`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      7             3                   6      1            7
##     Melankolis      0             0                   1      3            1
##      Plegmatis      1             1                   1      0            9
##      Sanguinis      5             1                   2      2            4
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi emas dibandingkan saham`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      7            11                   0      0            6
##     Melankolis      0             1                   0      3            1
##      Plegmatis      1             8                   3      0            0
##      Sanguinis      0            10                   1      1            2
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada emas dibandingkan obligasi pemerintah`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     15             0                   6      2            1
##     Melankolis      1             0                   0      2            2
##      Plegmatis      2             0                   4      6            0
##      Sanguinis      6             2                   0      6            0
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada Bitcoin`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      7             7                   3      1            6
##     Melankolis      0             0                   1      1            3
##      Plegmatis      0             0                   5      2            5
##      Sanguinis      0             2                   0      8            4
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan obligasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     14             2                   0      3            5
##     Melankolis      3             0                   0      0            2
##      Plegmatis      1             6                   3      1            1
##      Sanguinis      6             2                   2      1            3
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan Bitcoin`
##  dominant_type Netral Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     16                   4      1            3
##     Melankolis      0                   0      3            2
##      Plegmatis      5                   0      5            2
##      Sanguinis      5                   2      2            5
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada obligasi dibandingkan Bitcoin`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     14             9                   1      0            0
##     Melankolis      1             0                   0      1            3
##      Plegmatis      4             4                   0      0            4
##      Sanguinis      8             1                   2      1            2
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih Bitcoin dibandingkan instrumen lainnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      4             3                   1      0           16
##     Melankolis      1             0                   1      0            3
##      Plegmatis      6             4                   0      1            1
##      Sanguinis      3             0                   2      2            7
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya menghindari Bitcoin karena risikonya yang sangat besar`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      1             0                   0      0           23
##     Melankolis      2             0                   0      1            2
##      Plegmatis      4             1                   1      1            5
##      Sanguinis      2             2                   0      4            6
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Memilih instrumen investasi yang telah saya miliki sebelumnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     10             4                   9      1            0
##     Melankolis      1             0                   0      4            0
##      Plegmatis      0             5                   0      3            4
##      Sanguinis      3             3                   1      7            0
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya suka berinvestasi pada instrumen yang baru`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      6             1                   9      2            6
##     Melankolis      2             0                   2      1            0
##      Plegmatis      0             0                   4      2            6
##      Sanguinis      5             0                   6      0            3
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang aman meskipun untungnya kecil`
##  dominant_type Netral Sangat Setuju Setuju Tidak Setuju
##        Koleris     19             3      0            2
##     Melankolis      2             0      3            0
##      Plegmatis      2             5      4            1
##      Sanguinis      6             0      5            3
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang telah dimiliki oleh orang yang saya kenal`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      1             9                   1      2           11
##     Melankolis      1             0                   0      3            1
##      Plegmatis      4             7                   1      0            0
##      Sanguinis      4             2                   0      3            5
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi yang dimiliki/dipopulerkan oleh idola atau influencer yang saya ikuti`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      4             0                   0     14            6
##     Melankolis      1             1                   0      2            1
##      Plegmatis      1             1                   1      9            0
##      Sanguinis      3             2                   1      6            2
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang memberikan laba terbesar`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      5             1                  13      2            3
##     Melankolis      1             0                   0      3            1
##      Plegmatis      1             0                   1      1            9
##      Sanguinis      2             2                   3      4            3
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang disarankan oleh penasihat keuangan saya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      3             0                   1     12            8
##     Melankolis      1             2                   0      1            1
##      Plegmatis      1             4                   0      5            2
##      Sanguinis      3             1                   1      5            4
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang pertumbuhannya bagus dari waktu ke waktu`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      4             1                   0      7           12
##     Melankolis      3             0                   1      1            0
##      Plegmatis      5             2                   3      2            0
##      Sanguinis      2             2                   0      5            5
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang mudah diperjualbelikan (likuid)`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     17             0                   2      5            0
##     Melankolis      3             0                   2      0            0
##      Plegmatis      9             0                   2      1            0
##      Sanguinis      4             3                   2      3            2
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi berdasarkan perasaan/feeling`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      6             4                   9      1            4
##     Melankolis      0             3                   0      1            1
##      Plegmatis      2             3                   0      2            5
##      Sanguinis      1             5                   3      3            2
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan menahannya dalam jangka panjang (di atas 5 tahun)`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      2             3                  12      4            3
##     Melankolis      1             1                   0      0            3
##      Plegmatis      5             3                   3      0            1
##      Sanguinis      0             3                   2      4            5
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya membeli dan menjual instrumen yang saya miliki kurang dari 6 bulan`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     11             9                   1      1            2
##     Melankolis      2             1                   2      0            0
##      Plegmatis      8             3                   0      0            1
##      Sanguinis      4             5                   2      1            2
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan tetap menyimpannya sampai saya membutuhkan dana untuk membeli instrumen lainnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      7             0                   7      7            3
##     Melankolis      3             0                   1      1            0
##      Plegmatis      7             2                   3      0            0
##      Sanguinis      2             2                   2      2            6
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya selalu mengecek dan mengevalusasi secara berkala`
##  dominant_type Netral Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      9                  11      1            3
##     Melankolis      0                   0      4            1
##      Plegmatis      1                   2      3            6
##      Sanguinis      2                   6      6            0
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menahan investasi yang telah saya miliki hingga menghasilkan untung lalu menjualnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris      6             2                   5      7            4
##     Melankolis      2             0                   0      1            2
##      Plegmatis      1             1                   0      4            6
##      Sanguinis      5             0                   3      1            5
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menyimpan investasi saya dan menjualnya ketika keadaan darurat`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris     13             3                   4      2            2
##     Melankolis      2             1                   1      0            1
##      Plegmatis      7             2                   1      2            0
##      Sanguinis      7             0                   2      4            1
print(character_pref_crosstab)
## $`Investasi apa yang anda sukai? >> Perhiasan emas atau logam mulia`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   45.8%                     0.0%      54.2%
##     Melankolis                   40.0%                    40.0%      20.0%
##      Plegmatis                   66.7%                     0.0%      33.3%
##      Sanguinis                   57.1%                     7.1%      35.7%
## 
## $`Investasi apa yang anda sukai? >> Obligasi pemerintah`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   62.5%                    16.7%      20.8%
##     Melankolis                   20.0%                    80.0%       0.0%
##      Plegmatis                    8.3%                    58.3%      33.3%
##      Sanguinis                   64.3%                    35.7%       0.0%
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan indonesia`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   20.8%                    79.2%       0.0%
##     Melankolis                   20.0%                    60.0%      20.0%
##      Plegmatis                   50.0%                    16.7%      33.3%
##      Sanguinis                   64.3%                    21.4%      14.3%
## 
## $`Investasi apa yang anda sukai? >> Saham perusahaan asing`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka  NA_
##        Koleris                   75.0%                    16.7%       8.3% 0.0%
##     Melankolis                   80.0%                    20.0%       0.0% 0.0%
##      Plegmatis                    0.0%                    83.3%       8.3% 8.3%
##      Sanguinis                   42.9%                    21.4%      35.7% 0.0%
## 
## $`Investasi apa yang anda sukai? >> Properti seperti rumah atau tanah`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   37.5%                    62.5%       0.0%
##     Melankolis                   60.0%                    40.0%       0.0%
##      Plegmatis                   66.7%                     8.3%      25.0%
##      Sanguinis                   64.3%                    35.7%       0.0%
## 
## $`Investasi apa yang anda sukai? >> Mata uang kripto seperti Bitcoin atau Etherum`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   20.8%                    16.7%      62.5%
##     Melankolis                   20.0%                    60.0%      20.0%
##      Plegmatis                   75.0%                     8.3%      16.7%
##      Sanguinis                    7.1%                    57.1%      35.7%
## 
## $`Investasi apa yang anda sukai? >> Obligasi perusahaan swasta`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                   54.2%                    37.5%       8.3%
##     Melankolis                   40.0%                    40.0%      20.0%
##      Plegmatis                   16.7%                    83.3%       0.0%
##      Sanguinis                   50.0%                    35.7%      14.3%
## 
## $`Investasi apa yang anda sukai? >> Reksadana`
##  dominant_type Suka dan Sudah Memiliki Suka Tapi Belum Memiliki Tidak Suka
##        Koleris                    0.0%                    45.8%      54.2%
##     Melankolis                   20.0%                    80.0%       0.0%
##      Plegmatis                   33.3%                    58.3%       8.3%
##      Sanguinis                    7.1%                    57.1%      35.7%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika untung yang saya dapatkan tidak sesuai ekspektasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  12.5%         62.5%               20.8%   4.2%         0.0%
##     Melankolis   0.0%         40.0%               20.0%  20.0%        20.0%
##      Plegmatis  41.7%         58.3%                0.0%   0.0%         0.0%
##      Sanguinis   7.1%         64.3%               14.3%  14.3%         0.0%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika investasi saya lebih banyak ruginya dibandingkan dengan untungnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  41.7%         12.5%                0.0%  37.5%         8.3%
##     Melankolis  20.0%         20.0%                0.0%  20.0%        40.0%
##      Plegmatis   8.3%         16.7%               33.3%  33.3%         8.3%
##      Sanguinis  14.3%         28.6%               14.3%  21.4%        21.4%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya harus mengambil risiko`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  16.7%          4.2%                8.3%  54.2%        16.7%
##     Melankolis  20.0%          0.0%                0.0%  20.0%        60.0%
##      Plegmatis   0.0%          8.3%               41.7%   8.3%        41.7%
##      Sanguinis  14.3%         14.3%                0.0%  71.4%         0.0%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika terjadi banyak fluktuasi harga dari sebuah investasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  62.5%         25.0%                0.0%   0.0%        12.5%
##     Melankolis  40.0%          0.0%                0.0%  20.0%        40.0%
##      Plegmatis   0.0%         50.0%                0.0%   8.3%        41.7%
##      Sanguinis  42.9%          7.1%               21.4%   7.1%        21.4%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya membuat pilihan yang buruk dan kehilangan seluruh uang saya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  37.5%          4.2%                8.3%  37.5%        12.5%
##     Melankolis   0.0%          0.0%                0.0%  80.0%        20.0%
##      Plegmatis   0.0%         50.0%               41.7%   8.3%         0.0%
##      Sanguinis  14.3%          0.0%               28.6%  35.7%        21.4%
## 
## $`Apa yang paling Anda takuti dari investasi yang Anda miliki? >> Ketika saya menjadi korban investasi bodong`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  29.2%         12.5%               25.0%   4.2%        29.2%
##     Melankolis   0.0%          0.0%               20.0%  60.0%        20.0%
##      Plegmatis   8.3%          8.3%                8.3%   0.0%        75.0%
##      Sanguinis  35.7%          7.1%               14.3%  14.3%        28.6%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi emas dibandingkan saham`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  29.2%         45.8%                0.0%   0.0%        25.0%
##     Melankolis   0.0%         20.0%                0.0%  60.0%        20.0%
##      Plegmatis   8.3%         66.7%               25.0%   0.0%         0.0%
##      Sanguinis   0.0%         71.4%                7.1%   7.1%        14.3%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada emas dibandingkan obligasi pemerintah`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  62.5%          0.0%               25.0%   8.3%         4.2%
##     Melankolis  20.0%          0.0%                0.0%  40.0%        40.0%
##      Plegmatis  16.7%          0.0%               33.3%  50.0%         0.0%
##      Sanguinis  42.9%         14.3%                0.0%  42.9%         0.0%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada Bitcoin`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  29.2%         29.2%               12.5%   4.2%        25.0%
##     Melankolis   0.0%          0.0%               20.0%  20.0%        60.0%
##      Plegmatis   0.0%          0.0%               41.7%  16.7%        41.7%
##      Sanguinis   0.0%         14.3%                0.0%  57.1%        28.6%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan obligasi`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  58.3%          8.3%                0.0%  12.5%        20.8%
##     Melankolis  60.0%          0.0%                0.0%   0.0%        40.0%
##      Plegmatis   8.3%         50.0%               25.0%   8.3%         8.3%
##      Sanguinis  42.9%         14.3%               14.3%   7.1%        21.4%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih membeli saham dibandingkan Bitcoin`
##  dominant_type Netral Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  66.7%               16.7%   4.2%        12.5%
##     Melankolis   0.0%                0.0%  60.0%        40.0%
##      Plegmatis  41.7%                0.0%  41.7%        16.7%
##      Sanguinis  35.7%               14.3%  14.3%        35.7%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih berinvestasi pada obligasi dibandingkan Bitcoin`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  58.3%         37.5%                4.2%   0.0%         0.0%
##     Melankolis  20.0%          0.0%                0.0%  20.0%        60.0%
##      Plegmatis  33.3%         33.3%                0.0%   0.0%        33.3%
##      Sanguinis  57.1%          7.1%               14.3%   7.1%        14.3%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya lebih memilih Bitcoin dibandingkan instrumen lainnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  16.7%         12.5%                4.2%   0.0%        66.7%
##     Melankolis  20.0%          0.0%               20.0%   0.0%        60.0%
##      Plegmatis  50.0%         33.3%                0.0%   8.3%         8.3%
##      Sanguinis  21.4%          0.0%               14.3%  14.3%        50.0%
## 
## $`Jika Anda memiliki uang dingin untuk berinvestasi maka ... >> Saya menghindari Bitcoin karena risikonya yang sangat besar`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris   4.2%          0.0%                0.0%   0.0%        95.8%
##     Melankolis  40.0%          0.0%                0.0%  20.0%        40.0%
##      Plegmatis  33.3%          8.3%                8.3%   8.3%        41.7%
##      Sanguinis  14.3%         14.3%                0.0%  28.6%        42.9%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Memilih instrumen investasi yang telah saya miliki sebelumnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  41.7%         16.7%               37.5%   4.2%         0.0%
##     Melankolis  20.0%          0.0%                0.0%  80.0%         0.0%
##      Plegmatis   0.0%         41.7%                0.0%  25.0%        33.3%
##      Sanguinis  21.4%         21.4%                7.1%  50.0%         0.0%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya suka berinvestasi pada instrumen yang baru`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  25.0%          4.2%               37.5%   8.3%        25.0%
##     Melankolis  40.0%          0.0%               40.0%  20.0%         0.0%
##      Plegmatis   0.0%          0.0%               33.3%  16.7%        50.0%
##      Sanguinis  35.7%          0.0%               42.9%   0.0%        21.4%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang aman meskipun untungnya kecil`
##  dominant_type Netral Sangat Setuju Setuju Tidak Setuju
##        Koleris  79.2%         12.5%   0.0%         8.3%
##     Melankolis  40.0%          0.0%  60.0%         0.0%
##      Plegmatis  16.7%         41.7%  33.3%         8.3%
##      Sanguinis  42.9%          0.0%  35.7%        21.4%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih investasi yang telah dimiliki oleh orang yang saya kenal`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris   4.2%         37.5%                4.2%   8.3%        45.8%
##     Melankolis  20.0%          0.0%                0.0%  60.0%        20.0%
##      Plegmatis  33.3%         58.3%                8.3%   0.0%         0.0%
##      Sanguinis  28.6%         14.3%                0.0%  21.4%        35.7%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi yang dimiliki/dipopulerkan oleh idola atau influencer yang saya ikuti`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  16.7%          0.0%                0.0%  58.3%        25.0%
##     Melankolis  20.0%         20.0%                0.0%  40.0%        20.0%
##      Plegmatis   8.3%          8.3%                8.3%  75.0%         0.0%
##      Sanguinis  21.4%         14.3%                7.1%  42.9%        14.3%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang memberikan laba terbesar`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  20.8%          4.2%               54.2%   8.3%        12.5%
##     Melankolis  20.0%          0.0%                0.0%  60.0%        20.0%
##      Plegmatis   8.3%          0.0%                8.3%   8.3%        75.0%
##      Sanguinis  14.3%         14.3%               21.4%  28.6%        21.4%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang disarankan oleh penasihat keuangan saya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  12.5%          0.0%                4.2%  50.0%        33.3%
##     Melankolis  20.0%         40.0%                0.0%  20.0%        20.0%
##      Plegmatis   8.3%         33.3%                0.0%  41.7%        16.7%
##      Sanguinis  21.4%          7.1%                7.1%  35.7%        28.6%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang pertumbuhannya bagus dari waktu ke waktu`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  16.7%          4.2%                0.0%  29.2%        50.0%
##     Melankolis  60.0%          0.0%               20.0%  20.0%         0.0%
##      Plegmatis  41.7%         16.7%               25.0%  16.7%         0.0%
##      Sanguinis  14.3%         14.3%                0.0%  35.7%        35.7%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen yang mudah diperjualbelikan (likuid)`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  70.8%          0.0%                8.3%  20.8%         0.0%
##     Melankolis  60.0%          0.0%               40.0%   0.0%         0.0%
##      Plegmatis  75.0%          0.0%               16.7%   8.3%         0.0%
##      Sanguinis  28.6%         21.4%               14.3%  21.4%        14.3%
## 
## $`Apa yang Anda pertimbangkan ketika memilih sebuah investasi? >> Saya memilih instrumen investasi berdasarkan perasaan/feeling`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  25.0%         16.7%               37.5%   4.2%        16.7%
##     Melankolis   0.0%         60.0%                0.0%  20.0%        20.0%
##      Plegmatis  16.7%         25.0%                0.0%  16.7%        41.7%
##      Sanguinis   7.1%         35.7%               21.4%  21.4%        14.3%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan menahannya dalam jangka panjang (di atas 5 tahun)`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris   8.3%         12.5%               50.0%  16.7%        12.5%
##     Melankolis  20.0%         20.0%                0.0%   0.0%        60.0%
##      Plegmatis  41.7%         25.0%               25.0%   0.0%         8.3%
##      Sanguinis   0.0%         21.4%               14.3%  28.6%        35.7%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya membeli dan menjual instrumen yang saya miliki kurang dari 6 bulan`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  45.8%         37.5%                4.2%   4.2%         8.3%
##     Melankolis  40.0%         20.0%               40.0%   0.0%         0.0%
##      Plegmatis  66.7%         25.0%                0.0%   0.0%         8.3%
##      Sanguinis  28.6%         35.7%               14.3%   7.1%        14.3%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya berinvestasi pada sebuah instrumen dan tetap menyimpannya sampai saya membutuhkan dana untuk membeli instrumen lainnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  29.2%          0.0%               29.2%  29.2%        12.5%
##     Melankolis  60.0%          0.0%               20.0%  20.0%         0.0%
##      Plegmatis  58.3%         16.7%               25.0%   0.0%         0.0%
##      Sanguinis  14.3%         14.3%               14.3%  14.3%        42.9%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya selalu mengecek dan mengevalusasi secara berkala`
##  dominant_type Netral Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  37.5%               45.8%   4.2%        12.5%
##     Melankolis   0.0%                0.0%  80.0%        20.0%
##      Plegmatis   8.3%               16.7%  25.0%        50.0%
##      Sanguinis  14.3%               42.9%  42.9%         0.0%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menahan investasi yang telah saya miliki hingga menghasilkan untung lalu menjualnya`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  25.0%          8.3%               20.8%  29.2%        16.7%
##     Melankolis  40.0%          0.0%                0.0%  20.0%        40.0%
##      Plegmatis   8.3%          8.3%                0.0%  33.3%        50.0%
##      Sanguinis  35.7%          0.0%               21.4%   7.1%        35.7%
## 
## $`Ketika saya telah memiliki investasi maka ... >> Saya menyimpan investasi saya dan menjualnya ketika keadaan darurat`
##  dominant_type Netral Sangat Setuju Sangat Tidak Setuju Setuju Tidak Setuju
##        Koleris  54.2%         12.5%               16.7%   8.3%         8.3%
##     Melankolis  40.0%         20.0%               20.0%   0.0%        20.0%
##      Plegmatis  58.3%         16.7%                8.3%  16.7%         0.0%
##      Sanguinis  50.0%          0.0%               14.3%  28.6%         7.1%