From e9ffff86002e45d738ebb69e7912cf03ef9f7e5c Mon Sep 17 00:00:00 2001 From: Victor Andersson Date: Fri, 14 Nov 2025 14:32:08 +0100 Subject: [PATCH] =?UTF-8?q?La=20in=20lite=20grejer=20fr=C3=A5n=20quiz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lektion1/Lektion_1.qmd | 19 ++++--- quiz/Datamaterial_SHARE_Modul3.rds | Bin 0 -> 14459 bytes quiz/Quiz.qmd | 78 +++++++++++++++++++++++++++++ 3 files changed, 91 insertions(+), 6 deletions(-) create mode 100644 quiz/Datamaterial_SHARE_Modul3.rds create mode 100644 quiz/Quiz.qmd diff --git a/lektion1/Lektion_1.qmd b/lektion1/Lektion_1.qmd index e487abc..efe9a94 100644 --- a/lektion1/Lektion_1.qmd +++ b/lektion1/Lektion_1.qmd @@ -262,16 +262,23 @@ Läs in filen `hotel.rds` i Rstudio. (Se till att den filen ligger i mappen som hotels <- readRDS("hotel.rds") ``` -1. Hur många observationer och hur många variabler innehåller filen `hotel.rds`?\ - \ - **Tips**: Se övre högra fönstret i RStudio. Klicka på den blå symbolen till vänster om `hotels` så kan du se detaljer om datamaterialet. Om du istället klickar på texten `hotels` så öppnas hela datamaterialet i en ny flik i RStudio. +1 Hur många observationer och hur många variabler innehåller filen `hotel.rds`? -2. Vilken typ av variabel, kvalitativ eller kvantitativ, är variablerna `IsCanceled` (mäter om reservationen bokats av eller inte), `LeadTime` (antal dagar från bokning till ankomst) samt `hotel` (h1 för Algarve och h2 för Lissabon)?\ +118 322 observationer med 33 variablar\ +\ +**Tips**: Se övre högra fönstret i RStudio. Klicka på den blå symbolen till vänster om `hotels` så kan du se detaljer om datamaterialet. Om du istället klickar på texten `hotels` så öppnas hela datamaterialet i en ny flik i RStudio. + +```{r} + +View(hotels) +``` + +1. Vilken typ av variabel, kvalitativ eller kvantitativ, är variablerna `IsCanceled` (mäter om reservationen bokats av eller inte), `LeadTime` (antal dagar från bokning till ankomst) samt `hotel` (h1 för Algarve och h2 för Lissabon)?\ (Bortse från hur variabeln är *kodad* i datamaterialet.)\ -3. Vi kodar om variabeln `IsCanceled` så att 0 blir "No" och 1 blir "Yes". Klicka på "Addins" längst upp i övre vänstra fönstret och leta upp 'Levels recoding' (du måste ha paketet `questionr` installerat). Se Figur 11-14 i bilagan.\ +2. Vi kodar om variabeln `IsCanceled` så att 0 blir "No" och 1 blir "Yes". Klicka på "Addins" längst upp i övre vänstra fönstret och leta upp 'Levels recoding' (du måste ha paketet `questionr` installerat). Se Figur 11-14 i bilagan.\ -4. Klistra in koden från 'Levels recoding' i chunken nedan och klicka därefter på den gröna pilen. +3. Klistra in koden från 'Levels recoding' i chunken nedan och klicka därefter på den gröna pilen. ```{r} # Klistra in kod från 'Levels recoding' nedan diff --git a/quiz/Datamaterial_SHARE_Modul3.rds b/quiz/Datamaterial_SHARE_Modul3.rds new file mode 100644 index 0000000000000000000000000000000000000000..a91bcdfc2b6304e937fc4715d0ce41636e99c357 GIT binary patch literal 14459 zcmXAvc{CK>`^T*xp{OLvGRamHX|tP@l08YtGL}ju`_3$)LSkeIS;mqiGKuVrea~3R z*aw5b7-KLqX8(46zx(Gs=iWc=`*}Uj`=0X#Bpu@Uzr{~<70%1Mo$0T8LOkGT*zMcC znf5o_B_6kC_U5V&f8Z%FJHva{EWylVj*@L3*xDngY0&=W%=)*4xieQ!1s%P6*>tVo zaa7dPv>e&T$8}8{<~=whdngu#w?Kzr9PH)#NkYhq&A%12Z*HvwW)pr+>ht|_ww;iy z4udBI;Y2HxWm(;s@g}B z)?zbydWIfVx$vrL+It#U2gRxM$In9oz*{MlL55M3y)P_Wdx=A@i>Z$d1+ zn^di+y*QrzWE))9HRwcoqif2_*FU#tlDBlJ*EDv; zXjfc@!&{WyUfO#aTm8`ZeeBavq2X}C2zj!}L8qB^_C!}^b~=@~!Y1aq5(Adre4mX> zTI;fK+`RT7XeDM|{h?#8jwO7{aZgs?!Ssd1!_O~ColS%Py9D34|6c-4NFn;#jbF3t^X6^P~TJ3~K)HBV3f&5_6GeH!{YMPlN zSniV))umxERlK`?Vb;244pBAF4v{taFZX2Q;aas7sLGd`?Tg<^N_JwOl8-kfC3Wf@ z4exkx!#F!@SaIOWudlax6Vs+BVN2RAudlY@;s^C{i>a97SEH^h`IZYSbf3<&#YTw{PoAXYJw2kPy zGRiEPAMT(Z8a#KvNVxV$IbIC;GH{SnzOENK4*RyNuoF^>W<4p1@Rne2sFjVQO~{!x zU4Q`x^*!&q(RV)Xm|2&GKZS(2uHxT6$PllwnX%cmmnhgRVdbkIL>1_PFgaiLPuQ%U zWPN&&fejALw+v}{yH;*A?9P~8*Yg%`J)PE<*ZjU>ArO{7n)@NKs)Sj{{2I~JHm$l` z@o~k@=r>2iz`1ZcXlcrDdw> zE9602a;rp3aHPws`E9a2tO10lL1?ze4KGL^grqDIIJpfKMonU~PYk7SLLuxE14ZnceN%$PKHK^2k6eMbf}WPJ z&C%~MrV0qqE4dGm_;dLWYC&k{jq|WxO`lxMMC3bFUkTt}(~WhbPb_1`H0K%jaBMHE zI**UylBwC_#SIf1Qn*JkreC7Ptat(Y8Q%i48~rca&~Eqr)-5aE`wRUiXHX6}ZW0$= zMEG;;4;#ZQf+kQLh_TDTdBylAy*0MFK7tP=Krh07Ltiu-4c1rBj!zyqZ2XvOLaSIi zH07K_Z8?PI2Y+=vyPS>^#dXG5wy)hzqy+YmBy9%NiZ=76_eCGflBJH5| zVscsZD3YZtaxcM#T5s+^Ojr}0dB`pE#nqR(S`l&>!UKI&%$Apmn)fy1zqkHMmH1!w zTgF&EFe*`1lR}p4-POR+KL3XHAN;mFfgQCxH&|mw(Muia~M^HKI;L-|4d#K_Fz{y5;;S%NZgNziih0}7< ziU-qwWt8%Gt{e0Z)6-Jtu_{JIq4a`JI*(?j&&e}wlJy^OLk;aPmGI@k9it{>5JGS7ou?~*i!%E{l$Cxngg+_ykt)^#jklD`KR zd?~VYuxtOxTz5^*IoA?xJ}bF9bY-ImfE76H-ExkB6TSa9cf4u>n$t%KA>yOrN9@{s zp1F|nd#!rme@*Et4fA<2WRETNF?DmWwD&HK;b^cwK;o@900AwWR>}& z$_5+^9UzngR+|I}N!87K6kXxIv6)FoLUMel3;nkV1|L-xS#{^27nPnTNVzVDHo<6f z?i5zT)v~G(@0J7SD)8t~aXZY3sKBsPVsuBa#PeLdLao?r;^|Ligx$Rxc2a2+C!ol3 z)5{YGoEc826oI?-SNs>C68TLN>^~eV)-eHb2lj=^lmPhXksvFTLH}z@eSevjEw{j* z^wRqWsOWCvmbS%H?0%DtziD}2whIZVEiT%VQE>zQnH-!I?x1H4ga+9-pP6%m!o8D;Bk_E#@loT`sJl!-K( zB8&XcO`Q260J+hKx9waubF8_4(k7-v0IvGV%kmx{4D+WAtnj*9Ise;5e%y+Hgkimz z%g!0Gww98>;2)EnXp`^RHWO|tD9He1Wqz`kQ@-NIa2wx?>%C)dIOW5mrNbjUexb!5 z5=_fHEMA+~eF#!)d_1un^c(D`2D;yJtoyHsqLtO+oLrCa>Oz`{UEJ%S6Y%gW$IcUd zHm>yB>lt}4Wj?$X4Dp&7s+CJI$b=lD37Sey9uc{w9V~a2er3(8gs!!za`k@$FxxrI;67HbtlEh?^sb{YJM!V8w_u%GT1h9T z1`+!=#jhbs42dPw@Kn}28J)Ck;OsHa^zxJ`ZKaGwR6 z@fHx?u;a-+%_EA2s`=gLvyXvjt%KK~QB>CoZy>Q5QD9#@S~vGwKS7cb!J4)~uh@Kk zS^h`C233sEy?%|V8JyQ%+l~=2FkZ|RXmeYv7O?qDE)kGFA0RTOulAo>!LFA5;xR4o zIjkkku@iQYq7HE-Ju6OE0e>K^9D5Eh*~@6#4OL3^fqj~3Di{IA?xYk4u4ZkV&+oGP z0DH;}L0Er=E@-;KL@0>6zOFW_UW|ANM5U(rKXXDKCglqLG?KU8i^P68Do=i9Ak+J~q~^h%sBd8F(!jOcjUQ~CSBy-~2QA+^i6)NlA0$IEoEzGjeh7|6 z5SvmEcX42io)yCn42s)&ll@f?{b}?7Z8zXkpRbY4HfGPEEgNz5x1C-K`T}ZM?%0*8 zkh1&0iNDdM;GdkYtrf-4Ht%8WS&5}v+#CvJ?%UVzLDdU2ZZ@TnTc{Je?Bt{?DPOKL zndMiZCn$T6amXsg`Yd?zR$a|Tb|4iFCM{S-v>*o&yFFovY#}6~7~11)=%I_-I(%!v zq1T}idom7*FZdFv24Fs45UNWDTVGHmaF_n9u~&6$FkaAU&QEMY+&6DKfnCT_@ajPV z1w%ORA>N|AO2Dx$1NY?n^W&Ko24cD95zVC!eQIwYI z3vlU&!r3O0}^S z2WTO^Ua4Iv1s-_`$8GD+5^!HZ zbg)cv-(Nc?P(wl4?k=5dcnoSauWt>XLiF|^hCwd#b?+uuqpmR(^2IlRWpQ1fQjV2y+GP+`sm)W!E3_hz(}YI7)exn zRSC$`t_F=qf^9+iun_3FAUMi1lrnaF)dx0G4jmSUfT2)r;dFto3Mm50+`jboeU z%|C{CLp<1C5Q_4_BMo9)CaOt6lSpv z_)>6NApKdM+fTQEyslJ=;kK?|pRvevRSnlm|8s=B*6xl`0JI}&C{mQ9kG=8{!LA%% zVoH0HmJ1Mjy4|ZlS?x=feWR-lY3!o}Wgyy}J4hDpn+=RSw>Lz+Odsgx8LijrbmCH39)e#~#T_-nq;!~`ybF_A^DW4di8ItLhTYQB z{|__wHq1d{hv62-*%mK^4e1;EGY7J<)Dt_`U6LtHZXzsS(0?sUUebWbqXC#Fie8tn zN1*YKVzhU>+uLA*ZhngET$$dPsiv?Of zbA>%Wg`l2bU|<65{9ImAqeQ@JsH6Y--9_Ifvjdmp(CbyEuqyvaX|Vf|US~G}Ml14; zK38&)mQWC42nZR2lHHUZ>UzClaUu$lA-pYxY!&AZM7jMzr!HYqobYsJr)*x#+Rlcx#-ZgPv zAiuXKV)9xMchct)l1wR_ZRKa@azq-;=?6w@zOWN4Ll;FRRjm?6a31qZV}6v39*?@d zZm|ENmU$a1MB)WvT;FoOgG{+%OJx*=(dUxvZHVUj{$x=r`F0G1S;U=j@K|W7FKVq3 zWo=IZc8*QQTj{^jHW1pq4oVKghmZQvFU`n^-;U0ltN4pNuFH`Lpm|Kizxuw2E3zr! za;&H0OGbg<%M5+4KorD3c22#g?J6LFQzTeekMqyg-c?*&U5nv{g8s{A3CGN$L|Q;x z?e%@IV93udX@9!+bXk^%0Z@`SiS%k=>+Qo^{@V|S_#B%-{I~E{h6lh(9rZD8-cuWP zhUqXc*ZAu+_=h2)V5I(uh+EuP&ULbvFMv0nrGLrDQIyrIS<-rk+Pr#vQJXDKT+(fy z1(PleqeO6qntc(3=rKRtdj~8X_w8#xIr_ZO*Li^9p{ISP`#6|bKlof%hhHtG#gghH z5J3PYQLUE6olUU0+x)UFagn*O0HXA;A1??Xb~ao53&i(@pI?}Q1Hfw1I!P6YZOI`Sn0Xxc_dlma)?dR1+h|e1=h8GA7os@Qo6l4ei zk1+HdVn?=dqYL|_#WJh?YWw}jP{885(#u@CYz+C~D4KnQoxhBjfr(5p&h0#U%D>%& z7uoq62N^{6HZ|^DYNH1K1d127LV=@l)1!x4po{fv^_}Zr9^5?kPIGY5P7xXFe7hiy z2k;>xa8);EwtIn!lHD<{9{TRUhw{F$a*$aI5L)10b_n)V4f?(gD9{%TGUKLm`5Tx= zwBa4!gTzUx4L@ja3Y(Y2pM@JHgyCdH-PreEA$VCMCq58vY+649@JRwgV#c*S9#}YwL1xRIhlA({c3!ZEJ2>ak5CBd85X@W~>79 zAb965M3EtMG8QRx8wL2l+$ZEdVPo9$StoWd9Oqi?R_XogfE3E4FCPM8I>7oKBj
  • (8pps zRmYhV50f}no@Kk&vaz~0>xQqX;!g+K5};xhEz=+FM0W+>D2vpc^i9*LCIht=)Wbs7 zA<`h)mG?k~#D{PVhBN6HwCNJ39nGr^lL5b+rB_{oSg|;?sb5+Q84&GX%+`E=n@_%w8r_m{( zST{6~huJ2s6V#ufbs*Yk8lIHj%gyl*WJQc{P3Hg7fz^i8p?Ptal0$E zrgo0J$7+(hxbGmYWc7Wn^;VZSM=F38S%@;*ox1aZ0QXd7!h2fY`tz-|B~Td1jwr(* z|6P)Rtieez63n~CJ#fB>H(m?}i0ctWW3Wu;_u`Mpsbhi{rcNX7M=jycRAQPB5j*roPZ=E!n8))9Er_+rD2;4H ze%R^)XuhP%)HO3z(B#Mwm%E#UGUV$jWFD7P)L*K9isD(8-IEv$K>)~l}s*gTLa+#Ks4 z|DY8iCE}T*apLi1o0it7!*%t1C~|0w6@d5UM+i1ZV6yqvrU1WCNh?u!@rZfLLBxMx znx;hw+iVo8ME68Zm2$+rSPJFQhqvRYix1k5i1Q%Xz&G%VF~s92_Qs7$;DOP$HkU}(9qaq8KiX!sTT8V#rQPZ zMn^vrpA%>3Lq&7}4N@Ud*ZKT!5PPn+uK~PTtafMHu)KA5U7yllEdDZY8&zO1d6Yk)2?teg9Ojd&$AHRoPwc)mnY)u7j8ZN=tW7F7P$^3+ND*^xrVe6FPfnCF0)h zBiT#ny9X4t^ijG4#thndS}NJN(ff@!`n&3>O^>;CjjuJG2&zlE?C z4y}EMUSasB?`<8F^q&uFhKU}?Y?;7@B%aYM*nR=h%!AQpEfk1lSHJR#P}(*gBC^9o z@0xrC=Xs!@_YV);gUPG z^wEX~`Q-XR)9tMVT5t@_Lhf07FCAvWe2X5?JMN8S99fL{QytZ9Q$N`DT~8k8Y$QH) zf$oj!#@~9rgHfcjKB8ZZ)WwfsQH}>A-h#2)t@njka|xrF4bK}7Xj>cWq|}JZuvh&T z!-ylfmlpOQ?Y?OUZOF|7l;BQvlK+1ND@knl@aed&G&~-06GpHwhQ+PV%c&k>OC_iC1nC%X&?RD5tJr=R&0-t29RO<(@`Cx6E^1ADKRi!W&L2fUdp;TTL}&*7tn%6LdD zdH38rub~o0loe~UcS9QW{Lqd@A~O80VWZt9ddQh4IL(wa@*oba+)m(LJRnNIem>Wp zX>1OTndJ??%Wk}QB+9kS9m@1vL^kuYf5#UC>-mT&cn`O-6}oPhSwh8deeY`m((rsle<3KBTiWN|cI;BP1l6lz z-Pd~L$qy-9b3rFdEU^Y7ij^_3(JO7cJQqXBUD3TUQFe(`CD+bO?w+qtgbsV24d-kM9C9JNvBe4&^5qS;J)F=i234lBwU@zH|e^9yG+ zD54pzrhUJ}YHv}AH-|wQls8m~CvpQQ`81tMn*z`iYzpUkIb!=$Je}w?I(vpfv>wBM zq?NSVvS83-2ajm>`{5R?kglS_8mlc%J7fw~9UcrSk zz+pL4^9A@Kl+|*~2hf9C&}uK=-MI@`UY18>3cc_TayS1O=>#ween7C;%AoqHc_$Tb!-$56wDgJ(4911M$Bs;El*#39RsIZwb@ovVyCD#QWk~=?A4& zyDg!`Lhw8RodEj3VW@DB{0NrS)b$R;D|UhJWd`FRUbkJQMQ(={UcxmR+e?Y($;G~= z)LXbMD4>NNn#<2ChI!OX1U__5y|XcyT^}zOv>zOTRbzwtsy0h@ZSM*ASFSQL>hW zdifounzep4Ef}hWN)Tr?Z$=NHd1SuvUyPS*x&7q-&TF%?RP`Bqt09ky^cmb3c2h#6jqWm(t4&eLG-+^Y=n zjuxvjUMlOzp7z~VE_9$?UjM1cx>fT@TrA3Z=B~`uY;J-h+eg)~K3G<~$vMUq|pBEY^>r z$R|dp8FuY!+?(8!<#BcW!SGp=?O*=}JnS@KKm5jal{g>LcDM4s0smdvP!s$g8w6Wv z5afz`{2ykRx!kkGtBbA=;gNEE?gq3gqoBZRYlZ=576G5P|ETOPD1^D}%^O9!g@j5n za(k+-g~u$ohCcIuA;_B8RO=7sS@W8`Lo;6Rd1i2WkD_?iyKU{kiC$+2Yaq z=lok`&1q==uR>MQwU=pNBd%?G-W1_OE>b$K8K%k{eH)rJ1YP^|G`T}{r4d5PylGlc z@e2Yta4MJb|A=SY3U_CJ$Z~J-J-HZGULPvf-)064MRvnn?~~+HBN}WMK#@PB_8lN{ zMBV{Yp>9+dHaW6!h$r`HF)Yi#dn1b$s5inhZ(W`qVgW@+F~^k1rZjOu5?va5j=I0y zr)9M7-Jg@r3d%jGX!G}4*tYwzJz`W_|GS%^o!}~`bC@`J*uCvEd#H4z_Tg4r88dCPa)mLk_zC1M&|R88045=YRl@ZHb2!2%3gfB_-j!T zX$!l^RG<^vcYXR6eS=W5h1~L=+{a;ptUI;2*zJAVUU3R1<_!v%V#_P^3=w~ZbMG}o zMV9TmFJNh(1|)8*b5sjO{a#z$@aVdf`9!Ul{XHbqtaJC0nOl=PEPSp+D!}WxZ(}54 zt*RE-m$s!$Ysgu6aFOS~f7t~TinH3Q{QB67|H5+e`Z)5L3tp9u3slR9hT4!T!q`br+#sKQva!>zW|4w4`J6^~C>39Sjj4?dy#aVc+G14_c4<-OQQn z8vF9bz45z~xOPD|Mec~h1I$g;{y3)NxrS7Ar}UTH)O<|EamiU%ji*N@%6{rO7>lbe zb&smh%7=4t{r@!vN~Va9dig5GK(ZU|x!sDeuyfJukWu`(G(7>%_iK*&SuMOw z?n%AbCX_EzmYL`lKvi0ibo~~U^H5cIc=yEQatgh9q6j9Um?);GiB$4_dGYNbCB=G= zGyC38$i&eD_zk>BtGz>5e|6eCcIxi{?i&-oo;2PxM7X zT^L8?P61tKDYl#iWQc&Z1nc>@k-p?AX!6P)`b<>lKbLf~z~(>=QH2~GOKfYX2TpPDTh>u9Qj=1%|mX+ zQwdS;khs4l;Ze1&Kd=-3(hy}qe-6zzodaEnALF0KI zVGKm~qB(k$>z)Cv85Fe;`ug7;$!L55#ICXC13h}@vMpmg zCA0bAhR9XC30Ov7IV2P%x-w+4@#hX*eKGjX+ci=4i%qF!_epK=oz;trSz9-j8of() zZ7h=)<^_^DV2 z^$0cXjr6g;jhw*Mxf)QnI8%GIZz^~VL=I)Y41spg|H9GmWqZ@rq+k4H6?1Bu-~C4v zu2sptEtnxUZ5`m&+`LQJTj38#?_2G3izA}fBoI;1P}{~|zAM+6CwkQXn;wxi8Zhc9 zNMhhTY25u*9PxuiZ>Bg!v=cASy>JiR*bWu`LlIq;a8;Gb_g}90bFiN*H)Mh*L}u5u zZ$5ZzuuxD|49*Qk-&uVE3xADCG~#30$yd8p4e|!D6}U3q_3|e`k}Nxp`pqS z(4koytyaHys&(M~zn_GkG0Sn$`}Ovze_}4x#H1|S<~8A49=N>KE{SnS!cjELp?2Lv^-#SYN_>5sA8MWd~+xgB`Li9JQ7NiW;NO4SZ9Uj7H0|(+W5X9hL%R^Bruy?y?Xk9x=6TH6JwK#kgo%WmIy zON&`G2H>_Pz?T0X_-0%ALf%7@sz(b#JFf0FRxH&JtGtiN%ctl+ZNVQkHQcV@WlBL2 z$OMFruIJY4#6BHv^6&5jE+5nNv0;jLh7o~sN^5Vx$cOERhA12TMdvb1ug?@5%Llbf z(ebec-G7ijkM)y-Tv)cLh_5bd3!?86akMGZ1))_{2_inC^3lvU%s25`f6MwaoN`I< zNLPl~?2&IWlIw7?>Q(E=N5%`4%py9>cp+EWNH9olU?u0LJVw>$@-Y@)>lg*c`m_yu zH9vHRzG$GXQgD8Ua`&QLo!o8NcQ^D8p3aoo_MQ6kklaY^G3fs!qfqOqckPT@@GS8)Iq6O(9m|M%c zhb0^aTRa2bOxH64SLfppr(nSM02R(RyJM_aJt?GfS;$vxw}ci>ExsdZP$n8$ixvzU z>{htokO9|ey#zk3e}2?JJHZKCITYkwLdel^IfG$`LL{`$!~QXb?SiS@%%YUGS7qbP zPNii{ULzOmW+jea;j|d(fmVSR_24)q>QFTvNjA-MJ(r*;fbAwulQGwz`jS03icc{s z7dk)_-A~0y4su1eA^E#y_YUqyeFg|Jk2~0`;*l-Z)h!)=tct->z2y{K3Mq2I;k8Y= z(4m4zqnu-HcDA~f5LJm%q;J(;Ian*SKUVLVrJGxT-|fxr>aeqZDEfjO8@agPQ1%tH z?qk%0hQ07wDZ^6*nZ;hN9tL70b&#cm+$7>$*-{5!Ux_>9{?iYDk4 zpc1|VItn_`ZEB*eVsySiN}>`Yxk)(KTVBvSm#R&bPni3cSlF+7X85+iq5EGDVT7f}Fa^tcs)^BzSXA z$uRz38BY~tgDqC&5WqL*A#l+ZJ5_jpQ#rXP<;wf6`Xj%i;z@GIbyha@G2Z3`(68V- zMb#2tIKG}W2)fTWR-baQHE+xC$8FS0PDO8--3{amFl%5}Cdt7BEe#vrSG|jT+@!_I zs*tMMYByQcY}ZdHB!-HAk_M%_h8Kq{A5@njdsYfAaRingqZ|K(nwRR2K|XC6{(7Rh zynb@R+nI)pag*#gyPq_6QK~70v^-fKhK5fu^-6ag)D}KtE6 z7JLSri&16_O)=%WZ0=LTio=joO$)?eOSgW!i=Vth74)Ml7jV_MrR@eM{)*Wf;>8?nVCNsRaAk+42 zz7ABy$3evc^@npG6WkNtNU#cn-sh;DL^`@WES6LMi<*9ieMhm$Ko0EM9!9!weEW(@ zQ*6TA8d({$AT>lCJ?YKIEvS~!pdsoru{l&f=LgX0U0bM8Ql*_A_?||AufDER_5+rV z6Qh*T<4I6DlGH1u6-j?g>j^XPvp@{4sy=6{J+rw4wBBs%?MR%_bY@(cW?mm_z z4g6*Wncsbu@Po>l4mv8uvT@Ix#$;V$Op-yDI~`M027xt+cf>v>TbV`MJyJ>?HvU-a z&--SA%u>5m*>xsX4jsEJvvf0Qlcj=3%J11`Fz}Xi? ziK;_tU$&J`N?Z_?U@6<2yCh!n_V|rQ_^MAiTXbj94mH*C>`Lp#A#X!$!w+@%NWU(c zA~&;YVwrzU=6Dq_SRthbcSr$OBcZDI8&at(I-vS_QoGMd><);FH#0&Ut3dA$Gc7On7)YR`5+B{Nkuqoy=jBVY2ya`ne~aL@?F6z z6d+Y~>iC24rT=+p$m|mp}1yjL(L1dI&_?>FxMaXn~dM>E-9_UrUIpnu{zO!tVi2NBp`a z;ikE(o`M7hZ!d>*QA8&!Ov5ij7L=tx`_uG2QybcPc$rP!Wo3w47ZDFK2q$YPdz6() zO#V4<2L}j|`e~XEDyKI}Y`}YDJBuEtrmO6$y~Xqzsg$bgO;af4fr*u{E~6fYf~K9$ z>5axcJlwj;{RDUYe96`Hxr_l37x1d^J9i6UOI{4q=jdtcK*K}eSyk(yx~~$hkvE-> z&-qrE$TA;dXQ~gv?n>Cgock6ZE~%RIbEvbm`cz-LsgD!zmb$8#`Sfsn|1Dgfoe6PV zL6@@0x&KCl_WQbKt<|G~SaC$AfHMa3@!Eb7b70P^Px!6x9!XX9$9l-kuD~Ya?W(rf z+OrM5wU5#R^8T2+Ln6}@M|%k=2q6`<0}E77V1}JnWy0JjG~(s-OSxzKOgI= zUml*z620uPQG(cgH!&4f?4U6`Q!!+Ec4<{vlG~s7HfeJ24%wA2tUrLc)^r(Sk1rV=F+@bq*;6JXFM|O+MBBX$**tG#AQFXohs1 z?e<>wK*=3ns6qb-IKDGBg8d^#GF%rCpNk#l@?SXhh7;wh?2y(9A)RYqeiCrOzSDU+ z(}hmk|H}{51Wp;9188arfE^LGt%D&%a0V8=`jGkH!|mSt(c0wc-|D%ZCR@vDeO%f!wn#s-Z`! z+NEW0WkN5>-?srcz2B>6cCnJaW$s6RQ{YB9{1E>Q0aMg|+)&!e`bwjdG8=!RZbB3d zWw#bD6Lt!c1*mc-NkD+aHtjWQdgk-Ps`jtSi-74WOU&^Z{l&Jkq@yVPV++xTN9>&X z;9;HOm`;uyA?6}-Z{|fdy!vMJ1KFLL)JsFpChN{DB6UgpsQ6_9ftX3RQ1ZhD9NF=( zc>-nXHK-DJxqMa;%*72;sar#Jt|)!m>9&$x*qrX%X%j)!a|%+VJYZ1eihu1v^rrN) z*HR1O*#hjiCmw zyP{1t3=|I?}x= z7g2$GW4SPebQb7!ow&`4TS&JVuzP{^3QtU7Vh|gWmn9Rn3G{ zh0o=BX1|gzZF={+X+rhe3JaX0ShNix_HNan zTO_l zWoiBDO-4_QNP>lIWapXBL8UZ>(~p7sa*ac0f}>5D8QJpF(5wMF@y3^B08;yby`Ff()XhMRZCj@P`Xl{$|d`IhqWTr=tYnit*R{5 zT<8l=+$ z`2{tqv)5jQOiE3VL&nX=WAYMEXy$LCW`aPrZA0Bds9|f_gJMt5Yc@{piA}=YT;P>3O^6@e3E$7!od&Knh|nRqWF!O-fZyW3N==^2`l1oU$2JN z(33G+`%3nHZoLz-A#;iE`z)15ajMnNrZX_*T8dg#(t3|7sr<*&q1Qn2iN9o4>I#oR#ZLZQjx;Nl!#>AaAH=ZlL?hDm&QSK(U*XY+*2iWqw#pvcF)i@H zSq0j#wLHjQ@C9z5fuhK4GEp!tpwcllE`3?Qut1>CL?!QsZOtuwXEL*yU<8 zdE9o;TtL*0WMS>p5JF|;>^*f;>R!{x{E!864=K+H{ gS#<4Uo^JHUc#hQd3%R% + mutate( + Ekonomi_grupp = case_when( + `Får_ekonomin_att_gå_ihop` %in% c("Lätt", "Ganska lätt") ~ "Med lätthet", + `Får_ekonomin_att_gå_ihop` %in% c("Med viss svårighet", "Med stor svårighet") ~ "Med svårighet", + TRUE ~ NA_character_ + ) + ) +``` + +```{r} + +ggplot(share) + + ggtitle("Hushållsinkomst efter hur lätt ekonomin går att få ihop") + + aes(x = Ekonomi_grupp, y = Hushållsinkomst) + + geom_boxplot(colour = "#00CC00") + + scale_y_continuous(labels = scales::comma) + + theme_minimal() +```