From e7ad947acaa8ac569631363824ddaf4f52b55a7c Mon Sep 17 00:00:00 2001 From: DH K Date: Thu, 19 Feb 2026 15:50:45 +0900 Subject: [PATCH] 2.19 study --- .RData | Bin 367 -> 3696 bytes .Rhistory | 183 ++++++++++++++++++ .../F3FE0F57/pcs/windowlayoutstate.pper | 2 +- .Rproj.user/F3FE0F57/sources/per/t/FEFD8679 | 12 +- .../F3FE0F57/sources/per/t/FEFD8679-contents | 118 +++++++++++ .Rproj.user/F3FE0F57/sources/prop/0CB164D0 | 4 +- 기초 명령어 실습.R | 118 +++++++++++ 7 files changed, 428 insertions(+), 9 deletions(-) diff --git a/.RData b/.RData index d72b7fb23f827c2c2003ca5ce091c3415f254791..dd66ef7e97fcbaf3c3d4b4173a001ea4d1315f8a 100644 GIT binary patch literal 3696 zcmV-$4v+C4iwFP!000001Lc^sZn~*K?rzh3ZaCeU?>qm zKoJWdT|rc&saQ}tHsGmnL_iQhK@KWKF5RerVgZi1vq@r!ym$28^S_0|14y0#!VW(|xR<}T zFOd`uI`Dv(tN^MKm9N_0bY=}EL=u7{K#PA_i~5$ypWX;z&}Z=t_Ku*de;x!(O(KG+ zp-&9z+-f-Q9e%_RwFm;i54IJ|0rZs4fHr4)=Iag~F)rEYs8w-g9*=h!DG&=LvUpu* zy(a2EnYFnIYMM^2bFLRzU(k`2muX@qf2#v0lb$}R*r%^JCfpyV%FRzYttjZu!M~?u zHi!FG_~{3hFQh`cu5o6(Intdg@O-q-c%!M5B<8sKR7q{KxUs>|y3||;>@nXDe2BMN z7L>iUOID_GIFD%3{f#E1#Lg$`J1i86t-0+i>{hc|U*zHZ_@VaXlmb(gfk|P@n@7d@ zG6@{DW3?rMS-O6odQ{8fyv;uf>uh5>i|<82_QX10RAgIUY*CEB72gHUt4u?v^`ZB0 z1m4{16Vb)zMY(#=dInYcY#0%e-`-tMW!e4#S|UuPu$pk7>h**^P&x3_f^QR z-N*CnnF(<CK9Atbfie;GO5y^tf%5z^E>(?Gbs!92MR!$7fgD-`y>?B=ex|L(Qm9 zlPs#NRv7s{Fn9O#bXx04uCo`DHyYnczV0SQB zm@IcL$GSnP&$dr=3Ownka6h%*Lc5THww#x=%}Wh{7JNdx3O3lTkH4noB<1O|AbY&! zw!mVq(Tfvv+ntrHy+$9ecL;NgnaV^e;&qSMNc74R*4Ix|lZQ9B``g!g&9aCk5iJSj ze?LsQ_p;)Un70hSMS^Bc%8ae!wb2F0Enj3%sB=KsmlFT9U{&9A%7yo-o@)XhWJCrY z+_&~ArbRJ9@XC{Zo(}aUtF)O9YL5g|lPpbpQt)>=gUp}L={cTH7&q`7+*d0!BJ^KJ zS(=!dc}ceBMY~SD-WT%LCz5&OkLGpwLZ6&54rO)TreGb8Bdz$ct&(S0?)Nu7YCc%0 zzah2rl-gl^&x=?)z6hR$?d`2g2V~2P!tTnhazah1yz1D7NR z@VYVmDdu#JeqL~VQncK49Rstau&_?cGmUAN=F-hxo8LG%%$9a_VBkUQy&eUR%?mii z6BcMxT%q_ZMIrx#dgb(RsuRbSmN1V{$)c9?vK!wZ+iZp;T^8%yWA2d>a#Tv4rqtu5 z`o<)6Sx-5J&dnW*)(R2abt-eiwyWglZI7K_LOMsP?*~YqO%m-umtPp3CrdU>`;nAf z5)Ch3)?H|rxKccKum6~azXvPja_KPY>_ReCX5G&v~JaofG>^{e5gV?*{ZQfrmn!tLx2$?uz~{ zaW!N2jsj1On`yfm674LVc}X8kO_M5%3g&qmo)Fr)Mz0}#w2GQ0?>akl1T|MJ4RoKF z3l}MkZ?Rbaw(K%%68YgKgJ8BAhaPTH@TG~M?03^WxKKmo;nvL!9WOgNiu{PZ2_8=am0dASCpCLrfQ0$I&?7|7=y;-Ny6{L{hEnPtSp&`9Rb8Ct^n(`? zkJdJ4{4OXtm_N*({h*^Zta8{+%vx3(&!lvn{S$YERw3rT9M_zD^0pa`w7cf*MNT(`c}w6g2Svnwly2$bRFjeI)EB#8DqfSCU0~h7HY$qN zPgpRX;xw-{I$LTzxGt@(ZQ}yJLf>w3(_Ri|p&|jn?v%13X6<_&a;snA->ofdLJFuW zVWTLQ69eC1m~?N1zYyE5p^%p&-(6#;cc@w6$pvvrrnJuBl6kCF_F|f~snoR`$ZXA9 z%s#s?hhy05r`N|^v_`oHaKB4F{fsMs2WLZ3iN6(GrOe=G5Lu6kgNBZRE-z>cZZlEgip21uQjjZ=kdBs?Qf*0a>`R}N ziZdpUHwt5ng!96q1{6ZO15)L&2syoR;oy@Ii_={;kuweRt2?u0OExAnBt_jWwNAmX zRzJ(!BULV&JtWOuV|9?5r$G4Blq|2HVWCvKz}36LJCU+V=_7FlhqJP}2r*lNW6!&3 z3qS2F>D;j2l)Sf1L-lEuTUlpQyU1_bG5nFgZNrpS6+U>Nr2Kvx`eqr6*=5W{{y)aF zC9G=f+BI?zvG(@C4lxf~_YZ^&uH(F~Z=@78nUyutptzq%j6GmqXIm}0>J^)NtD0j; z(b(gUh1YAXCq|n`Ab-9XhmA=BY(nSWbmciIR%>7BcSQ>h2Y3xnJB8ag;G$yo`Ltoj z-JU(U;fZ;0q4UED&eERp*LwvT1T8sLZS>>%#>?MIo7wm8S>)@pvpyU5tMFFj?zG9A z>wlb?@RmD}AtY#aUc2Vzys2c0n~TwL^I}cJfIm~Gl%Ehsd5&p@;w^WTc31Ly5*v6Au9own#f|xs(4Crc!hf0ZC1yd%5tpLdBp{W z!RPCJcVBwkP{ENCaKpn!vopzSvxH9R?KEM@j`x@FdQke1m}mRsS`<22L^ax0?PR3$ zwCk8XOXF&hZ4tartg^>--^o5!>es#9!_L%>KgfDOTgLnvre|mD^YufBRmFOqOZ6fK z6G!FF;atZC$JZim+(`^QBhR*GA7K+$r-j`TF5h}x6#0%92XXsUJSzLs#JW`S%j)3` zrJS{F)2AwCiaK7T$;@pc>iuT?tNnWknT<SohArzp|Y+rYRcJ^o@mSlAS8)dJH2W{enWMDd%$bi&)O3zg1xeDm%PG z2yj9xMAP{?4@N|4er}FswZE+R^k){B{*G}AjV2NNR+^tLl@vjx44Mrj3ow{9>2 zf}XlFeK8pP4tA6J9`3 zXRQ{^TITPq{mx3n7poX%)q?8)+6do!g7(*QP`zh)oS&K_5^I2tpXcugpH)5d_*h9-4JLv|WWg6G`_xqnU5zifaU`fcW4y^j^0=D>GP%{$eRV zg(?LoKVpY5{}0%)p5cU%nrN->OwgiDL9ZW~X>Hg6*#I02J$SzqpP&Lne^q_bodWS~ z8}5yuKy>$n;+I3mi-Zg0f=v1oIrsAN6ReA*KtEb+BBFE{bXokpgCiJy_gj;-eym{r z%H;p1L`E`duo1(-G@$JLbGvmJ?Y6|4I9V{pGw%QbL=UbTXa{dhlUDImX+o2_E4x^f z9&H3BW0@21-$}+GPTd@uJuE9Mma*agrNJcT?2V*nL#}Q84rAD7~Ib6eLQYe(g6%GdBjs6#poE~#nRz7z0 z|FdJ4rXSS*-bu@R-unOXV6|v@ojiT#XqyBv-eRBgyVW!)L6fv~8Oze7JXQYFKieLM+*vx~pb*}pxlsO72-?(PTu@I3@^0k~=X;3@fNOA-JGLe%mMHewY(1Rx54 zKl(KQF@QJ#4ko_b`O^$a47)i%CLXI8KFMF0AL8f0ARn|2=5R?januEQ-B%38~{>N$P!=$um;!w zYyoxvEZ|pwJzx{S0pJM00h|ENfX#rv0bBsC05}l413Um*09yf`051R@;0^Er_|nef O(?0+y+gkA-8vp>@9!@6! literal 367 zcmV-#0g(P5iwFP!0000017*@@PXaL*!12P}IZ$!$1#U&uJKPf#aN%MoZV@q(knn=U z@KyBF_{og_;*scGli#)1JWta;Z9JR~xY8~mgd$YUDHM&N&{D~$e^m(8$&W**qMqJa zUgX;>XM%O2(!NBsSt6JCw)~kQd; N`v*{*?)o1C002eCu3rEE diff --git a/.Rhistory b/.Rhistory index 83a03b4..32916c7 100644 --- a/.Rhistory +++ b/.Rhistory @@ -53,3 +53,186 @@ x1 = c(1,'love',TRUE,2+3i) x1 install.packages('ggplot2') install.packages('dplyr') +v1 = c(27,35,47,41) +mode(v1) +is.numeric(v1) +is.na(v1) +table(is.na(v1)) +xx1 <- c(1:100) +v2 = c(27,35,47,NA,55) +mode(v2) +is.numeric(v2) +is.na(v2) +table(is.na(v1)) +table(is.na(v1)) +table(is.na(v1)) +table(is.na(v2)) +length(vw) +length(v1) +length(v2) +names(v1) +names(v1) = c('kim','lee','park','choi') +names(v1) +v1 +v1[0] +## 기초 명령어 실습 ## +1+1 +1:10 +dd = c(1:10) +## c() -> 같은 종류의 요소(numeric, int, float등)만 있을때 +## list() -> 다양한 종류의 요소가 들어올때 +dd[-10] +## 기본유형 ## +x1 = 3 # numeric +x2 = "Love is choice" # character +x3 = FALSE # logical +x4 = 3-2i # complex +x5 = '123' # character +x6 = 'false' # character +x7 = 'FLASE' # character +str(x1) +### 문자 - 정수 - 논리 +### 결측값은 95%까지 +### 정규분포는 30번이상한것으로 해야한다 +xx1 <- c(1:100) +xx1 +is.na(xx1) +table(is.na(xx1)) +x1 = c(1,'love',TRUE,2+3i) +x1 +v1 = c(27,35,47,41) +mode(v1) +is.numeric(v1) +is.na(v1) +table(is.na(v1)) +v2 = c(27,35,47,NA,55) +mode(v2) +is.numeric(v2) +is.na(v2) +table(is.na(v2)) +length(v1) +length(v2) +names(v1) +names(v1) = c('kim','lee','park','choi') +names(v1) +## indexing ## 대괄호 == [ ] => 추출해라 +v1 +v1[1] +v1[1:3] +v1[-1] +v1[:-1] +v1[1:-1] +v1[-1] +v1[1:3] +v1[-4] +v1[1,3] +v1[3:-1] +v1[c(2,4)] +v1[-4] +v1 = 1:3 +v2 = 4:6 +v3 = v1+v2 +v3 = v1+v2 +v1 = 1:3 +v2 = 1:6 +v3 = v1+v2 +v3 +gender = c('m','f','f','m','f','f') +gender_facotr = factor(gender) +levels(gender_facotr) +gender = c('m','f','f','m','f','f') +gender_facotr = factor(gender) +levels(gender_facotr) +gender_factor2 = factor(gender, levels = c('m','f'), labels = c('남자','여자')) +gender_factor2 +install.packages(c("cluster", "lattice", "viridisLite")) +gender_factor3 +gender_factor3 = factor(gender,ordered = TRUE) +gender_factor3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = m2 cbind(v1,v2) +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = m2 cbind(v1,v2) +1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = cbind(v1,v2) +m2 +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = cbind(v1,v2) +m1 +m2 +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = cbind(v1,v2) +v1 +v2 +m1 +m2 +m1[2,1] +m1[2,1] == 8 +m1 +[2,1] == 8 +m1 +m1 +m1[2,1] == 8 +m1[2,1] = 8 +m1 +m1[,3] +is.na(m1) +table(is.na(m1)) +m1[1,1] = NA +m1 +table(is.na(m1)) +m1[2,3] = NA +table(is.na(m1)) +str(m1) +m3 = matrix(1:4, nrow = 2,ncol = 2) +m3 +m4 = matrix(1:4, nrow = 2,ncol = 2,byrow = TRUE) +m4 +m3 +m4 +m4[2,1] = NA +a1 = array(1:10, dim=10) +a2 = array(1:10, dim=c(2, 5)) +a3 = array(1:10, dim=c(3, 3, 4)) +a1 +a2 +a3 +a3[,,2][3,3] +a3[,,2][3,3] = 100 +a3 +id = 1:5 +age = c(29, 32, 47, 35, 23) +gender = c('f','m','m','f','f') +height = c(163, 177, 172, 157, 169) +DF1 = data.frame(id, age, gender, height) +DF2 = data.frame(id, age, gender, height, stringsAsFactors=FALSE) +DF1 +DF2 +View(DF1) +str(DF1) +DF3 = data.frame(id, age, gender, height, stringsAsFactors=TRUE) +DF3 +View(DF2) +View(DF3) +str(DF2) +str(DF3) +DF4 = DF3[-1] +DF4 +View(DF4) +str(DF4) +install.packages('psych') +library(psych) +describe(DF4) diff --git a/.Rproj.user/F3FE0F57/pcs/windowlayoutstate.pper b/.Rproj.user/F3FE0F57/pcs/windowlayoutstate.pper index fd90725..cf41a19 100644 --- a/.Rproj.user/F3FE0F57/pcs/windowlayoutstate.pper +++ b/.Rproj.user/F3FE0F57/pcs/windowlayoutstate.pper @@ -1,6 +1,6 @@ { "left": { - "splitterpos": 285, + "splitterpos": 433, "topwindowstate": "NORMAL", "panelheight": 1013, "windowheight": 1051 diff --git a/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679 b/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679 index c603e47..d563766 100644 --- a/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679 +++ b/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679 @@ -3,25 +3,25 @@ "path": "~/R project/r_study/기초 명령어 실습.R", "project_path": "기초 명령어 실습.R", "type": "r_source", - "hash": "3966952176", + "hash": "3000786226", "contents": "", "dirty": false, "created": 1769651679182.0, "source_on_save": false, - "relative_order": 2, + "relative_order": 1, "properties": { "tempName": "Untitled1", "source_window_id": "", "Source": "Source", - "cursorPosition": "15,35", - "scrollLine": "0" + "cursorPosition": "154,0", + "scrollLine": "141" }, "folds": "", - "lastKnownWriteTime": 1770187041, + "lastKnownWriteTime": 1771481370, "encoding": "UTF-8", "collab_server": "", "source_window": "", - "last_content_update": 1770187041612, + "last_content_update": 1771481370916, "read_only": false, "read_only_alternatives": [] } \ No newline at end of file diff --git a/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679-contents b/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679-contents index e65d89e..54ac90c 100644 --- a/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679-contents +++ b/.Rproj.user/F3FE0F57/sources/per/t/FEFD8679-contents @@ -34,3 +34,121 @@ table(is.na(xx1)) x1 = c(1,'love',TRUE,2+3i) x1 + +v1 = c(27,35,47,41) +mode(v1) +is.numeric(v1) +is.na(v1) +table(is.na(v1)) + +v2 = c(27,35,47,NA,55) +mode(v2) +is.numeric(v2) +is.na(v2) +table(is.na(v2)) + +length(v1) +length(v2) + +names(v1) +names(v1) = c('kim','lee','park','choi') + +names(v1) + +## Indexing ## 대괄호 == [ ] => 추출해라 + +v1 +v1[1] +v1[1:3] +v1[-4] +v1[c(2,4)] + +v1 = 1:3 +v2 = 4:6 +v3 = v1+v2 # can add list + +v1 = 1:3 +v2 = 1:6 +v3 = v1+v2 # reusable add +v3 + +### 데이터거래사 + +## Factor, ordered Factor (등급을 정할 수 있는) + +gender = c('m','f','f','m','f','f') +gender_factor = factor(gender) + +levels(gender_factor) + +gender_factor2 = factor(gender, levels = c('m','f'), labels = c('남자','여자')) +gender_factor2 + +gender_factor3 = factor(gender,ordered = TRUE) +gender_factor3 + + +## Matrix ## +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = cbind(v1,v2) +v1 +v2 +m1 +m2 + +m1[2,1] == 8 +m1[2,1] = 8 +m1[,3] + +is.na(m1) +table(is.na(m1)) + +m1[1,1] = NA +m1[2,3] = NA + +table(is.na(m1)) +str(m1) + +m3 = matrix(1:4, nrow = 2, ncol = 2) +m4 = matrix(1:4, nrow = 2, ncol = 2, byrow = TRUE) +m3 +m4[2,1] = NA + + +## array ## +a1 = array(1:10, dim=10) +a2 = array(1:10, dim=c(2, 5)) +a3 = array(1:10, dim=c(3, 3, 4)) + +a1 +a2 +a3[,,2][3,3] = 100 +a3 + +## DataFrame ## +id = 1:5 +age = c(29, 32, 47, 35, 23) +gender = c('f','m','m','f','f') +height = c(163, 177, 172, 157, 169) +DF1 = data.frame(id, age, gender, height) +DF2 = data.frame(id, age, gender, height, stringsAsFactors=FALSE) +DF3 = data.frame(id, age, gender, height, stringsAsFactors=TRUE) +DF1 +DF2 +DF3 + +View(DF3) +str(DF3) + +DF4 = DF3[-1] +DF4 + +View(DF4) +str(DF4) + +## 기술통계량 ## +library('psych') + +describe(DF4) diff --git a/.Rproj.user/F3FE0F57/sources/prop/0CB164D0 b/.Rproj.user/F3FE0F57/sources/prop/0CB164D0 index 75bff43..927e71d 100644 --- a/.Rproj.user/F3FE0F57/sources/prop/0CB164D0 +++ b/.Rproj.user/F3FE0F57/sources/prop/0CB164D0 @@ -2,6 +2,6 @@ "tempName": "Untitled1", "source_window_id": "", "Source": "Source", - "cursorPosition": "15,35", - "scrollLine": "0" + "cursorPosition": "154,0", + "scrollLine": "141" } \ No newline at end of file diff --git a/기초 명령어 실습.R b/기초 명령어 실습.R index e65d89e..54ac90c 100644 --- a/기초 명령어 실습.R +++ b/기초 명령어 실습.R @@ -34,3 +34,121 @@ table(is.na(xx1)) x1 = c(1,'love',TRUE,2+3i) x1 + +v1 = c(27,35,47,41) +mode(v1) +is.numeric(v1) +is.na(v1) +table(is.na(v1)) + +v2 = c(27,35,47,NA,55) +mode(v2) +is.numeric(v2) +is.na(v2) +table(is.na(v2)) + +length(v1) +length(v2) + +names(v1) +names(v1) = c('kim','lee','park','choi') + +names(v1) + +## Indexing ## 대괄호 == [ ] => 추출해라 + +v1 +v1[1] +v1[1:3] +v1[-4] +v1[c(2,4)] + +v1 = 1:3 +v2 = 4:6 +v3 = v1+v2 # can add list + +v1 = 1:3 +v2 = 1:6 +v3 = v1+v2 # reusable add +v3 + +### 데이터거래사 + +## Factor, ordered Factor (등급을 정할 수 있는) + +gender = c('m','f','f','m','f','f') +gender_factor = factor(gender) + +levels(gender_factor) + +gender_factor2 = factor(gender, levels = c('m','f'), labels = c('남자','여자')) +gender_factor2 + +gender_factor3 = factor(gender,ordered = TRUE) +gender_factor3 + + +## Matrix ## +v1 = 1:3 +v2 = 4:6 +m1 = rbind(v1,v2) +m2 = cbind(v1,v2) +v1 +v2 +m1 +m2 + +m1[2,1] == 8 +m1[2,1] = 8 +m1[,3] + +is.na(m1) +table(is.na(m1)) + +m1[1,1] = NA +m1[2,3] = NA + +table(is.na(m1)) +str(m1) + +m3 = matrix(1:4, nrow = 2, ncol = 2) +m4 = matrix(1:4, nrow = 2, ncol = 2, byrow = TRUE) +m3 +m4[2,1] = NA + + +## array ## +a1 = array(1:10, dim=10) +a2 = array(1:10, dim=c(2, 5)) +a3 = array(1:10, dim=c(3, 3, 4)) + +a1 +a2 +a3[,,2][3,3] = 100 +a3 + +## DataFrame ## +id = 1:5 +age = c(29, 32, 47, 35, 23) +gender = c('f','m','m','f','f') +height = c(163, 177, 172, 157, 169) +DF1 = data.frame(id, age, gender, height) +DF2 = data.frame(id, age, gender, height, stringsAsFactors=FALSE) +DF3 = data.frame(id, age, gender, height, stringsAsFactors=TRUE) +DF1 +DF2 +DF3 + +View(DF3) +str(DF3) + +DF4 = DF3[-1] +DF4 + +View(DF4) +str(DF4) + +## 기술통계량 ## +library('psych') + +describe(DF4)