library(foreign)
library(soc.ca)
library(FactoInvestigate)
library(FactoMineR)
library(factoextra)
library(dplyr)
library(Factoshiny)
Read data
setwd("/Users/janfredrikhovden/Dropbox/DBXPAGAANDEARBEID/Statistikk/SPADprosjekt/MECIN") # change to preferred local directory
mecin<-read.spss("MeCIn103.sav", to.data.frame=TRUE) # SPSS
# mecin<-read.dta("MeCin104o.dta") # Dersom ein vil lese inn STATAfil
MCA med soc.ca
colnames(mecin)
## [1] "resp_id" "FinishTime"
## [3] "zzTotal_1" "Split_A"
## [5] "Split_B" "hSplit"
## [7] "Q2a_TV_stue" "Q2b_TV_annet"
## [9] "Q2c_nettbrett" "Q2d_smarttelefon"
## [11] "Q2e_mobil_eldre" "Q2f_fasttelefon"
## [13] "Q2g_radio" "Q2h_spillkonsoll"
## [15] "Q2i_PC" "Q2j_ingen"
## [17] "Q3a_TV_stue" "Q3b_TV_annet"
## [19] "Q3c_nettbrett" "Q3d_smarttelefon"
## [21] "Q3e_mobil_eldre" "Q3f_fasttelefon"
## [23] "Q3g_radio" "Q3h_spillkonsoll"
## [25] "Q3i_PC" "Q3j_ingen"
## [27] "Q4a_strom_film_TV" "Q4b_strom_musikk"
## [29] "Q4c_papiravis_abo" "Q4d_papiravis_kjop"
## [31] "Q4e_abo_dig_avis" "Q4f_blader_magasiner"
## [33] "Q4g_tidsskrift" "Q4h_ingen"
## [35] "Q5a_strom_film_TV" "Q5b_strom_musikk"
## [37] "Q5c_abo_papiravis" "Q5d_kjop_papiravis"
## [39] "Q5e_abo_dig_avis" "Q5f_blader_magasiner"
## [41] "Q5g_tidsskrift" "Q5h_ingen"
## [43] "Q6a_papiravis" "Q6b_nettavis"
## [45] "Q6c_nyhetsnettsteder" "Q6d_TVdirekte"
## [47] "Q6e_TVopptak" "Q6f_radio_direkte"
## [49] "Q6g_radio_opptak" "Q6h_sos_medier"
## [51] "Q6i_dataspill" "Q6j_skjonnlitteratur"
## [53] "Q6k_faglitteratur" "Q6l_musikk"
## [55] "Q6m_film" "Q6n_TVserie"
## [57] "Q6o_nyheterTV" "Q6p_nyheter_radio"
## [59] "dum__Q005_1" "dum__Q005_2"
## [61] "dum__Q005_3" "dum__Q005_4"
## [63] "dum__Q005_5" "dum__Q005_6"
## [65] "dum__Q005_7" "dum__Q005_8"
## [67] "dum__Q005_9" "dum__Q005_10"
## [69] "dum__Q005_11" "dum__Q005_12"
## [71] "dum__Q005_13" "dum__Q005_14"
## [73] "dum__Q005_15" "dum__Q005_16"
## [75] "dum__Q005__R8_8" "Q7a_disponere_fritid"
## [77] "Q7b_hjemme" "Q7c_besok"
## [79] "Q7d_nabo_snakk" "Q7e_ute_venner"
## [81] "Q7f_middag_ute" "Q7g_overtid"
## [83] "Q7h_barn_aktivitet" "Q7i_trener"
## [85] "Q7j_annen_fritidsaktivitet" "Q8a_snakker"
## [87] "Q8b_teksmelding_chat" "Q8c_epost"
## [89] "Q8d_kalender" "Q8e_bilder_video"
## [91] "Q8f_sos_medier" "Q8g_nyheter"
## [93] "Q8h_kultur_underholdning" "Q8i_praktiske_formal"
## [95] "Q8j_ingen" "hQ008_1"
## [97] "hQ008_2" "hQ008_3"
## [99] "hQ008_4" "hQ008_5"
## [101] "Q9a_alltid_tilgjengelig" "Q9b_smarttelefon_viktigere"
## [103] "Q9c_irritert" "Q9d_bekymret"
## [105] "Q9e_vil_bruke_mindre" "Q10a_bruker_mer"
## [107] "Q10b_bruker_mindre" "Q10c_mer_nyheter"
## [109] "Q10d_mindre_nyheter" "Q10e_deler_mer_sosmedia"
## [111] "Q10f_deler_mindre_sosmedier" "Q10g_papiravis_abo_sluttet"
## [113] "Q10h_nettavis_abo_begynt" "Q10i_ny_tilgang"
## [115] "Q10j_alternative_nyheter_oftere" "Q10k_mer_interessert_lokalmiljo"
## [117] "Q10l_mer_familiepavirkning_medie" "Q10m_minde_tid_fordyping"
## [119] "Q10n_ingen" "Q11_1_utenriksnyheter"
## [121] "Q11_2_innenriksnyheter" "Q11_3_lokalnyheter_region_fylke"
## [123] "Q11_4_lokalnyheter_by_kom" "Q11_5_nyheter_hjemkommune_hjemla"
## [125] "Q11_6_ledere_kommentarer" "Q11_7_leserinnlegg_debatt_kronik"
## [127] "Q11_8_portrettintervjuer" "Q11_9_politikk_andre_land"
## [129] "Q11_10_nasjonal_politikk" "Q11_11_lokalpolitikk"
## [131] "Q11_12_kriminalstoff" "Q11_13_neringslivstoff"
## [133] "Q11_14_ingen_1_13" "Q11_15_vet_ikke_1_13"
## [135] "Q11_16_sport" "Q11_17_sosialomsorg"
## [137] "Q11_18_fattigdom_utviklingsland" "Q11_19_natur_miljovern"
## [139] "Q11_20_kulturanmeldelser" "Q11_21_kjendiser_"
## [141] "Q11_22_konge_kongehus" "Q11_23_livsstil_"
## [143] "Q11_24_samliv_helse_relasjoner" "Q11_25_uteliv_trender"
## [145] "Q11_26_okonomitips" "Q11_27_bil_motor"
## [147] "Q11_28_data_ny_teknologi" "Q11_29_ingen_16_28"
## [149] "Q11_30_vet_ikke_16_28" "Q13a_TVserie"
## [151] "Q13b_film" "Q13c_teater_revy"
## [153] "Q13d_kunst_utstilling" "Q13e_kunstnere_trad_norsk"
## [155] "Q13f_kunstnere_samtid" "Q13g_litteratur_krim_spenning"
## [157] "Q13h_litteratur_samtid" "Q13i_litteratur_biografier"
## [159] "Q13j_musikk_folk" "Q13k_musikk_klassisk"
## [161] "Q13l_musikk_hiphop" "Q13m_musikk_salsa_reggae"
## [163] "Q13n_musikk_dansband" "Q13o_musikk_populer"
## [165] "Q13p_ingen" "Q13q_vet_ikke"
## [167] "Q14a_Adresseavisen" "Q14b_Aftenposten"
## [169] "Q14c_BergensTidende" "Q14d_Dag_og_Tid"
## [171] "Q14e_Dagbladet" "Q14f_Dagen"
## [173] "Q14g_DagensNeringsliv" "Q14h_Dagsavisen"
## [175] "Q14i_Fedrelandsvennen" "Q14j_Klassekampen"
## [177] "Q14k_Morgenbladet" "Q14l_Nettavisen"
## [179] "Q14m_Nationen" "Q14n_Nordlys"
## [181] "Q14o_StavangerAftenblad" "Q14p_VG"
## [183] "Q14q_VartLand" "Q14r_norske_aviser_annet"
## [185] "Q14s_utenlandske_aviser" "Q14t_avis_ingen"
## [187] "Q14u_avis_vet_ikke" "Q14v_nettside_NRK"
## [189] "Q14w_nettside_P4" "Q14x_nettside_TV2"
## [191] "Q14y_nettside_ABCnyheter" "Q14a_nettside_Sol_no"
## [193] "Q14b_nettside_AlJazeeras" "Q14c_nettside_BBC"
## [195] "Q14d_nettside_BuzzFeed" "Q14e_nettside_CNN"
## [197] "Q14f_nettside_GoogleNews" "Q14g_nettside_TheGuardian"
## [199] "Q14h_nettside_HuffingtonPost" "Q14i_nettside_NewYorkTimes_"
## [201] "Q14j_nettside_ingen" "Q16a_LokalTV"
## [203] "Q16b_NRK1" "Q16c_NRK2"
## [205] "Q16d_NRK3" "Q16e_NRKSuper"
## [207] "Q16f_NRK_NettTV" "Q16g_TV2"
## [209] "Q16h_TV2_Zebra" "Q16i_TV_2_Nyhetskanalen"
## [211] "Q16j_TV_2_Humor" "Q16k_TV_2_Livsstil"
## [213] "Q16l_TV_2_Sport" "Q16m_TV_2_Sumo"
## [215] "Q16n_TVNorge" "Q16o_FEM"
## [217] "Q16p_Max" "Q16q_TV3"
## [219] "Q16r_Viasat4" "Q16s_Vox"
## [221] "Q16t_ingen" "Q16u_vet_ikke"
## [223] "Q17a_Youtube" "Q17b_Strommetjenester"
## [225] "Q17c_Svenske_tv_kanaler" "Q17d_Danske_tv_kanaler"
## [227] "Q17e_Eurosport" "Q17f_sportskanaler_andre"
## [229] "Q17g_MTV" "Q17h_Discovery_Channel"
## [231] "Q17i_Animal_Planet" "Q17j_TravelChannel"
## [233] "Q17k_National_Geographic_Channel" "Q17l_BBC_World_News"
## [235] "Q17m_CNN" "Q17n_TCM"
## [237] "Q17o_ingen" "Q17p_vet_ikke"
## [239] "Q18a_NRK_P1" "Q18b_NRK_P2"
## [241] "Q18c_NRK_P3" "Q18d_NRK_P13"
## [243] "Q18e_NRK_Alltid_Nyheter" "Q18f_NRK_Alltid_Klassisk"
## [245] "Q18g_Nerradiosendinger_ikke_NRK" "Q18h_Radio_P4"
## [247] "Q18i_Radio_Norge" "Q18j_norske_radiokanaler_annet"
## [249] "Q18k_utenlandske_radiokanaler" "Q18l_ingen"
## [251] "Q18m_vet_ikke" "Q19viktigste_nyhetskilde"
## [253] "Q21a_gudstjeneste_religiost" "Q21b_kino"
## [255] "Q21c_museum" "Q21d_kunstutstilling"
## [257] "Q21e_teater_" "Q21f_revy_standup"
## [259] "Q21g_konsert_klassisk" "Q21h_konsert_annen"
## [261] "Q21i_festival_kunst_kultur" "Q21j_kulturarrangement_annet"
## [263] "Q21k_idrettsarrangement" "Q21l_bibliotek"
## [265] "Q21m_messe" "Q21n_chartertur"
## [267] "Q21o_reise" "Q21p_dugnad"
## [269] "Q22a_Dagsreveyen" "Q22b_Distriksnyheter"
## [271] "Q22c_Dagsnytt_18" "Q22d_Debatten_NRK"
## [273] "Q22e_TV2nyhetene" "Q22f_Urix"
## [275] "Q22g_Brennpunkt" "Q22h_Nytt_pa_Nytt"
## [277] "Q22i_Lindmo" "Q22j_Skavlan"
## [279] "Q22k_Folkeopplysningen" "Q22l_Trygdekontoret"
## [281] "Q22m_Stjernekamp" "Q22n_Farmen"
## [283] "Q22o_Paradise_Hotel" "Q22p_Senkveld"
## [285] "Q22q_Luksusfellen" "Q22r_andenes_makt"
## [287] "Q22s_Ut_i_naturen" "Q22t_Fodeavdelingen"
## [289] "Q22u_Deringenskulle" "Q22v_Tid_for_hjem"
## [291] "Q22w_God_morgen_Norge" "Q22x_Brille"
## [293] "Q22y_Top_Gear" "Q24a_apent_svar"
## [295] "Q24A_0" "Q24b_apent_svar"
## [297] "Q24B_0" "Q24c_apent_svar"
## [299] "Q25a_Game_of_Thrones" "Q25b_Side_om_side"
## [301] "Q25c_Skam" "Q25d_The_Wire"
## [303] "Q25e_Modern_Family" "Q25f_The_Leftovers"
## [305] "Q25g_The_Crown" "Q25h_Criminal_Minds"
## [307] "Q25i_Nobel" "Q25j_Vikings"
## [309] "Q25k_Greys_Anatomy" "Q25l_House_of_Cards"
## [311] "Q25m_Kampen_om_tungtvannet" "Q25n_Downton_Abbey"
## [313] "Q25o_Narcos" "Q25p_Broen"
## [315] "Q25q_Medhjartetrette" "Q25r_Big_Bang_Theory"
## [317] "Q27a_diskutere" "Q27b_bare_underholdning"
## [319] "Q27c_urettferdig_problematisk" "Q27d_vere_menneske"
## [321] "Q27e_historiske_hendelser" "Q27f_avansert_fortellerteknikk"
## [323] "Q29kommune_ar" "Q028_Codes"
## [325] "Q30_utdanning" "Q31_fag"
## [327] "Q32_stilling" "Q33_lederansvar"
## [329] "Q34_bransje" "Q35_offentlig_privat"
## [331] "Q36_yrkestittel" "Q36_Y0"
## [333] "Q36_Y1" "Q37_kommentar"
## [335] "Q37_K0" "Q37_K1"
## [337] "Q37_K2" "Q37_K3"
## [339] "Q37_K4" "Q37_K5"
## [341] "Q37_K6" "Q37_K7"
## [343] "Q37_K8" "Q37_K9"
## [345] "Q37_KA" "Q38_arbeid_antall_timer"
## [347] "Q39a_barn_nye" "Q39b_barn_flyttet_ut"
## [349] "Q39c_samboer_blitt" "Q39a_samboer_slutt"
## [351] "Q39b_bedre_rad" "Q39c_darligere_rad"
## [353] "Q39d_studier" "Q39e_sykdom"
## [355] "Q39f_jobbytte" "Q39g_bodd_utlandet"
## [357] "Q39h_flyttet" "Q39i_pensjon"
## [359] "Q39j_ingen" "Q40_inntekt"
## [361] "Q41_penger_bank" "Q42_verdi_bolig"
## [363] "Q43_1_Advokat_dommer" "Q43_2_Avisredaktor"
## [365] "Q43_3_Bonde" "Q43_4_Buss_drosje_lastebilsjafor"
## [367] "Q43_5_Butikkmedarbeider" "Q43_6_Eier_stor_bedrift"
## [369] "Q43_7_Eier_av_utested_" "Q43_8_Forlagsmedarbeider"
## [371] "Q43_9_Hjelpepleier" "Q43_10_Industriarbeider"
## [373] "Q43_11_Ingenior" "Q43_13_IT_konsulent"
## [375] "Q43_14_Journalist" "Q43_15_Kunstner"
## [377] "Q43_16_Leder_i_neringslivet" "Q43_17_Leder_i_stat"
## [379] "Q43_18_Leder_i_kommuneadministra" "Q43_19_Lege"
## [381] "Q43_20_Lektor_videregaende" "Q43_21_Lerer_barne_ungdomsskole"
## [383] "Q43_22_Politi" "Q43_23_Politiker_byrad_kommunest"
## [385] "Q43_24_Postbud" "Q43_26_Professor"
## [387] "Q43_27_Regnskapsforer" "Q43_28_Renholder"
## [389] "Q43_29_Rorlegger" "Q43_30_Selger"
## [391] "Q43_31_Sivilingenior" "Q43_32_Sivilokonom"
## [393] "Q43_33_Sosionom_barnevernsarbeid" "Q43_34_Stortingspolitiker"
## [395] "Q43_35_Sykepleier" "Q47a_stemte"
## [397] "Q47b_partilederdebatt" "Q47c_valgsending"
## [399] "Q47d_avislesing" "Q47e_nettsider_parti"
## [401] "Q47f_nyhetskilder_andre" "Q47g_diskusjon_jobb"
## [403] "Q47h_diskusjon_venne_familie" "Q47i_valgomat"
## [405] "Q47j_partiprogram" "Q47k_sosmedier_politikere_parti"
## [407] "Q47l_ingen_a_k" "Q47m_politisk_reklame"
## [409] "Q47n_sosmedier_dele_kommentere" "Q47o_sosmedier_statusoppdatering"
## [411] "Q47p_leserinnlegg_debattinnlegg" "Q47q_oppfordre_stemmerett"
## [413] "Q47r_pavirke_andre" "Q47s_politisk_mote"
## [415] "Q47t_deltok_valgkamp" "Q47u_ingen_m_t"
## [417] "Q49_politisk_parti" "Q50a_har_tillit"
## [419] "Q50b_usikker_partier" "Q50c_brenner_ikke"
## [421] "Q50d_ingen_parti" "Q50e_politikk_lite_relevant"
## [423] "Q50f_gjor_ingen_forskjell" "Q50g_plikt_stemme"
## [425] "Q50h_mistro_demokrati" "Q50i_god_forstaelse"
## [427] "Q50j_stoler_pa_" "Q50k_kan_pavirke"
## [429] "Q50l_kan_finne_info" "Q50m_ubrukt_engasjement"
## [431] "Q50n_ubehagelig_spurt" "Q50o_andre_forstar_ikke"
## [433] "Q50p_folkeavstemminger" "Q50q_eksperter"
## [435] "Q50r_venner_forventer" "Q50s_vite_hva_som_snakkes_om"
## [437] "Q50t_behov_infomert" "Q50u_nyheter_komplisert"
## [439] "Q50v_for_mye_informasjon" "Q50w_skjerme_mot_nyheter"
## [441] "Q50x_lite_relevant" "nordkorea"
## [443] "catalonia" "velferdsprofitt"
## [445] "SAS" "ulvejakt"
## [447] "kommunesammen" "brexit"
## [449] "listhaugsverige" "oljenord"
## [451] "storeprivok" "bloggrasmussen"
## [453] "russlandval" "formueskatt"
## [455] "hijabnrk" "lokalsjukehus"
## [457] "Hjorth" "krfvregj"
## [459] "jensen" "nobellitt"
## [461] "sykkelvm" "plastkvalen"
## [463] "SSB" "skalvidanse"
## [465] "co2budsj" "kygo"
## [467] "skamkarriere" "metoo"
## [469] "syriaflykt" "voldvidg"
## [471] "nikabforbod" "rumentigg"
## [473] "statsbudsj" "Q53_11_ingen_1_10"
## [475] "Q53_23_ingen_12_22" "Q53_35_ingen_24_34"
## [477] "Q56_sak1" "Q56_SD"
## [479] "Q56_SE" "Q56_SF"
## [481] "Q56_SG" "Q56_SH"
## [483] "Q56_SI" "Q56_SJ"
## [485] "Q56_SK" "Q56_SL"
## [487] "Q56_SM" "Q56_SN"
## [489] "Q56_sak2" "Q56_S2"
## [491] "Q56_S3" "Q56_S4"
## [493] "Q56_S5" "Q56_S6"
## [495] "Q56_S7" "Q56_S8"
## [497] "Q56_S9" "Q56_SA"
## [499] "Q56_SB" "Q56_SC"
## [501] "Q56_sak3" "Q56_S0"
## [503] "Q56_S1" "Q57a_interesseorganisasjon"
## [505] "Q57b_politisk_partiarbeid" "Q57c_streik"
## [507] "Q57d_demonstrasjon" "Q57e_kontaktet_politiker"
## [509] "Q57f_kontaktet_media" "Q57g_personlig_protest"
## [511] "Q57h_underskriftskamapnje" "Q57i_donert_penger"
## [513] "Q57j_deltatt_markering" "Q57k_ingen"
## [515] "Q58a_Facebook" "Q58b_Twitter"
## [517] "Q58c_Snapchat" "Q58d_Instagram"
## [519] "Q58e_LinkedIn" "Q58f_annet"
## [521] "Q59a_oppdatering_sosial" "Q59b_orientering_sosial"
## [523] "Q59c_orientering_kultur" "Q59d_arrangement_invitasjoner"
## [525] "Q59e_organisering_aktivitet" "Q59f_oppdateringer_jobb"
## [527] "Q59g_lengre_innlegg" "Q59h_starter_debatt"
## [529] "Q59i_deltar_debatt" "Q59j_dele_nyheter"
## [531] "Q59k_kommenterer_nyheter" "Dum__Q056_1"
## [533] "Dum__Q056_2" "Dum__Q056_3"
## [535] "Dum__Q056_4" "Dum__Q056_5"
## [537] "Dum__Q056_6" "Dum__Q056_7"
## [539] "Dum__Q056_8" "Dum__Q056_9"
## [541] "Dum__Q056_10" "Dum__Q056_11"
## [543] "Q61a_rolle_i_samfunn" "Q61b_ingenting_bidra"
## [545] "Q61c_vanskelig_formulere" "Q61d_ingen_forskjell"
## [547] "Q61e_foretrekke_f2f" "Q61f_redd_kritikk"
## [549] "Q61g_redd_misforstatt" "Q61h_redd_trakasering"
## [551] "Q61i_redd_manglende_respons" "Q61j_redd_feilinfo"
## [553] "Q61k_redd_uenighet" "Q61l_redd_ut_av_sammenheng"
## [555] "Q61m_annet" "Q61n_ingen"
## [557] "Q62a_nyttig_for_andre" "Q62b_dele_synspunkt"
## [559] "Q62c_korrigere_debatt" "Q62d_vise_identitet"
## [561] "Q62e_underholde" "Q62f_kontakt_med_andre"
## [563] "Q62g_formidle_engasjement" "Q62h_fremsta_informert"
## [565] "Q62i_starte_debatt" "Q62j_rolle_i_samfunn"
## [567] "Q62k_annet" "Q62l_ingen"
## [569] "Q63a_nyttig_nyhetsformidler" "Q63b_nyheter_tilfeldig"
## [571] "Q63c_folger_brukere_organisasjon" "Q63d_vet_ikke_hvorfra"
## [573] "Q63e_enig_nyheter" "Q63f_samme_nyheter_ellers"
## [575] "Q64g_debatt_viktig" "Q64h_delta_viktig"
## [577] "Q64i_diskusjon_horer_ikke_hjemme" "Q64j_lett_delta"
## [579] "Q64k_liten_verdi" "Q64l_private_ytringer"
## [581] "Q65a_grupper_private_medlinger" "Q65b_selvsensur"
## [583] "Q65c_lettere_enn_f2f" "Q65d_folger_sider_grupper"
## [585] "Q65e_naturlig_delta" "Q65f_bor_respondere"
## [587] "Q65g_ikke_samfunnsdebatt" "Q67_utdanning_mor"
## [589] "Q67_utdanning_far" "Q68_foreldre_politisk_verv"
## [591] "Q69a_oppvekst_kultur" "Q69b_oppvekst_politikk"
## [593] "Q69c_oppvekst_okonomi" "Q71a_politisk_parti_"
## [595] "Q71b_fagforbund" "Q71c_interesseorganisasjon"
## [597] "Q71d_miljovern" "Q71e_bredskap"
## [599] "Q71f_solidaritet" "Q71g_fadder"
## [601] "Q71a_forening" "Q71b_velforening"
## [603] "Q71c_kultur" "Q71d_ingen"
## [605] "Q71e_friluftsliv" "Q71f_omsorg_inkludering"
## [607] "Q71g_helse" "Q71h_motor_bat_bil"
## [609] "Q71i_religion" "Q71j_human_etisk"
## [611] "Q71k_idrettslag" "Q71l_hobbyforening"
## [613] "Q71m_studentsamfunn" "Q71n_pensjonistforening"
## [615] "Q71o_annen" "Q71p_ingen"
## [617] "Q73_frivillig_arbeid" "Q75a_Helsevesenet"
## [619] "Q75b_Neringslivet" "Q75c_Innvandring"
## [621] "Q75d_Arbeidsmarkedet" "Q75e_Klimadebatten"
## [623] "Q75f_EU_EoS" "Q75g_Kriminalitet"
## [625] "Q76a_NRK" "Q76b_TV2"
## [627] "Q76c_Aftenposten" "Q76d_Dagbladet"
## [629] "Q76e_VG" "Q76f_Dagens_Neringsliv"
## [631] "Q76g_Finansavisen" "Q76h_Klassekampen"
## [633] "Q76i_Nationen" "Q76j_Vart_Land"
## [635] "Q76k_Dagen" "Q76l_Lokalavisen"
## [637] "Q76m_Regionsavisen" "Q76n_Rights_no"
## [639] "Q76o_Document_no" "Q76p_Fria_Tider"
## [641] "Q76q_Den_korte_avis" "Q76r_Diskusjonstrader__sosmedier"
## [643] "Q76s_annet" "Q76s2_apent_svar"
## [645] "Q76S20" "Q76S21"
## [647] "Q76S22" "Q76S23"
## [649] "Q76S24" "Q76S25"
## [651] "Q76S26" "Q76S27"
## [653] "Q76S28" "Q76S29"
## [655] "Q76S2A" "Q77a_innvandring_truer_velferdss"
## [657] "Q77b_innvandring_truer_kultur" "Q77c_innvandring_truer_orden"
## [659] "Q78a_nyhetsmedier_favoriserer" "Q78b_nyhetsmedier_pavirket"
## [661] "Q79a_NRK" "Q79b_TV2"
## [663] "Q79c_Aftenposten" "Q79d_Dagbladet"
## [665] "Q79e_VG" "Q79f_Lokalavisen"
## [667] "alder" "fylke"
## [669] "kjonnx" "livsopph"
## [671] "postnr" "komnr"
## [673] "komsentr" "persinnt12"
## [675] "utdanning" "antpers"
## [677] "husinnt" "under15"
## [679] "harborn" "bolig11"
## [681] "stdgeo" "stdalder"
## [683] "timeTotalMinutes" "q3"
## [685] "Q30" "Q31"
## [687] "Q32" "Q33"
## [689] "Q34" "Q35"
## [691] "Q36" "Q37"
## [693] "Q38" "Q39"
## [695] "Q3A" "vekt"
## [697] "alderkjonn" "r53ant"
## [699] "ralder10" "hogutd01"
## [701] "r35offentligsektor" "r53dumantsak"
## [703] "r49parti3" "rutd3"
## [705] "utdkjonn" "alderutd"
## [707] "r40inn4" "r49enkel"
## [709] "osloakershus" "r16nrk_alt"
## [711] "r18nrk_alt" "a_papiravis"
## [713] "b_nettavis" "c_nyhetsnettsteder"
## [715] "d_TVdirekte" "e_TVopptak"
## [717] "f_radio_direkte" "g_radio_opptak"
## [719] "h_sos_medier" "i_dataspill"
## [721] "j_skjonnlitteratur" "k_faglitteratur"
## [723] "l_musikk" "m_film"
## [725] "n_TVserie" "o_nyheterTV"
## [727] "p_nyheter_radio" "cFilmSerie"
## [729] "cPapirdirKring" "cDigavis"
## [731] "cLitt" "r16tv2tvn"
## [733] "X._clus_1_id" "X._clus_1_ord"
## [735] "X._clus_1_hgt" "cluQ6_4"
## [737] "mcautd" "mcastilling"
## [739] "mcaoffpriv" "mcafag"
## [741] "mcahusverdi" "mcabank"
## [743] "mcafutd" "mcakultheim"
## [745] "mcahusinnt" "ISEItot"
## [747] "ISEImod" "ISEIhogaste"
## [749] "ISEIlaagaste" "ISEItot_mean"
## [751] "ISEI3grp" "ISEIyrkant"
## [753] "ISEIsnitt" "ISEIrange"
## [755] "Serialnu" "ISCO88"
## [757] "altmedia" "serialnu_A"
## [759] "mbrand6class" "nrkalt"
## [761] "a30M" "a30K"
## [763] "a3044M" "a3044K"
## [765] "a4559M" "a4559K"
## [767] "a60M" "a60K"
## [769] "aldUnder30" "ald3044"
## [771] "ald4559" "ald60"
## [773] "OsloAkershus_A" "Reststland"
## [775] "SrVestland" "TrlagNordNorge"
## [777] "Mann" "Kvinne"
## [779] "i300" "i300499"
## [781] "i500799" "i800"
## [783] "mcautd4" "mcatypeedu"
## [785] "u_grunnsk" "vidg"
## [787] "u_hog14" "u_hog5"
## [789] "r32stilling" "aiarbeid"
## [791] "aelevstudlaer" "aalderspensj"
## [793] "atrygdarbled" "aanna"
## [795] "AftenAdrBTSA" "r14lesnavis"
## [797] "andrenaviser" "riksmeningavis"
## [799] "utlnynett" "r02tv"
## [801] "r5Q6a_papiravis" "r3Q6a_papiravis"
## [803] "r5Q6b_nettavis" "r3Q6b_nettavis"
## [805] "r5Q6c_nyhetsnettsteder" "r3Q6c_nyhetsnettsteder"
## [807] "r5Q6d_TVdirekte" "r3Q6d_TVdirekte"
## [809] "r5Q6e_TVopptak" "r3Q6e_TVopptak"
## [811] "r5Q6f_radio_direkte" "r3Q6f_radio_direkte"
## [813] "r5Q6g_radio_opptak" "r3Q6g_radio_opptak"
## [815] "r5Q6h_sos_medier" "r3Q6h_sos_medier"
## [817] "r5Q6i_dataspill" "r3Q6i_dataspill"
## [819] "r5Q6j_skjonnlitteratur" "r3Q6j_skjonnlitteratur"
## [821] "r5Q6k_faglitteratur" "r3Q6k_faglitteratur"
## [823] "r5Q6l_musikk" "r3Q6l_musikk"
## [825] "r5Q6m_film" "r3Q6m_film"
## [827] "r5Q6n_TVserie" "r3Q6n_TVserie"
## [829] "r5Q6o_nyheterTV" "r3Q6o_nyheterTV"
## [831] "r5Q6p_nyheter_radio" "r3Q6p_nyheter_radio"
## [833] "ccapvol" "ccapcomp"
## [835] "csocspace" "clu4brand"
## [837] "clu7brand" "clu9brand"
## [839] "Q6vekeTV" "Q6vekeRadio"
## [841] "r16tv2alt" "dagblvg"
## [843] "nyhja" "nyhjaveke"
## [845] "clu5platform" "c50_1"
## [847] "c50_2" "c50_3"
## [849] "c50_4" "i78"
## [851] "rpersinn" "r40inn4b"
## [853] "nyhja34dgveke" "nyhjadagleg"
## [855] "r31fag" "r69kultheimheiltsamd"
## [857] "nyhetstrom" "tvseriestrom"
## [859] "surfstrom" "tvtrad"
## [861] "nyhettrad" "guardianmorgenbl"
## [863] "cnntravelch" "netflixsnap"
## [865] "p2alltidnyh" "nrk1tv2"
## [867] "femtv3" "maxeurosport"
## [869] "r68fmpolverv" "r67hogsteutdfm"
## [871] "r67fmutd4" "kv"
## [873] "ISEIrtot3" "antpers3"
## [875] "buralene" "bursamanmandre"
## [877] "r06papirnettdagl" "r53ant3"
## [879] "r32ikkjeheime" "r40innnedrekvarti"
## [881] "vidghog10" "inntektover300"
## [883] "inntektover200" "r50politlaagtillit"
## [885] "r50trurikkjedemokrati" "r50valgendreringenting"
## [887] "r50kanikkjepaaverkebeslut" "r50forstaarikkjepolsaker"
## [889] "r06sjeldenaldrisosialemedier" "r06sjeldenaviserpapnett"
## [891] "r06aviseru3dgveke" "r06kringnyheiteru3dg"
## [893] "r06nyhu3dg" "r71ingenlag"
## [895] "X._clus_2_id" "X._clus_2_ord"
## [897] "X._clus_2_hgt" "r47stemte"
## [899] "X._clus_3_id" "X._clus_3_ord"
## [901] "X._clus_3_hgt" "marginal"
## [903] "clu3themes" "clu3issues"
## [905] "clu9issues" "clu6themes"
## [907] "clu5issues" "foreignnews"
## [909] "natnewssport" "celebentertain"
## [911] "lowinterest" "newscommerce"
## [913] "socialdebateart" "privpolusarefug"
## [915] "northkorea" "realitypersonal"
## [917] "natpolcontrovers" "northkoreacatalusasyria"
## [919] "ssb_A" "X._est_oneclass"
## [921] "X._est_twoclass" "X._est_threeclass"
## [923] "X._est_fourclass" "X._est_fiveclass"
## [925] "X._est_sixclass" "X._est_sevenclass"
## [927] "PCvalengasj47" "PCpolavst50"
## [929] "PCpolnaerleik50" "PCpoltil50flip"
## [931] "PCefficacy50" "PCpoltil78flip"
## [933] "PCantsak53" "PCsosnettstorleik"
## [935] "PCpolakt57" "PCsosnyheiter59"
## [937] "raabeavis" "ccapcomp2"
## [939] "r50polithogtillit" "r50kanpaaverke"
## [941] "r50forstaarpolsak" "r50trurpaademo"
## [943] "PCpoltil50" "PCefficacy50flip"
## [945] "revQ50a_har_tillit" "r50a_tilitpolit"
## [947] "csoc2" "r50f_gjerforskjel"
## [949] "r33leder" "r32selvst"
## [951] "isco88_4siffer" "egp"
## [953] "trei" "isei"
## [955] "yrke1" "yrke2"
## [957] "skam01" "nobel01"
## [959] "housecards01" "heartbeat01"
## [961] "r77indexinnv" "revr77indexinnv"
## [963] "r78indexpart" "r79indextillit"
## [965] "cQ77a" "cQ77b"
## [967] "cQ77c" "cr77indexinnv"
## [969] "cQ78a" "cQ78b"
## [971] "cr78indexpart" "cQ79a"
## [973] "cQ79b" "cQ79c"
## [975] "cQ79d" "cQ79e"
## [977] "cQ79f" "cr79indexmistil"
## [979] "r49polpar" "cr79indextilit"
## [981] "revcr79indextilit" "polArbeiderpartiet"
## [983] "polHyre" "polFremskrittspartiet"
## [985] "polSenterpartiet" "polSosialistiskVenstreparti"
## [987] "polVenstre" "polKristeligFolkeparti"
## [989] "polMiljpartietDeGrnne" "polRdt"
## [991] "polAnnetparti" "polJegstemteblankt"
## [993] "revcQ78a" "revcQ78b"
## [995] "X._est_est1" "X._est_est2"
## [997] "X._est_est3" "X._est_est4"
## [999] "ald5" "ald10"
## [1001] "r50nyhkomplsamd" "Dagsreveyen"
## [1003] "Distriksnyheter" "Dagsnytt_18"
## [1005] "Debatten_NRK" "TV2nyhetene"
## [1007] "Urix" "Brennpunkt"
## [1009] "Nytt_pa_Nytt" "Lindmo"
## [1011] "Skavlan" "Folkeopplysningen"
## [1013] "Trygdekontoret" "Stjernekamp"
## [1015] "Farmen" "Paradise_Hotel"
## [1017] "Senkveld" "Luksusfellen"
## [1019] "andenes_makt" "Ut_i_naturen"
## [1021] "Fodeavdelingen" "Deringenskulle"
## [1023] "Tid_for_hjem" "God_morgen_Norge"
## [1025] "Brille" "Top_Gear"
## [1027] "Game_of_Thrones" "Side_om_side"
## [1029] "Skam" "The_Wire"
## [1031] "Modern_Family" "The_Leftovers"
## [1033] "The_Crown" "Criminal_Minds"
## [1035] "Nobel" "Vikings"
## [1037] "Greys_Anatomy" "House_of_Cards"
## [1039] "Kampen_om_tungtvannet" "Downton_Abbey"
## [1041] "Narcos" "Broen"
## [1043] "Medhjartetrette" "Big_Bang_Theory"
## [1045] "saker3clusters" "saker4clusters"
## [1047] "saker7clusters" "avvisstoff5clusters"
## [1049] "avvisstoff4clusters" "avvisstoff7clusters"
data<-mecin[, c("Dagsreveyen",
"Distriksnyheter", "Dagsnytt_18", "Debatten_NRK",
"TV2nyhetene", "Urix", "Brennpunkt", "Nytt_pa_Nytt",
"Lindmo", "Skavlan", "Folkeopplysningen",
"Trygdekontoret", "Stjernekamp", "Farmen",
"Paradise_Hotel", "Senkveld", "Luksusfellen",
"andenes_makt", "Ut_i_naturen", "Fodeavdelingen",
"Deringenskulle", "Tid_for_hjem", "God_morgen_Norge",
"Brille", "Top_Gear", "Game_of_Thrones", "Side_om_side",
"Skam", "The_Wire", "Modern_Family", "The_Crown",
"Criminal_Minds", "Nobel", "Vikings", "Greys_Anatomy",
"House_of_Cards", "Kampen_om_tungtvannet", "Downton_Abbey",
"Narcos", "Broen", "Medhjartetrette", "Big_Bang_Theory", "rutd3", "r40inn4","kjonnx", "stdalder", "resp_id")]
nrow(data) # antal før sletting av ikkje-komplette
## [1] 2064
data<-data %>% filter(complete.cases(.))
nrow(data) # antal etterpå
## [1] 1664
active<-data[c(1:42)]
sup<-data[c(43:46)]
result<-soc.mca(active,sup)
result
## Specific Multiple Correspondence Analysis:
##
## Statistics Scree plot
## Active dimensions: 11 | 1. 41.8% *********************
## Dimensions explaining 80% of inertia: 3 | 2. 33.2% ****************
## Active modalities: 84 | 3. 19.3% **********
## Supplementary modalities: 13 | 4. 2.3% *
## Individuals: 1664 | 5. 1.7% *
## Share of passive mass: 0 | 6. 0.9%
## Number of passive modalities: 0 | 7. 0.3%
##
## The 42 active variables: [No. modalities - share of variance]
##
## Dagsreveyen [2 - 2%] Distriksnyheter [2 - 2%] Dagsnytt_18 [2 - 2%]
## Debatten_NRK [2 - 2%] TV2nyhetene [2 - 2%] Urix [2 - 2%]
## Brennpunkt [2 - 2%] Nytt_pa_Nytt [2 - 2%] Lindmo [2 - 2%]
## Skavlan [2 - 2%] Folkeopplysningen [2 - 2%] Trygdekontoret [2 - 2%]
## Stjernekamp [2 - 2%] Farmen [2 - 2%] Paradise_Hotel [2 - 2%]
## Senkveld [2 - 2%] Luksusfellen [2 - 2%] andenes_makt [2 - 2%]
## Ut_i_naturen [2 - 2%] Fodeavdelingen [2 - 2%] [...]
contribution(result)
##
## Dimension 1. (+)
## Ctr Coord
## Dagsreveyen: notDagsreveyen 6.4 0.99
## Distriksnyheter: notDistriksnyheter 5.6 0.80
## Deringenskulle: notDeringenskulle 3.6 0.58
## Lindmo: notLindmo 3.4 0.48
## Brennpunkt: notBrennpunkt 2.9 0.49
## Ut_i_naturen: notUt_i_naturen 2.4 0.44
## TV2nyhetene: notTV2nyhetene 2.2 0.47
## Skavlan: notSkavlan 2.2 0.37
## Game_of_Thrones: Game_of_Thrones 2.1 0.60
## Debatten_NRK: notDebatten_NRK 1.7 0.31
## Stjernekamp: notStjernekamp 1.6 0.32
## Narcos: Narcos 1.5 0.64
##
## Dimension 1. (-)
## Ctr Coord
## Lindmo: Lindmo 5.0 -0.70
## Skavlan: Skavlan 4.5 -0.74
## Debatten_NRK: Debatten_NRK 3.7 -0.69
## Distriksnyheter: Distriksnyheter 3.1 -0.44
## Deringenskulle: Deringenskulle 2.9 -0.46
## Brennpunkt: Brennpunkt 2.8 -0.47
## Stjernekamp: Stjernekamp 2.6 -0.53
## Ut_i_naturen: Ut_i_naturen 2.4 -0.45
## Dagsreveyen: Dagsreveyen 2.2 -0.35
## Medhjartetrette: Medhjartetrette 2.0 -0.48
## God_morgen_Norge: God_morgen_Norge 1.9 -0.57
## Dagsnytt_18: Dagsnytt_18 1.8 -0.44
## Urix: Urix 1.8 -0.43
## Downton_Abbey: Downton_Abbey 1.7 -0.47
## TV2nyhetene: TV2nyhetene 1.5 -0.32
## Farmen: Farmen 1.4 -0.42
## Tid_for_hjem: Tid_for_hjem 1.3 -0.40
## Broen: Broen 1.2 -0.34
contribution(result, 2)
##
## Dimension 2. (+)
## Ctr Coord
## Modern_Family: Modern_Family 6.4 1.09
## Skam: Skam 5.2 0.90
## Game_of_Thrones: Game_of_Thrones 5.0 0.88
## Narcos: Narcos 4.8 1.09
## House_of_Cards: House_of_Cards 4.7 1.02
## Brille: Brille 4.4 0.67
## Trygdekontoret: Trygdekontoret 3.8 0.89
## Side_om_side: Side_om_side 3.3 0.56
## Folkeopplysningen: Folkeopplysningen 3.0 0.69
## The_Wire: The_Wire 2.9 1.12
## Nobel: Nobel 2.9 0.66
## Big_Bang_Theory: Big_Bang_Theory 2.9 0.57
## Vikings: Vikings 2.6 0.65
## The_Crown: The_Crown 2.4 0.89
## Paradise_Hotel: Paradise_Hotel 2.3 1.22
## Greys_Anatomy: Greys_Anatomy 2.3 0.69
## Top_Gear: Top_Gear 2.0 0.53
## Nytt_pa_Nytt: Nytt_pa_Nytt 1.8 0.33
## Fodeavdelingen: Fodeavdelingen 1.6 0.78
## Luksusfellen: Luksusfellen 1.3 0.41
##
## Dimension 2. (-)
## Ctr Coord
## Nytt_pa_Nytt: notNytt_pa_Nytt 2.8 -0.52
## Brille: notBrille 2.5 -0.38
## Side_om_side: notSide_om_side 2.2 -0.37
## Skam: notSkam 1.7 -0.28
## Game_of_Thrones: notGame_of_Thrones 1.6 -0.28
## Modern_Family: notModern_Family 1.6 -0.27
## Big_Bang_Theory: notBig_Bang_Theory 1.4 -0.28
contribution(result, 3)
##
## Dimension 3. (+)
## Ctr Coord
## God_morgen_Norge: God_morgen_Norge 5.4 0.84
## Farmen: Farmen 5.1 0.71
## Senkveld: Senkveld 5.1 0.75
## andenes_makt: andenes_makt 4.4 0.88
## Greys_Anatomy: Greys_Anatomy 4.3 0.86
## Urix: notUrix 3.7 0.43
## Fodeavdelingen: Fodeavdelingen 3.5 1.03
## Criminal_Minds: Criminal_Minds 3.2 0.63
## Dagsnytt_18: notDagsnytt_18 3.0 0.39
## Luksusfellen: Luksusfellen 2.8 0.56
## Tid_for_hjem: Tid_for_hjem 2.7 0.50
## Paradise_Hotel: Paradise_Hotel 2.1 1.07
## Dagsreveyen: notDagsreveyen 2.0 0.48
## TV2nyhetene: TV2nyhetene 2.0 0.32
## Brennpunkt: notBrennpunkt 1.9 0.34
##
## Dimension 3. (-)
## Ctr Coord
## Urix: Urix 5.9 -0.68
## Dagsnytt_18: Dagsnytt_18 4.8 -0.61
## TV2nyhetene: notTV2nyhetene 2.9 -0.46
## Trygdekontoret: Trygdekontoret 2.3 -0.63
## Farmen: notFarmen 2.3 -0.32
## Senkveld: notSenkveld 1.9 -0.29
## Debatten_NRK: Debatten_NRK 1.8 -0.42
## Brennpunkt: Brennpunkt 1.8 -0.33
## God_morgen_Norge: notGod_morgen_Norge 1.7 -0.26
## The_Wire: The_Wire 1.7 -0.78
## Tid_for_hjem: notTid_for_hjem 1.3 -0.25
contribution(result, 1:3, mode="variable")
## The contribution of the active variables
##
## andenes_makt Dim.1 Dim.2 Dim.3 Freq
## andenes_makt: notandenes_makt 0.1 0.0 0.9 1375
## andenes_makt: andenes_makt 0.5 0.0 4.4 289
## Total 0.6 0.0 5.3 1664
##
## Big_Bang_Theory Dim.1 Dim.2 Dim.3 Freq
## Big_Bang_Theory: notBig_Bang_Theory 0.5 1.4 0.6 1113
## Big_Bang_Theory: Big_Bang_Theory 1.0 2.9 1.1 551
## Total 1.5 4.3 1.7 1664
##
## Brennpunkt Dim.1 Dim.2 Dim.3 Freq
## Brennpunkt: notBrennpunkt 2.9 0.2 1.9 811
## Brennpunkt: Brennpunkt 2.8 0.2 1.8 853
## Total 5.7 0.4 3.7 1664
##
## Brille Dim.1 Dim.2 Dim.3 Freq
## Brille: notBrille 0.0 2.5 0.0 1061
## Brille: Brille 0.0 4.4 0.0 603
## Total 0.0 6.9 0.0 1664
##
## Broen Dim.1 Dim.2 Dim.3 Freq
## Broen: notBroen 0.9 0.7 0.6 962
## Broen: Broen 1.2 1.0 0.8 702
## Total 2.1 1.7 1.4 1664
##
## Criminal_Minds Dim.1 Dim.2 Dim.3 Freq
## Criminal_Minds: notCriminal_Minds 0.0 0.4 1.1 1243
## Criminal_Minds: Criminal_Minds 0.1 1.1 3.2 421
## Total 0.1 1.5 4.3 1664
##
## Dagsnytt_18 Dim.1 Dim.2 Dim.3 Freq
## Dagsnytt_18: notDagsnytt_18 1.2 0.1 3.0 1020
## Dagsnytt_18: Dagsnytt_18 1.8 0.1 4.8 644
## Total 3.0 0.2 7.8 1664
##
## Dagsreveyen Dim.1 Dim.2 Dim.3 Freq
## Dagsreveyen: notDagsreveyen 6.4 0.1 2.0 432
## Dagsreveyen: Dagsreveyen 2.2 0.0 0.7 1232
## Total 8.6 0.1 2.7 1664
##
## Debatten_NRK Dim.1 Dim.2 Dim.3 Freq
## Debatten_NRK: notDebatten_NRK 1.7 0.1 0.8 1146
## Debatten_NRK: Debatten_NRK 3.7 0.1 1.8 518
## Total 5.4 0.2 2.6 1664
##
## Deringenskulle Dim.1 Dim.2 Dim.3 Freq
## Deringenskulle: notDeringenskulle 3.6 0.4 0.0 735
## Deringenskulle: Deringenskulle 2.9 0.3 0.0 929
## Total 6.5 0.7 0.0 1664
##
## Distriksnyheter Dim.1 Dim.2 Dim.3 Freq
## Distriksnyheter: notDistriksnyheter 5.6 0.2 0.0 592
## Distriksnyheter: Distriksnyheter 3.1 0.1 0.0 1072
## Total 8.7 0.3 0.0 1664
##
## Downton_Abbey Dim.1 Dim.2 Dim.3 Freq
## Downton_Abbey: notDownton_Abbey 0.8 0.1 0.2 1140
## Downton_Abbey: Downton_Abbey 1.7 0.2 0.5 524
## Total 2.5 0.3 0.7 1664
##
## Farmen Dim.1 Dim.2 Dim.3 Freq
## Farmen: notFarmen 0.6 0.0 2.3 1141
## Farmen: Farmen 1.4 0.1 5.1 523
## Total 2.0 0.1 7.4 1664
##
## Fodeavdelingen Dim.1 Dim.2 Dim.3 Freq
## Fodeavdelingen: notFodeavdelingen 0.0 0.2 0.4 1496
## Fodeavdelingen: Fodeavdelingen 0.2 1.6 3.5 168
## Total 0.2 1.8 3.9 1664
##
## Folkeopplysningen Dim.1 Dim.2 Dim.3 Freq
## Folkeopplysningen: notFolkeopplysningen 0.0 0.9 0.2 1275
## Folkeopplysningen: Folkeopplysningen 0.0 3.0 0.8 389
## Total 0.0 3.9 1.0 1664
##
## Game_of_Thrones Dim.1 Dim.2 Dim.3 Freq
## Game_of_Thrones: notGame_of_Thrones 0.7 1.6 0.2 1261
## Game_of_Thrones: Game_of_Thrones 2.1 5.0 0.5 403
## Total 2.8 6.6 0.7 1664
##
## God_morgen_Norge Dim.1 Dim.2 Dim.3 Freq
## God_morgen_Norge: notGod_morgen_Norge 0.6 0.1 1.7 1274
## God_morgen_Norge: God_morgen_Norge 1.9 0.3 5.4 390
## Total 2.5 0.4 7.1 1664
##
## Greys_Anatomy Dim.1 Dim.2 Dim.3 Freq
## Greys_Anatomy: notGreys_Anatomy 0.0 0.5 1.0 1364
## Greys_Anatomy: Greys_Anatomy 0.1 2.3 4.3 300
## Total 0.1 2.8 5.3 1664
##
## House_of_Cards Dim.1 Dim.2 Dim.3 Freq
## House_of_Cards: notHouse_of_Cards 0.2 0.9 0.2 1389
## House_of_Cards: House_of_Cards 0.8 4.7 1.2 275
## Total 1.0 5.6 1.4 1664
##
## Kampen_om_tungtvannet Dim.1 Dim.2 Dim.3 Freq
## Kampen_om_tungtvannet: notKampen_om_tungtvannet 0.8 0.6 0.5 928
## Kampen_om_tungtvannet: Kampen_om_tungtvannet 1.0 0.8 0.6 736
## Total 1.8 1.4 1.1 1664
##
## Lindmo Dim.1 Dim.2 Dim.3 Freq
## Lindmo: notLindmo 3.4 0.3 0.2 986
## Lindmo: Lindmo 5.0 0.5 0.2 678
## Total 8.4 0.8 0.4 1664
##
## Luksusfellen Dim.1 Dim.2 Dim.3 Freq
## Luksusfellen: notLuksusfellen 0.0 0.5 1.1 1207
## Luksusfellen: Luksusfellen 0.0 1.3 2.8 457
## Total 0.0 1.8 3.9 1664
##
## Medhjartetrette Dim.1 Dim.2 Dim.3 Freq
## Medhjartetrette: notMedhjartetrette 1.1 0.1 0.0 1080
## Medhjartetrette: Medhjartetrette 2.0 0.2 0.0 584
## Total 3.1 0.3 0.0 1664
##
## Modern_Family Dim.1 Dim.2 Dim.3 Freq
## Modern_Family: notModern_Family 0.3 1.6 0.0 1334
## Modern_Family: Modern_Family 1.0 6.4 0.1 330
## Total 1.3 8.0 0.1 1664
##
## Narcos Dim.1 Dim.2 Dim.3 Freq
## Narcos: notNarcos 0.3 0.8 0.1 1419
## Narcos: Narcos 1.5 4.8 0.6 245
## Total 1.8 5.6 0.7 1664
##
## Nobel Dim.1 Dim.2 Dim.3 Freq
## Nobel: notNobel 0.1 1.0 0.3 1249
## Nobel: Nobel 0.3 2.9 0.8 415
## Total 0.4 3.9 1.1 1664
##
## Nytt_pa_Nytt Dim.1 Dim.2 Dim.3 Freq
## Nytt_pa_Nytt: notNytt_pa_Nytt 1.0 2.8 0.1 644
## Nytt_pa_Nytt: Nytt_pa_Nytt 0.6 1.8 0.0 1020
## Total 1.6 4.6 0.1 1664
##
## Paradise_Hotel Dim.1 Dim.2 Dim.3 Freq
## Paradise_Hotel: notParadise_Hotel 0.0 0.1 0.1 1571
## Paradise_Hotel: Paradise_Hotel 0.1 2.3 2.1 93
## Total 0.1 2.4 2.2 1664
##
## Senkveld Dim.1 Dim.2 Dim.3 Freq
## Senkveld: notSenkveld 0.4 0.4 1.9 1207
## Senkveld: Senkveld 1.0 1.2 5.1 457
## Total 1.4 1.6 7.0 1664
##
## Side_om_side Dim.1 Dim.2 Dim.3 Freq
## Side_om_side: notSide_om_side 0.2 2.2 0.0 1000
## Side_om_side: Side_om_side 0.3 3.3 0.1 664
## Total 0.5 5.5 0.1 1664
##
## Skam Dim.1 Dim.2 Dim.3 Freq
## Skam: notSkam 0.0 1.7 0.0 1263
## Skam: Skam 0.1 5.2 0.0 401
## Total 0.1 6.9 0.0 1664
##
## Skavlan Dim.1 Dim.2 Dim.3 Freq
## Skavlan: notSkavlan 2.2 0.3 0.3 1112
## Skavlan: Skavlan 4.5 0.7 0.5 552
## Total 6.7 1.0 0.8 1664
##
## Stjernekamp Dim.1 Dim.2 Dim.3 Freq
## Stjernekamp: notStjernekamp 1.6 0.0 0.2 1042
## Stjernekamp: Stjernekamp 2.6 0.1 0.3 622
## Total 4.2 0.1 0.5 1664
##
## The_Crown Dim.1 Dim.2 Dim.3 Freq
## The_Crown: notThe_Crown 0.0 0.3 0.1 1475
## The_Crown: The_Crown 0.0 2.4 1.0 189
## Total 0.0 2.7 1.1 1664
##
## The_Wire Dim.1 Dim.2 Dim.3 Freq
## The_Wire: notThe_Wire 0.1 0.3 0.2 1520
## The_Wire: The_Wire 0.6 2.9 1.7 144
## Total 0.7 3.2 1.9 1664
##
## Tid_for_hjem Dim.1 Dim.2 Dim.3 Freq
## Tid_for_hjem: notTid_for_hjem 0.6 0.3 1.3 1111
## Tid_for_hjem: Tid_for_hjem 1.3 0.5 2.7 553
## Total 1.9 0.8 4.0 1664
##
## Top_Gear Dim.1 Dim.2 Dim.3 Freq
## Top_Gear: notTop_Gear 0.3 0.7 0.0 1222
## Top_Gear: Top_Gear 0.8 2.0 0.0 442
## Total 1.1 2.7 0.0 1664
##
## Trygdekontoret Dim.1 Dim.2 Dim.3 Freq
## Trygdekontoret: notTrygdekontoret 0.0 0.8 0.5 1365
## Trygdekontoret: Trygdekontoret 0.0 3.8 2.3 299
## Total 0.0 4.6 2.8 1664
##
## TV2nyhetene Dim.1 Dim.2 Dim.3 Freq
## TV2nyhetene: notTV2nyhetene 2.2 0.0 2.9 678
## TV2nyhetene: TV2nyhetene 1.5 0.0 2.0 986
## Total 3.7 0.0 4.9 1664
##
## Urix Dim.1 Dim.2 Dim.3 Freq
## Urix: notUrix 1.1 0.1 3.7 1015
## Urix: Urix 1.8 0.1 5.9 649
## Total 2.9 0.2 9.6 1664
##
## Ut_i_naturen Dim.1 Dim.2 Dim.3 Freq
## Ut_i_naturen: notUt_i_naturen 2.4 0.4 0.1 841
## Ut_i_naturen: Ut_i_naturen 2.4 0.4 0.1 823
## Total 4.8 0.8 0.2 1664
##
## Vikings Dim.1 Dim.2 Dim.3 Freq
## Vikings: notVikings 0.0 0.8 0.1 1287
## Vikings: Vikings 0.1 2.6 0.3 377
## Total 0.1 3.4 0.4 1664
## Average contribution per modality: 1.2
## Total number of individuals: 1664
balance(result)
## + Contrib. - Contrib. Balance (+/-)
## [1,] 0.4977932 0.5022068 0.9912116
## [2,] 0.7355066 0.2644934 2.7808126
## [3,] 0.5781558 0.4218442 1.3705435
## [4,] 0.6057235 0.3942765 1.5362909
## [5,] 0.5382271 0.4617729 1.1655665
## [6,] 0.6036555 0.3963445 1.5230574
## [7,] 0.4714783 0.5285217 0.8920700
## [8,] 0.4955630 0.5044370 0.9824083
## [9,] 0.5647793 0.4352207 1.2976848
## [10,] 0.4652564 0.5347436 0.8700551
## [11,] 0.5496247 0.4503753 1.2203703
# Ind explorer (ta vekk # om du vil køyre dette)
#ind.explorer(result, active, sup)
# trim variabelnamn
result$names.sup <- sapply(strsplit(result$names.sup, ": "), tail, 1) # forkortar variabelnamn
result$names.mod <- sapply(strsplit(result$names.mod, ": "), tail, 1) # forkortar variabelnamn
map.ind(result)
map.ctr(result, dim = c(1,2), ctr.dim=c(1), label.size = 4, label.repel = TRUE)
map.ctr(result, dim = c(1,2), ctr.dim=c(2), label.size = 4, label.repel = TRUE )
map.ctr(result, dim = c(2,3), ctr.dim=c(3), label.size = 4, label.repel = TRUE)
map.mod(result, dim = c(1, 2), label.size = 4, label.repel = TRUE)
map.mod(result, dim = c(3, 2), label.size = 4, label.repel = TRUE)
select<-sup[,1]
map.select(result, map.title="Utdanning", list.sup=select, point.size=3)
# Ellipser
map <- map.ind(result)
map.ellipse.array(result, sup[,3])
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
# Klassespesifikk MCA
class.age <- which(data$stdalder == '60+')
csa.res <- soc.csa(result, class.age)
csa.res
## Class Specific Multiple Correspondence Analysis:
##
## Statistics Scree plot
## Active dimensions: 13 | 1. 63.0% ********************************
## Dimensions explaining 80% of inertia: 2 | 2. 21.2% **********
## Active modalities: 84 | 3. 7.4% ****
## Supplementary modalities: 0 | 4. 3.8% **
## Individuals: 583 | 5. 1.8% *
## Share of passive mass: 0 | 6. 1.1%
## Number of passive modalities: 0 | 7. 0.9%
##
## The 42 active variables: [No. modalities - share of variance]
##
## Dagsreveyen [2 - 2%] Distriksnyheter [2 - 2%] Dagsnytt_18 [2 - 2%]
## Debatten_NRK [2 - 2%] TV2nyhetene [2 - 2%] Urix [2 - 2%]
## Brennpunkt [2 - 2%] Nytt_pa_Nytt [2 - 2%] Lindmo [2 - 2%]
## Skavlan [2 - 2%] Folkeopplysningen [2 - 2%] Trygdekontoret [2 - 2%]
## Stjernekamp [2 - 2%] Farmen [2 - 2%] Paradise_Hotel [2 - 2%]
## Senkveld [2 - 2%] Luksusfellen [2 - 2%] andenes_makt [2 - 2%]
## Ut_i_naturen [2 - 2%] Fodeavdelingen [2 - 2%] [...]
map.active(csa.res, dim = c(1, 2), label.size = 3, label.repel = TRUE)
map.csa.mca(csa.res, mca.dim = 1, csa.dim = 1)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
map.csa.mca(csa.res, mca.dim = 2, csa.dim = 2)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
map.csa.mca.array(csa.res, ndim = 3)
## TableGrob (4 x 3) "arrange": 10 grobs
## z cells name grob
## 1 1 (2-2,1-1) arrange gtable[layout]
## 2 2 (2-2,2-2) arrange gtable[layout]
## 3 3 (2-2,3-3) arrange gtable[layout]
## 4 4 (3-3,1-1) arrange gtable[layout]
## 5 5 (3-3,2-2) arrange gtable[layout]
## 6 6 (3-3,3-3) arrange gtable[layout]
## 7 7 (4-4,1-1) arrange gtable[layout]
## 8 8 (4-4,2-2) arrange gtable[layout]
## 9 9 (4-4,3-3) arrange gtable[layout]
## 10 10 (1-1,1-3) arrange text[GRID.text.1568]
# Med passive modalitetar
active<-data[c(43:46)]
result <- soc.mca(active)
map.active(result)
colnames(active)
## [1] "rutd3" "r40inn4" "kjonnx" "stdalder"
levels(sup$stdalder)
## [1] "Under 30" "30-44" "45-59" "60+"
options(passive = c("stdalder: 60+"))
result<-soc.mca(active)
map.active(result)
options(passive = NULL)
Same data, men med Factominer
data<-mecin[, c("Dagsreveyen", "Distriksnyheter", "Dagsnytt_18",
"Debatten_NRK", "TV2nyhetene", "Urix", "Brennpunkt", "Nytt_pa_Nytt",
"Lindmo", "Skavlan", "Folkeopplysningen", "Trygdekontoret", "Stjernekamp",
"Farmen", "Paradise_Hotel", "Senkveld", "Luksusfellen", "andenes_makt",
"Ut_i_naturen", "Fodeavdelingen", "Deringenskulle", "Tid_for_hjem",
"God_morgen_Norge", "Brille", "Top_Gear", "Game_of_Thrones", "Side_om_side",
"Skam", "The_Wire", "Modern_Family", "The_Crown", "Criminal_Minds",
"Nobel", "Vikings", "Greys_Anatomy", "House_of_Cards",
"Kampen_om_tungtvannet", "Downton_Abbey", "Narcos", "Broen",
"Medhjartetrette", "Big_Bang_Theory", "rutd3", "r40inn4", "kjonnx",
"stdalder")]
data<-data %>% filter(complete.cases(.))
res<-MCA(data, ncp=5, quali.sup=43: 46, graph = FALSE)
library(explor)
#explor(res) # ta vekk "#" for å køyre desse
#Fatoshiny(res)
#Factoshiny(res)
detach("package:Factoshiny", unload = TRUE)
eig.val <- get_eigenvalue(res)
head(eig.val)
## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 0.09620990 9.620990 9.62099
## Dim.2 0.08834815 8.834815 18.45580
## Dim.3 0.07303912 7.303912 25.75972
## Dim.4 0.04078722 4.078722 29.83844
## Dim.5 0.03825483 3.825483 33.66392
## Dim.6 0.03440184 3.440184 37.10411
fviz_screeplot(res)
summary.MCA(res, nbelements = 50)
##
## Call:
## MCA(X = data, ncp = 5, quali.sup = 43:46, graph = FALSE)
##
##
## Eigenvalues
## Dim.1 Dim.2 Dim.3 Dim.4 Dim.5 Dim.6 Dim.7
## Variance 0.096 0.088 0.073 0.041 0.038 0.034 0.030
## % of var. 9.621 8.835 7.304 4.079 3.825 3.440 3.031
## Cumulative % of var. 9.621 18.456 25.760 29.838 33.664 37.104 40.136
## Dim.8 Dim.9 Dim.10 Dim.11 Dim.12 Dim.13 Dim.14
## Variance 0.029 0.028 0.025 0.024 0.024 0.022 0.022
## % of var. 2.923 2.814 2.534 2.440 2.352 2.239 2.166
## Cumulative % of var. 43.058 45.872 48.406 50.845 53.198 55.436 57.602
## Dim.15 Dim.16 Dim.17 Dim.18 Dim.19 Dim.20 Dim.21
## Variance 0.021 0.021 0.020 0.019 0.019 0.018 0.018
## % of var. 2.131 2.070 1.988 1.935 1.886 1.813 1.810
## Cumulative % of var. 59.733 61.802 63.790 65.725 67.611 69.424 71.234
## Dim.22 Dim.23 Dim.24 Dim.25 Dim.26 Dim.27 Dim.28
## Variance 0.018 0.017 0.017 0.016 0.016 0.015 0.015
## % of var. 1.790 1.700 1.675 1.607 1.578 1.533 1.492
## Cumulative % of var. 73.024 74.723 76.399 78.006 79.583 81.117 82.609
## Dim.29 Dim.30 Dim.31 Dim.32 Dim.33 Dim.34 Dim.35
## Variance 0.015 0.015 0.014 0.014 0.013 0.013 0.013
## % of var. 1.482 1.462 1.415 1.359 1.313 1.287 1.273
## Cumulative % of var. 84.091 85.553 86.969 88.328 89.640 90.927 92.201
## Dim.36 Dim.37 Dim.38 Dim.39 Dim.40 Dim.41 Dim.42
## Variance 0.012 0.012 0.012 0.011 0.011 0.010 0.010
## % of var. 1.247 1.188 1.170 1.126 1.090 1.012 0.967
## Cumulative % of var. 93.447 94.635 95.805 96.931 98.021 99.033 100.000
##
## Individuals (the 50 first)
## Dim.1 ctr cos2 Dim.2 ctr cos2 Dim.3
## 1 | -0.259 0.042 0.046 | 0.607 0.250 0.252 | -0.445
## 2 | 0.501 0.157 0.328 | -0.131 0.012 0.022 | -0.174
## 3 | -0.107 0.007 0.006 | 0.609 0.252 0.189 | -0.024
## 4 | -0.272 0.046 0.045 | 0.473 0.152 0.136 | -0.208
## 5 | -0.688 0.296 0.591 | -0.196 0.026 0.048 | 0.096
## 6 | 0.037 0.001 0.002 | -0.372 0.094 0.185 | 0.136
## 7 | -0.303 0.057 0.112 | -0.299 0.061 0.110 | 0.321
## 8 | -0.146 0.013 0.021 | 0.125 0.011 0.015 | 0.289
## 9 | 0.203 0.026 0.053 | -0.146 0.015 0.028 | 0.012
## 10 | -0.228 0.033 0.039 | 0.227 0.035 0.038 | 0.349
## 11 | -0.174 0.019 0.032 | -0.130 0.011 0.018 | 0.339
## 12 | 0.272 0.046 0.097 | -0.105 0.008 0.015 | -0.187
## 13 | 0.540 0.182 0.336 | -0.108 0.008 0.013 | 0.172
## 14 | 0.084 0.004 0.006 | 0.165 0.019 0.024 | -0.101
## 15 | 0.299 0.056 0.089 | 0.108 0.008 0.012 | 0.221
## 16 | -0.587 0.215 0.339 | -0.132 0.012 0.017 | -0.063
## 17 | 0.256 0.041 0.082 | -0.026 0.000 0.001 | -0.069
## 18 | -0.192 0.023 0.060 | -0.397 0.107 0.257 | 0.094
## 19 | 0.288 0.052 0.094 | 0.121 0.010 0.017 | 0.098
## 20 | -0.220 0.030 0.070 | -0.229 0.036 0.076 | 0.128
## 21 | 0.452 0.128 0.185 | -0.026 0.000 0.001 | -0.486
## 22 | -0.238 0.035 0.111 | -0.474 0.153 0.439 | 0.034
## 23 | -0.602 0.226 0.315 | -0.023 0.000 0.000 | -0.007
## 24 | 0.509 0.162 0.094 | 1.153 0.904 0.485 | 0.376
## 25 | 0.325 0.066 0.097 | 0.159 0.017 0.023 | -0.524
## 26 | 0.334 0.070 0.112 | -0.083 0.005 0.007 | -0.154
## 27 | 0.611 0.233 0.252 | 0.463 0.146 0.145 | -0.122
## 28 | 0.558 0.195 0.253 | 0.281 0.054 0.064 | -0.023
## 29 | 0.055 0.002 0.005 | -0.458 0.143 0.378 | 0.141
## 30 | -0.103 0.007 0.009 | 0.231 0.036 0.043 | -0.080
## 31 | 0.150 0.014 0.020 | 0.347 0.082 0.105 | -0.079
## 32 | 0.201 0.025 0.064 | -0.294 0.059 0.137 | 0.295
## 33 | 0.010 0.000 0.000 | -0.435 0.128 0.299 | 0.119
## 34 | -0.159 0.016 0.023 | -0.165 0.018 0.025 | -0.074
## 35 | 0.144 0.013 0.028 | -0.036 0.001 0.002 | 0.254
## 36 | 0.241 0.036 0.041 | 0.452 0.139 0.145 | -0.059
## 37 | -0.142 0.013 0.031 | -0.414 0.117 0.262 | 0.108
## 38 | -0.226 0.032 0.074 | -0.076 0.004 0.008 | 0.120
## 39 | -0.185 0.021 0.070 | -0.446 0.135 0.404 | -0.020
## 40 | -0.161 0.016 0.018 | 0.052 0.002 0.002 | 0.575
## 41 | 0.621 0.241 0.292 | 0.222 0.034 0.037 | 0.184
## 42 | -0.169 0.018 0.023 | 0.102 0.007 0.008 | -0.082
## 43 | -0.009 0.000 0.000 | 0.985 0.661 0.413 | -0.450
## 44 | -0.486 0.148 0.210 | 0.168 0.019 0.025 | 0.253
## 45 | 0.049 0.001 0.003 | -0.342 0.080 0.154 | 0.191
## 46 | 0.236 0.035 0.084 | -0.179 0.022 0.049 | -0.159
## 47 | 0.272 0.046 0.094 | -0.036 0.001 0.002 | -0.150
## 48 | 0.265 0.044 0.061 | 0.253 0.044 0.055 | -0.213
## 49 | -0.167 0.017 0.024 | -0.299 0.061 0.077 | 0.017
## 50 | -0.487 0.148 0.348 | -0.434 0.128 0.277 | 0.098
## ctr cos2
## 1 0.163 0.136 |
## 2 0.025 0.040 |
## 3 0.000 0.000 |
## 4 0.036 0.026 |
## 5 0.008 0.012 |
## 6 0.015 0.025 |
## 7 0.085 0.126 |
## 8 0.068 0.080 |
## 9 0.000 0.000 |
## 10 0.100 0.091 |
## 11 0.094 0.120 |
## 12 0.029 0.046 |
## 13 0.024 0.034 |
## 14 0.008 0.009 |
## 15 0.040 0.049 |
## 16 0.003 0.004 |
## 17 0.004 0.006 |
## 18 0.007 0.015 |
## 19 0.008 0.011 |
## 20 0.013 0.024 |
## 21 0.195 0.214 |
## 22 0.001 0.002 |
## 23 0.000 0.000 |
## 24 0.117 0.052 |
## 25 0.226 0.252 |
## 26 0.020 0.024 |
## 27 0.012 0.010 |
## 28 0.000 0.000 |
## 29 0.016 0.036 |
## 30 0.005 0.005 |
## 31 0.005 0.005 |
## 32 0.071 0.137 |
## 33 0.012 0.022 |
## 34 0.004 0.005 |
## 35 0.053 0.088 |
## 36 0.003 0.002 |
## 37 0.010 0.018 |
## 38 0.012 0.021 |
## 39 0.000 0.001 |
## 40 0.272 0.227 |
## 41 0.028 0.026 |
## 42 0.006 0.005 |
## 43 0.167 0.086 |
## 44 0.053 0.057 |
## 45 0.030 0.048 |
## 46 0.021 0.038 |
## 47 0.019 0.029 |
## 48 0.037 0.039 |
## 49 0.000 0.000 |
## 50 0.008 0.014 |
##
## Categories (the 50 first)
## Dim.1 ctr cos2 v.test Dim.2 ctr
## notDagsreveyen | -0.994 6.351 0.347 -24.009 | -0.128 0.114
## Dagsreveyen | 0.349 2.227 0.347 24.009 | 0.045 0.040
## notDistriksnyheter | -0.799 5.626 0.353 -24.225 | 0.139 0.185
## Distriksnyheter | 0.441 3.107 0.353 24.225 | -0.077 0.102
## notDagsnytt_18 | -0.277 1.165 0.122 -14.226 | -0.055 0.051
## Dagsnytt_18 | 0.439 1.846 0.122 14.226 | 0.088 0.080
## notDebatten_NRK | -0.312 1.661 0.216 -18.935 | -0.056 0.059
## Debatten_NRK | 0.691 3.675 0.216 18.935 | 0.124 0.129
## notTV2nyhetene | -0.471 2.233 0.152 -15.913 | -0.054 0.032
## TV2nyhetene | 0.324 1.535 0.152 15.913 | 0.037 0.022
## notUrix | -0.273 1.122 0.116 -13.903 | -0.071 0.083
## Urix | 0.426 1.755 0.116 13.903 | 0.111 0.130
## notBrennpunkt | -0.491 2.904 0.229 -19.511 | -0.119 0.185
## Brennpunkt | 0.467 2.761 0.229 19.511 | 0.113 0.176
## notNytt_pa_Nytt | -0.327 1.022 0.067 -10.585 | -0.516 2.779
## Nytt_pa_Nytt | 0.206 0.645 0.067 10.585 | 0.326 1.754
## notLindmo | -0.482 3.404 0.338 -23.695 | -0.143 0.329
## Lindmo | 0.701 4.951 0.338 23.695 | 0.209 0.478
## notSkavlan | -0.368 2.239 0.273 -21.295 | -0.135 0.326
## Skavlan | 0.741 4.510 0.273 21.295 | 0.271 0.657
## notFolkeopplysningen | -0.020 0.008 0.001 -1.503 | -0.210 0.915
## Folkeopplysningen | 0.067 0.026 0.001 1.503 | 0.690 2.998
## notTrygdekontoret | -0.014 0.004 0.001 -1.256 | -0.195 0.842
## Trygdekontoret | 0.066 0.019 0.001 1.256 | 0.891 3.844
## notStjernekamp | -0.319 1.573 0.170 -16.814 | -0.043 0.032
## Stjernekamp | 0.534 2.635 0.170 16.814 | 0.072 0.053
## notFarmen | -0.193 0.632 0.081 -11.621 | -0.051 0.049
## Farmen | 0.421 1.378 0.081 11.621 | 0.112 0.106
## notParadise_Hotel | 0.014 0.004 0.003 2.312 | -0.072 0.133
## Paradise_Hotel | -0.233 0.075 0.003 -2.312 | 1.224 2.255
## notSenkveld | -0.142 0.362 0.053 -9.415 | -0.151 0.446
## Senkveld | 0.375 0.957 0.053 9.415 | 0.399 1.177
## notLuksusfellen | -0.010 0.002 0.000 -0.692 | -0.157 0.481
## Luksusfellen | 0.028 0.005 0.000 0.692 | 0.414 1.270
## notandenes_makt | -0.072 0.106 0.025 -6.415 | -0.017 0.006
## andenes_makt | 0.343 0.506 0.025 6.415 | 0.081 0.031
## notUt_i_naturen | -0.436 2.381 0.195 -17.986 | 0.164 0.365
## Ut_i_naturen | 0.446 2.433 0.195 17.986 | -0.167 0.373
## notFodeavdelingen | -0.030 0.020 0.008 -3.671 | -0.087 0.184
## Fodeavdelingen | 0.269 0.180 0.008 3.671 | 0.775 1.636
## notDeringenskulle | -0.576 3.628 0.263 -20.896 | 0.181 0.388
## Deringenskulle | 0.456 2.870 0.263 20.896 | -0.143 0.307
## notTid_for_hjem | -0.198 0.647 0.079 -11.436 | -0.123 0.272
## Tid_for_hjem | 0.397 1.299 0.079 11.436 | 0.247 0.547
## notGod_morgen_Norge | -0.174 0.573 0.099 -12.816 | -0.070 0.102
## God_morgen_Norge | 0.568 1.871 0.099 12.816 | 0.230 0.334
## notBrille | 0.021 0.007 0.001 1.115 | -0.382 2.504
## Brille | -0.036 0.012 0.001 -1.115 | 0.672 4.407
## notTop_Gear | 0.125 0.282 0.043 8.443 | -0.191 0.719
## Top_Gear | -0.344 0.779 0.043 -8.443 | 0.527 1.989
## cos2 v.test Dim.3 ctr cos2 v.test
## notDagsreveyen 0.006 -3.082 | 0.481 1.955 0.081 11.607 |
## Dagsreveyen 0.006 3.082 | -0.169 0.686 0.081 -11.607 |
## notDistriksnyheter 0.011 4.206 | 0.015 0.003 0.000 0.447 |
## Distriksnyheter 0.011 -4.206 | -0.008 0.001 0.000 -0.447 |
## notDagsnytt_18 0.005 -2.839 | 0.388 3.009 0.239 19.916 |
## Dagsnytt_18 0.005 2.839 | -0.615 4.766 0.239 -19.916 |
## notDebatten_NRK 0.007 -3.406 | 0.188 0.797 0.079 11.431 |
## Debatten_NRK 0.007 3.406 | -0.417 1.764 0.079 -11.431 |
## notTV2nyhetene 0.002 -1.835 | -0.464 2.864 0.148 -15.702 |
## TV2nyhetene 0.002 1.835 | 0.319 1.969 0.148 15.702 |
## notUrix 0.008 -3.620 | 0.434 3.747 0.295 22.139 |
## Urix 0.008 3.620 | -0.679 5.861 0.295 -22.139 |
## notBrennpunkt 0.013 -4.721 | 0.344 1.880 0.112 13.677 |
## Brennpunkt 0.013 4.721 | -0.327 1.787 0.112 -13.677 |
## notNytt_pa_Nytt 0.168 -16.725 | 0.073 0.067 0.003 2.362 |
## Nytt_pa_Nytt 0.168 16.725 | -0.046 0.042 0.003 -2.362 |
## notLindmo 0.030 -7.057 | -0.091 0.161 0.012 -4.484 |
## Lindmo 0.030 7.057 | 0.133 0.234 0.012 4.484 |
## notSkavlan 0.036 -7.788 | -0.110 0.264 0.024 -6.377 |
## Skavlan 0.036 7.788 | 0.222 0.533 0.024 6.377 |
## notFolkeopplysningen 0.145 -15.540 | 0.097 0.236 0.031 7.184 |
## Folkeopplysningen 0.145 15.540 | -0.319 0.775 0.031 -7.184 |
## notTrygdekontoret 0.174 -17.006 | 0.139 0.514 0.088 12.077 |
## Trygdekontoret 0.174 17.006 | -0.633 2.345 0.088 -12.077 |
## notStjernekamp 0.003 -2.283 | -0.094 0.180 0.015 -4.963 |
## Stjernekamp 0.003 2.283 | 0.158 0.302 0.015 4.963 |
## notFarmen 0.006 -3.091 | -0.323 2.337 0.228 -19.475 |
## Farmen 0.006 3.091 | 0.705 5.098 0.228 19.475 |
## notParadise_Hotel 0.089 -12.140 | -0.063 0.124 0.068 -10.639 |
## Paradise_Hotel 0.089 12.140 | 1.072 2.095 0.068 10.639 |
## notSenkveld 0.060 -10.006 | -0.286 1.928 0.215 -18.923 |
## Senkveld 0.060 10.006 | 0.754 5.091 0.215 18.923 |
## notLuksusfellen 0.065 -10.394 | -0.213 1.071 0.120 -14.104 |
## Luksusfellen 0.065 10.394 | 0.562 2.828 0.120 14.104 |
## notandenes_makt 0.001 -1.514 | -0.184 0.916 0.162 -16.399 |
## andenes_makt 0.001 1.514 | 0.877 4.356 0.162 16.399 |
## notUt_i_naturen 0.027 6.752 | 0.087 0.126 0.008 3.599 |
## Ut_i_naturen 0.027 -6.752 | -0.089 0.128 0.008 -3.599 |
## notFodeavdelingen 0.068 -10.597 | -0.116 0.395 0.120 -14.131 |
## Fodeavdelingen 0.068 10.597 | 1.034 3.519 0.120 14.131 |
## notDeringenskulle 0.026 6.549 | 0.026 0.010 0.001 0.960 |
## Deringenskulle 0.026 -6.549 | -0.021 0.008 0.001 -0.960 |
## notTid_for_hjem 0.030 -7.109 | -0.247 1.326 0.122 -14.266 |
## Tid_for_hjem 0.030 7.109 | 0.496 2.663 0.122 14.266 |
## notGod_morgen_Norge 0.016 -5.190 | -0.258 1.658 0.217 -18.997 |
## God_morgen_Norge 0.016 5.190 | 0.842 5.416 0.217 18.997 |
## notBrille 0.256 -20.651 | -0.020 0.008 0.001 -1.057 |
## Brille 0.256 20.651 | 0.034 0.014 0.001 1.057 |
## notTop_Gear 0.100 -12.927 | 0.012 0.003 0.000 0.785 |
## Top_Gear 0.100 12.927 | -0.032 0.009 0.000 -0.785 |
##
## Categorical variables (eta2)
## Dim.1 Dim.2 Dim.3
## Dagsreveyen | 0.347 0.006 0.081 |
## Distriksnyheter | 0.353 0.011 0.000 |
## Dagsnytt_18 | 0.122 0.005 0.239 |
## Debatten_NRK | 0.216 0.007 0.079 |
## TV2nyhetene | 0.152 0.002 0.148 |
## Urix | 0.116 0.008 0.295 |
## Brennpunkt | 0.229 0.013 0.112 |
## Nytt_pa_Nytt | 0.067 0.168 0.003 |
## Lindmo | 0.338 0.030 0.012 |
## Skavlan | 0.273 0.036 0.024 |
## Folkeopplysningen | 0.001 0.145 0.031 |
## Trygdekontoret | 0.001 0.174 0.088 |
## Stjernekamp | 0.170 0.003 0.015 |
## Farmen | 0.081 0.006 0.228 |
## Paradise_Hotel | 0.003 0.089 0.068 |
## Senkveld | 0.053 0.060 0.215 |
## Luksusfellen | 0.000 0.065 0.120 |
## andenes_makt | 0.025 0.001 0.162 |
## Ut_i_naturen | 0.195 0.027 0.008 |
## Fodeavdelingen | 0.008 0.068 0.120 |
## Deringenskulle | 0.263 0.026 0.001 |
## Tid_for_hjem | 0.079 0.030 0.122 |
## God_morgen_Norge | 0.099 0.016 0.217 |
## Brille | 0.001 0.256 0.001 |
## Top_Gear | 0.043 0.100 0.000 |
## Game_of_Thrones | 0.114 0.246 0.020 |
## Side_om_side | 0.023 0.205 0.004 |
## Skam | 0.007 0.255 0.001 |
## The_Wire | 0.025 0.118 0.058 |
## Modern_Family | 0.052 0.294 0.004 |
## The_Crown | 0.001 0.101 0.036 |
## Criminal_Minds | 0.003 0.056 0.133 |
## Nobel | 0.014 0.143 0.031 |
## Vikings | 0.006 0.123 0.012 |
## Greys_Anatomy | 0.005 0.104 0.162 |
## House_of_Cards | 0.038 0.207 0.043 |
## Kampen_om_tungtvannet | 0.074 0.052 0.034 |
## Downton_Abbey | 0.101 0.009 0.023 |
## Narcos | 0.072 0.207 0.022 |
## Broen | 0.086 0.064 0.041 |
## Medhjartetrette | 0.126 0.011 0.001 |
## Big_Bang_Theory | 0.061 0.162 0.052 |
##
## Supplementary categories
## Dim.1 cos2 v.test Dim.2 cos2 v.test
## folkvidg | 0.090 0.014 4.876 | -0.125 0.028 -6.778 |
## hog1_4 | -0.100 0.003 -2.186 | 0.219 0.014 4.765 |
## hog5 | -0.253 0.010 -4.144 | 0.225 0.008 3.688 |
## <300 | -0.109 0.003 -2.332 | 0.069 0.001 1.480 |
## 300-499 | 0.155 0.016 5.134 | -0.109 0.008 -3.614 |
## 500-799 | -0.075 0.002 -2.003 | 0.124 0.007 3.304 |
## 800+ | -0.178 0.003 -2.242 | -0.100 0.001 -1.265 |
## Mann | -0.126 0.019 -5.609 | -0.098 0.011 -4.353 |
## Kvinne | 0.150 0.019 5.609 | 0.116 0.011 4.353 |
## Under 30 | -0.611 0.066 -10.454 | 0.813 0.116 13.906 |
## 30-44 | -0.537 0.082 -11.674 | 0.439 0.055 9.534 |
## 45-59 | 0.153 0.009 3.880 | -0.035 0.000 -0.880 |
## 60+ | 0.478 0.123 14.325 | -0.597 0.192 -17.864 |
## Dim.3 cos2 v.test
## folkvidg 0.116 0.024 6.275 |
## hog1_4 -0.086 0.002 -1.882 |
## hog5 -0.394 0.025 -6.453 |
## <300 0.098 0.003 2.107 |
## 300-499 0.086 0.005 2.842 |
## 500-799 -0.116 0.006 -3.090 |
## 800+ -0.237 0.005 -2.983 |
## Mann -0.242 0.069 -10.732 |
## Kvinne 0.287 0.069 10.732 |
## Under 30 0.114 0.002 1.942 |
## 30-44 0.094 0.002 2.033 |
## 45-59 0.085 0.003 2.149 |
## 60+ -0.175 0.017 -5.241 |
##
## Supplementary categorical variables (eta2)
## Dim.1 Dim.2 Dim.3
## rutd3 | 0.016 0.028 0.032 |
## r40inn4 | 0.017 0.011 0.014 |
## kjonnx | 0.019 0.011 0.069 |
## stdalder | 0.206 0.266 0.017 |
fviz_mca_var(res, axes=c(1,2), col.var="cos2", gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), repel=TRUE, labelsize=5, select.var=list(cos2=0.05))
fviz_mca_ind(res)
fviz_mca_ind(res, label="none", habillage=data$kjonnx,addEllipses=TRUE, ellipse.level=0.95)
fviz_mca_ind(res, label="none", habillage=data$stdalder,addEllipses=TRUE, ellipse.level=0.95)
fviz_mca_ind(res, label="none", habillage=data$rutd3,addEllipses=TRUE, ellipse.level=0.95)
fviz_contrib(res, choice = "var", axes = 1)
fviz_contrib(res, choice = "var", axes = 2)
fviz_contrib(res, choice = "var", axes = 3)
# Klyngeanalyse på faktorar
# klynger
res.inv.hcpc<-HCPC(res,nb.clust=-1,consol=TRUE,min=3,max=12,graph=TRUE) #-1 om automatisk, 0 om cut, anna tal angjev antalet klynger
head(res.inv.hcpc$call$t$inert.gain, n=12)
## [1] 0.055638180 0.036301299 0.019860134 0.014603571 0.014292265 0.010393644
## [7] 0.009052080 0.007564301 0.007505033 0.006019160 0.005821118 0.004811313
res.inv.hcpc$desc.axes
##
## Link between the cluster variable and the quantitative variables
## ================================================================
## Eta2 P-value
## Dim.1 0.59424475 0.000000e+00
## Dim.2 0.52772036 2.645164e-271
## Dim.3 0.08832530 4.436473e-34
## Dim.5 0.01606604 1.439534e-06
##
## Description of each cluster by quantitative variables
## =====================================================
## $`1`
## v.test Mean in category Overall mean sd in category Overall sd
## Dim.3 10.528302 0.09970637 -8.490919e-17 0.2252223 0.2702575
## Dim.4 2.121726 0.01501544 -1.321622e-17 0.1839862 0.2019585
## Dim.5 -4.409780 -0.03022365 4.116463e-17 0.1797460 0.1955884
## Dim.2 -14.405107 -0.15003825 5.053998e-17 0.2091960 0.2972342
## Dim.1 -25.455901 -0.27668470 1.061100e-16 0.1836720 0.3101772
## p.value
## Dim.3 6.397798e-26
## Dim.4 3.386078e-02
## Dim.5 1.034756e-05
## Dim.2 4.805758e-47
## Dim.1 6.073560e-143
##
## $`2`
## v.test Mean in category Overall mean sd in category Overall sd
## Dim.2 29.442198 0.38851081 5.053998e-17 0.2187421 0.2972342
## Dim.5 4.191536 0.03639574 4.116463e-17 0.2422945 0.1955884
## Dim.1 -7.172023 -0.09876106 1.061100e-16 0.2497568 0.3101772
## Dim.3 -9.606252 -0.11525662 -8.490919e-17 0.2865559 0.2702575
## p.value
## Dim.2 1.584539e-190
## Dim.5 2.770719e-05
## Dim.1 7.389727e-13
## Dim.3 7.523811e-22
##
## $`3`
## v.test Mean in category Overall mean sd in category Overall sd
## Dim.1 30.22371 0.26066564 1.061100e-16 0.1747848 0.3101772
## Dim.2 -11.47807 -0.09486234 5.053998e-17 0.1921509 0.2972342
## p.value
## Dim.1 1.156193e-200
## Dim.2 1.700268e-30
fviz_cluster(res.inv.hcpc, data = x, axes=c(1,2), ellipse.type = "convex", repel=FALSE, labelsize=3)+
labs(title = "Clusters (after MFA)") +
theme(axis.text=element_text(size=12), axis.title=element_text(size=12,face="bold"))
head(res.inv.hcpc$desc.var$category$`1`, n=30) # viser dei mest signifikante kategoriane som beskriv klyngene
## Cla/Mod Mod/Cla Global
## Dagsreveyen=notDagsreveyen 75.92593 59.96344 25.96154
## Brennpunkt=notBrennpunkt 55.11714 81.71846 48.73798
## Debatten_NRK=notDebatten_NRK 45.46248 95.24680 68.87019
## Lindmo=notLindmo 48.17444 86.83729 59.25481
## Urix=notUrix 47.09360 87.38574 60.99760
## Skavlan=notSkavlan 44.51439 90.49360 66.82692
## Distriksnyheter=notDistriksnyheter 56.08108 60.69470 35.57692
## Dagsnytt_18=notDagsnytt_18 45.68627 85.19196 61.29808
## Nytt_pa_Nytt=notNytt_pa_Nytt 52.95031 62.34004 38.70192
## Deringenskulle=notDeringenskulle 48.43537 65.08227 44.17067
## Kampen_om_tungtvannet=notKampen_om_tungtvannet 44.39655 75.31993 55.76923
## Broen=notBroen 43.76299 76.96527 57.81250
## Side_om_side=notSide_om_side 42.90000 78.42779 60.09615
## Ut_i_naturen=notUt_i_naturen 44.82759 68.92139 50.54087
## Stjernekamp=notStjernekamp 41.17083 78.42779 62.62019
## Downton_Abbey=notDownton_Abbey 39.56140 82.44973 68.50962
## Nobel=notNobel 38.43074 87.75137 75.06010
## Trygdekontoret=notTrygdekontoret 37.14286 92.68739 82.03125
## TV2nyhetene=notTV2nyhetene 44.39528 55.02742 40.74519
## Folkeopplysningen=notFolkeopplysningen 37.41176 87.20293 76.62260
## Medhjartetrette=notMedhjartetrette 38.51852 76.05119 64.90385
## Brille=notBrille 38.64279 74.95430 63.76202
## Tid_for_hjem=notTid_for_hjem 37.98380 77.14808 66.76683
## House_of_Cards=notHouse_of_Cards 35.92513 91.22486 83.47356
## God_morgen_Norge=notGod_morgen_Norge 36.18524 84.27788 76.56250
## Senkveld=notSenkveld 36.53687 80.62157 72.53606
## The_Wire=notThe_Wire 34.60526 96.16088 91.34615
## stdalder=30-44 42.93478 28.88483 22.11538
## Farmen=notFarmen 36.37160 75.86837 68.56971
## The_Crown=notThe_Crown 34.64407 93.41865 88.64183
## p.value v.test
## Dagsreveyen=notDagsreveyen 1.461345e-105 21.821151
## Brennpunkt=notBrennpunkt 2.335476e-83 19.342987
## Debatten_NRK=notDebatten_NRK 1.212679e-71 17.898442
## Lindmo=notLindmo 2.796440e-63 16.791921
## Urix=notUrix 3.434860e-59 16.223595
## Skavlan=notSkavlan 9.132980e-53 15.288427
## Distriksnyheter=notDistriksnyheter 6.982798e-50 14.849751
## Dagsnytt_18=notDagsnytt_18 2.879380e-48 14.598300
## Nytt_pa_Nytt=notNytt_pa_Nytt 2.940071e-43 13.789693
## Deringenskulle=notDeringenskulle 2.206938e-33 12.039348
## Kampen_om_tungtvannet=notKampen_om_tungtvannet 2.685207e-30 11.438489
## Broen=notBroen 1.267533e-29 11.303040
## Side_om_side=notSide_om_side 7.442757e-28 10.939722
## Ut_i_naturen=notUt_i_naturen 3.695648e-26 10.579846
## Stjernekamp=notStjernekamp 1.435003e-21 9.539516
## Downton_Abbey=notDownton_Abbey 1.142158e-18 8.820239
## Nobel=notNobel 2.555798e-18 8.729598
## Trygdekontoret=notTrygdekontoret 4.248133e-17 8.405839
## TV2nyhetene=notTV2nyhetene 1.509230e-16 8.255772
## Folkeopplysningen=notFolkeopplysningen 1.405290e-13 7.395829
## Medhjartetrette=notMedhjartetrette 1.264870e-11 6.772602
## Brille=notBrille 1.553490e-11 6.742813
## Tid_for_hjem=notTid_for_hjem 1.611232e-10 6.394453
## House_of_Cards=notHouse_of_Cards 5.319328e-10 6.209382
## God_morgen_Norge=notGod_morgen_Norge 1.058972e-07 5.316302
## Senkveld=notSenkveld 1.422115e-07 5.262368
## The_Wire=notThe_Wire 2.304075e-07 5.172966
## stdalder=30-44 4.592178e-06 4.582606
## Farmen=notFarmen 5.682519e-06 4.537870
## The_Crown=notThe_Crown 8.374607e-06 4.455377
head(res.inv.hcpc$desc.var$category$`2`, n=30)
## Cla/Mod Mod/Cla Global
## Game_of_Thrones=Game_of_Thrones 59.55335 61.69666 24.218750
## Modern_Family=Modern_Family 63.33333 53.72751 19.831731
## Narcos=Narcos 70.20408 44.21594 14.723558
## House_of_Cards=House_of_Cards 66.18182 46.78663 16.526442
## Trygdekontoret=Trygdekontoret 58.19398 44.73008 17.968750
## Skam=Skam 51.62095 53.21337 24.098558
## Brille=Brille 43.61526 67.60925 36.237981
## The_Wire=The_Wire 72.91667 26.99229 8.653846
## Folkeopplysningen=Folkeopplysningen 47.55784 47.55784 23.377404
## Side_om_side=Side_om_side 38.25301 65.29563 39.903846
## Top_Gear=Top_Gear 43.21267 49.10026 26.562500
## Nobel=Nobel 43.61446 46.52956 24.939904
## stdalder=Under 30 51.80723 33.16195 14.963942
## Vikings=Vikings 44.56233 43.18766 22.656250
## Big_Bang_Theory=Big_Bang_Theory 39.01996 55.26992 33.112981
## The_Crown=The_Crown 55.55556 26.99229 11.358173
## Nytt_pa_Nytt=Nytt_pa_Nytt 31.47059 82.51928 61.298077
## stdalder=30-44 40.76087 38.56041 22.115385
## Medhjartetrette=notMedhjartetrette 28.24074 78.40617 64.903846
## Kampen_om_tungtvannet=Kampen_om_tungtvannet 30.70652 58.09769 44.230769
## Distriksnyheter=notDistriksnyheter 31.58784 48.07198 35.576923
## Deringenskulle=notDeringenskulle 30.06803 56.81234 44.170673
## Paradise_Hotel=Paradise_Hotel 49.46237 11.82519 5.588942
## Ut_i_naturen=notUt_i_naturen 28.53746 61.69666 50.540865
## Broen=Broen 29.34473 52.95630 42.187500
## Urix=Urix 29.73806 49.61440 39.002404
## Luksusfellen=Luksusfellen 31.07221 36.50386 27.463942
## rutd3=hog1_4 32.24932 30.59126 22.175481
## rutd3=hog5 35.06494 20.82262 13.882212
## Greys_Anatomy=Greys_Anatomy 32.33333 24.93573 18.028846
## p.value v.test
## Game_of_Thrones=Game_of_Thrones 8.116639e-78 18.673616
## Modern_Family=Modern_Family 1.992298e-71 17.870769
## Narcos=Narcos 2.246852e-66 17.209676
## House_of_Cards=House_of_Cards 2.005809e-64 16.947568
## Trygdekontoret=Trygdekontoret 2.220042e-48 14.616020
## Skam=Skam 4.900332e-48 14.561999
## Brille=Brille 1.608382e-47 14.480536
## The_Wire=The_Wire 2.959172e-40 13.281621
## Folkeopplysningen=Folkeopplysningen 1.917581e-34 12.239266
## Side_om_side=Side_om_side 4.795650e-31 11.587013
## Top_Gear=Top_Gear 2.214230e-28 11.049100
## Nobel=Nobel 4.943943e-27 10.766702
## stdalder=Under 30 1.016386e-26 10.700127
## Vikings=Vikings 6.467663e-26 10.527280
## Big_Bang_Theory=Big_Bang_Theory 3.792947e-25 10.359410
## The_Crown=The_Crown 1.608178e-24 10.220315
## Nytt_pa_Nytt=Nytt_pa_Nytt 1.658379e-24 10.217335
## stdalder=30-44 1.298017e-17 8.543869
## Medhjartetrette=notMedhjartetrette 6.051382e-11 6.542463
## Kampen_om_tungtvannet=Kampen_om_tungtvannet 3.701562e-10 6.266120
## Distriksnyheter=notDistriksnyheter 6.757261e-09 5.796849
## Deringenskulle=notDeringenskulle 1.117837e-08 5.711806
## Paradise_Hotel=Paradise_Hotel 1.760937e-08 5.633984
## Ut_i_naturen=notUt_i_naturen 4.707988e-07 5.037846
## Broen=Broen 1.047149e-06 4.882565
## Urix=Urix 1.194299e-06 4.856581
## Luksusfellen=Luksusfellen 7.766758e-06 4.471515
## rutd3=hog1_4 8.820859e-06 4.444227
## rutd3=hog5 1.385940e-05 4.346077
## Greys_Anatomy=Greys_Anatomy 8.474391e-05 3.930572
head(res.inv.hcpc$desc.var$category$`3`, n=30)
## Cla/Mod Mod/Cla Global p.value
## Distriksnyheter=Distriksnyheter 61.10075 89.97253 64.42308 6.006794e-90
## Dagsreveyen=Dagsreveyen 56.65584 95.87912 74.03846 1.476605e-83
## Deringenskulle=Deringenskulle 61.35630 78.29670 55.82933 7.577577e-62
## Lindmo=Lindmo 67.84661 63.18681 40.74519 1.057760e-61
## stdalder=60+ 70.84048 56.73077 35.03606 4.850931e-61
## Game_of_Thrones=notGame_of_Thrones 53.84615 93.26923 75.78125 2.747022e-54
## Brennpunkt=Brennpunkt 61.66471 72.25275 51.26202 7.909178e-53
## Debatten_NRK=Debatten_NRK 69.88417 49.72527 31.12981 1.032354e-47
## Ut_i_naturen=Ut_i_naturen 61.23937 69.23077 49.45913 8.585519e-47
## Modern_Family=notModern_Family 51.79910 94.91758 80.16827 1.688890e-45
## Skavlan=Skavlan 67.21014 50.96154 33.17308 2.570041e-42
## Narcos=notNarcos 49.82382 97.11538 85.27644 1.253049e-38
## Big_Bang_Theory=notBig_Bang_Theory 53.99820 82.55495 66.88702 2.237999e-34
## Stjernekamp=Stjernekamp 62.37942 53.29670 37.37981 2.048559e-32
## Medhjartetrette=Medhjartetrette 63.18493 50.68681 35.09615 6.022194e-32
## TV2nyhetene=TV2nyhetene 54.56389 73.90110 59.25481 2.352818e-27
## House_of_Cards=notHouse_of_Cards 49.17207 93.81868 83.47356 1.104271e-25
## Urix=Urix 59.63020 53.15934 39.00240 1.481653e-25
## Top_Gear=notTop_Gear 50.90016 85.43956 73.43750 1.755521e-23
## Dagsnytt_18=Dagsnytt_18 59.00621 52.19780 38.70192 2.053085e-23
## Skam=notSkam 50.03959 86.81319 75.90144 6.351441e-21
## The_Wire=notThe_Wire 46.71053 97.52747 91.34615 4.003165e-17
## Downton_Abbey=Downton_Abbey 58.39695 42.03297 31.49038 3.788172e-16
## God_morgen_Norge=God_morgen_Norge 59.48718 31.86813 23.43750 1.004464e-12
## rutd3=folkvidg 50.09398 73.21429 63.94231 2.738206e-12
## Farmen=Farmen 56.21415 40.38462 31.43029 4.580948e-12
## Broen=Broen 52.70655 50.82418 42.18750 3.277091e-10
## Brille=notBrille 49.48162 72.11538 63.76202 3.308591e-10
## Paradise_Hotel=notParadise_Hotel 45.44876 98.07692 94.41106 1.575293e-09
## Trygdekontoret=notTrygdekontoret 47.10623 88.32418 82.03125 2.144070e-09
## v.test
## Distriksnyheter=Distriksnyheter 20.110211
## Dagsreveyen=Dagsreveyen 19.366612
## Deringenskulle=Deringenskulle 16.594975
## Lindmo=Lindmo 16.574936
## stdalder=60+ 16.483127
## Game_of_Thrones=notGame_of_Thrones 15.514984
## Brennpunkt=Brennpunkt 15.297794
## Debatten_NRK=Debatten_NRK 14.510980
## Ut_i_naturen=Ut_i_naturen 14.364961
## Modern_Family=notModern_Family 14.157071
## Skavlan=Skavlan 13.632395
## Narcos=notNarcos 12.998171
## Big_Bang_Theory=notBig_Bang_Theory 12.226718
## Stjernekamp=Stjernekamp 11.854124
## Medhjartetrette=Medhjartetrette 11.763450
## TV2nyhetene=TV2nyhetene 10.834877
## House_of_Cards=notHouse_of_Cards 10.476791
## Urix=Urix 10.448944
## Top_Gear=notTop_Gear 9.985983
## Dagsnytt_18=Dagsnytt_18 9.970444
## Skam=notSkam 9.384003
## The_Wire=notThe_Wire 8.412806
## Downton_Abbey=Downton_Abbey 8.145148
## God_morgen_Norge=God_morgen_Norge 7.129894
## rutd3=folkvidg 6.990545
## Farmen=Farmen 6.917991
## Broen=Broen 6.285069
## Brille=notBrille 6.283582
## Paradise_Hotel=notParadise_Hotel 6.036463
## Trygdekontoret=notTrygdekontoret 5.986498