'KindeR' 카테고리의 글 목록 (2 Page) : kini'n creations

총명불여둔필

검색 결과, 48

R로 깔끔하게 몬티 홀 문제 시뮬레이션 하기(feat. map_df())

미국 TV 게임 쇼 '렛츠 메이크 어 딜(Let's Make a Deal)'에서 유래한 '몬티 홀 문제'라는 퍼즐이 있습니다. 문 세 개 중에 하나를 선택해 문 뒤에 있는 선물을 가져갈 수 있는 퀴즈쇼에 참가한 당신. 맨 위에 있는 그림처럼 문 하나 뒤에만 자동차가 있고 나머지 문 뒤에는 염소가 있다. 사회자는 문 뒤에 무엇이 있는지 미리 알고 있다. 만약 이 참가자가 1번 문을 선택하면 사회자 몬티 홀 씨는 자동차가 없는 (이 그림에서는 2번) 문을 임의로 하나 열어 선택지를 줄여준다. 그리고 나서 1번 대신 3번을 선택하겠냐고 묻는다. 원래 선택했던 문 번호를 유지하는 것과 문 번호를 바꾸는 것 가운데 어느 쪽이 참가자가 자동차를 가져가는 데 유리할까? 사람들은 대부분 번호를 바꾸지 않는 쪽을 선택합..

KindeR |

R에서 e 없이 숫자 표시하기(feat. options)

R를 쓰다 보면 이 그림처럼 숫자가 바꿔서 당황스러울 때가 있습니다. 숫자를 이런 식으로 표현하는 걸 흔히 '과학적 기수법' 또는 '과학적 표기법'이라고 부릅니다. 이 표기법은 기본적으로 모든 숫자를 $m \times 10^n$ 형태로 표시합니다. 중학교 수학 시간에 배운 것처럼 이때 n을 지수(指數)라고 부릅니다. 이 지수는 나타내는 영어 표현이 바로 'exponent'입니다. R 또는 마이크로소프트(MS) 엑셀처럼 숫자를 다루는 컴퓨터 프로그램에서 아주 크거나 작은 숫자를 표시할 때 e(또는 E)가 등장하는 이유입니다. e가 나올 때는 뒤에 나오는 숫자(n)까지 합쳐서 $ \times 10^n$ 이라고 생각하시면 됩니다. 그러니까 위에 있는 숫자는 $ 1 \times 10^5 = 100000$이 되는..

KindeR |

R에서 특정 문자열 포함 여부 깔끔하게 확인하기(feat. str_detect)

이번에도 페이스북 R 스터디 그룹에 올라온 질문입니다. 도와주세요.ㅠㅠ x1, x2, x3의 컬럼을 가진 데이터 프레임에서 x1 컬럼에 'abc'를 포함하고 있으면 x3에 'yes'를 채우고, x1에 컬럼에 'def'를 포함하고 있으면 x3에 'no'를 채워 넣고 싶은데, 어떤 방법이 있을까요? 'abc', 'def'의 글자 위치가 각각 달라서 substr(x, start, stop) 같은 함수를 쓸 수가 없군요. 또 filter나 select 같은 함수는 행을 추출해버리고요. 이 블로그를 꾸준히 읽어오신 분이라면 '최대한 친절하게 쓴 R로 낱말구름, 의미연결망 그리기(feat. tidyverse, KoNLP)' 포스트가 떠오르셨을 겁니다. 이 포스트에서는 문장에 품사를 부착한 다음 str_match()..

KindeR |

ggplot2 그래프 색깔 마음대로 바꾸기(feat. scale_*_manual)

R 조금 더 정확하게는 ggplot2 패키지로 그래프를 그리다 보면 마음에 드는 색깔을 골라서 항목을 칠하고 그 색깔을 계속 유지하고 싶을 때가 있습니다. 예컨대 요일별 데이터를 다룰 일이 있다면 토요일은 파랑, 일요일은 빨강으로 고정하면 직관적으로 이해하는 데 도움을 받을 수 있을 겁니다. 이번 포스트에서는 프로야구 각 팀 대표색으로 그래프를 칠하고 그 색깔을 계속 유지하는 연습을 해보겠습니다. 이 포스트를 통해 이 블로그를 처음 찾은 분께 말씀드리면 프로야구 데이터를 활용해 연습하는 게 이 블로그 전통(?)입니다. 자, 그럼 이제 본격적으로 시작해 보겠습니다. 늘 그렇듯 제일 먼저 할 일은 물론 tidyverse 패키지 (설치하고) 불러오기.#install.packages('tidyverse') li..

KindeR |

R로 (깔끔하게) 데이터 구조를 바꾸는 몇 가지 방법

노동절을 보내는 가장 좋은 방법은 역시 노동 아니겠습니까? 노동절 맞이 야근을 하던 중 (이번에도) 페이스북 R 스터디 그룹에 올라온 질문을 뒤늦게 보게 됐습니다. 안녕하세요. 이제야 R을 처음 접하고 있는 사람입니다. 혹시 R에서 데이터 구조를 이런 그림 형태로 바꿀 수 있는 방법이 있을까요? 이 그림을 보고 와이드 폼 vs 롱 폼을 떠올리신 분이 적지 않으실 겁니다. R에서 이 두 형태 사이를 오갈 때는 기본적으로 tidyr 패키지를 쓰시면 됩니다. 혹시 이런 내용을 처음 접해 보셨다면 '최대한 친절하게 쓴 R로 데이터 깔끔하게 만들기(feat. tidyr)' 포스트가 도움이 될 수도 있습니다. 그런데 질문자께서 요구하시는 건 내용이 조금 다릅니다. 원래 저 와이드 폼을 롱 폼으로 바꾸는 건 데이터를..

KindeR |

R에서 깔끔하게 레고 모자이크 만들기(feat. brickr)

레고만 있으면 못 만드는 게 없습니다. 거꾸로 그래서 무엇이든 레고로 만들고 싶다는 생각을 하는 분들도 적지 않습니다. 예를 들어 자기 사진을 레고로 만든 사람이 있습니다. 자기 사진을 레고로 만들 수 있다는 건 세상 모든 사진을 레고로 바꿀 수 있다는 뜻. 실제로 맨 위 사진에 나오는 '마블 스튜디오 아이언맨 31199'는 제법 인기 있는 레고 상품이기도 합니다. R에도 이 아이언맨 상품처럼 '레고 모자이크'를 만들 수 있도록 도와주는 패키지가 있습니다. 제목을 통해 확인하실 수 있는 것처럼 바로 brickr 패키지입니다. 이번 포스트에서는 brickr 패키지를 활용해 실제로 레고 모자이크를 만드는 작업을 진행해 보겠습니다. 제일 먼저 할 일은 늘 그렇듯 tidyverse 패키지 (설치하고) 불러오기...

KindeR |

R에서 묶은 막대 그래프에 레이블 쓰기(feat. position_dodge)

이건 사실 말보다는 그림으로 설명 드리는 게 백배 낫습니다. 그러니까 그래프를 묶어서 그릴 때 (적어도) 아래 그림처럼 레이블이 나타나게 하고 싶은데 그냥 손가락이 가는 대로 코드를 쓰면 레이블이 아래 그림처럼 레이블이 나오는 현상 말입니다. 이럴 때는 어떻게 해야 각 레이블이 자기 자리를 찾아가도록 만들 수 있을까요? 일단 정답은 제목에 쓴 것처럼 position 속성에 position_dodge 값을 주는 겁니다. 그러니까 geom_text(position=position_dodge(width=1))처럼 쓰시면 됩니다. 정답은 이미 알려드렸으니 이제부터 차근차근 레이블을 벌리는(?) 연습을 해보도록 하겠습니다. 첫 단계는 물론 tidyverse 패키지 불러오기입니다.#install.packages('..

KindeR |

ggplot2 그래프 이어 붙이기(feat. patchwork)

살다 보면 그래프를 여러 개 이어 붙여 그려야 할 때가 있습니다. 이럴 때 제일 먼저 생각하는 방법은 각각 그래프를 그린 다음 어도비 포토샵 같은 그래픽 프로그램으로 이미지를 붙이는 것. 나쁘지 않은 방식이지만 번거로운 것도 사실입니다. 그래서 R 세상에 'patchwork'(패치워크)라는 패키지가 나왔습니다. 이 패키지 하나만 있으면 정말 황당할 만큼 손쉽게 그래프를 붙여 그릴 수 있습니다. 새로운 패키지를 쓸 때 제일 먼저 할 일은 물론 install.packages() 함수로 설치하고 library() 함수로 불러오기.#install.packages('patchwork') library('patchwork') 이어서 원래 이 '최대한 친절하게 쓴 R 시리즈'에서 제일 먼저 하던 작업을 합니다. 네,..

KindeR |

R로 깔끔하게 '생일 역설' 시뮬레이션 하기(feat. crossing)

한겨레 "서울시내 초등학교 신입생이 달랑 18명 '출산의 늪'" Q. 교육통계서비스에 따르면 지난해(2019년) 기준으로 서울 지역 초등학교 학급별 학생 숫자는 평균 25명입니다. 그렇다면 한 반에 생일이 같은 학생이 존재할 확률은 얼마일까요? A. 정답은 56.9%입니다. 예, 정말입니다. 얼핏 생각하면 (올해 같은 윤년을 제외하면) 1년은 365일이라 적어도 (365일 절반인) 183명은 있어야 생일이 같은 사람이 나올 것 같은 느낌이 드는 게 사실. 그런데 실제로는 23명만 모여도 생일이 같은 사람이 있을 확률(50.7%)이 절반을 넘어갑니다. 이렇게 '생일 문제' 그러니까 '사람이 임의로 모였을 때 그 중에 생일이 같은 두 명이 존재할 확률을 구하는 문제'는 직관과 어긋나기 때문에 '생일 역설(p..

KindeR |

R에서 지저분한 데이터 청소하기(feat. janitor)

현직자 인터뷰와 전문가 추산에 따르면 데이터 과학자는 전체 작업 시간 가운데 50~80%를 멋대로 생긴 데이터를 수집하고 준비하는 재미없는 일에 쓴다. ─ 뉴욕타임스 "For Big-Data Scientists, ‘Janitor Work’ Is Key Hurdle to Insight" 맞습니다. 세상에 괜히 '데이터 노가다(土方)'라는 표현이 존재하는 게 아닙니다. 그래서 세상에는 거꾸로 이 노가다를 조금이라도 덜 수고스럽게 만들어주는 도구도 존재합니다. 예컨대 tidyverse 패키지에 들어 있는 tidyr는 데이터를 롱 폼에서 와이드 폼 또는 그 반대로 '깔끔하게' 바꿀 수 있도록 도와줍니다. 그런데 사실 데이터 구조 변경마저도 너무 거창합니다. 실제로 데이터를 하다 보면 아주 사소하지만 번거롭고 귀..

KindeR |

R로 스도쿠 퍼즐을 풀어보자(feat. function(function(x)))

N 포털 사이트에서 우연히 한 출판사에서 올린 ' 77번 문제'를 보게 됐습니다. 위 이미지 왼쪽에 있는 게 바로 그 문제입니다. 오른쪽은 당연히 그 문제 정답. 이번 포스트에서는 왼쪽처럼 스도쿠 퍼즐이 들어왔을 때 오른쪽처럼 해답을 출력하는 R 프로그램을 만들어 보도록 하겠습니다. 모르시는 분은 아니 계시겠지만 스도쿠(數獨)는 기본적으로 가로 9칸, 세로 9칸인 표에 1부터 9까지 숫자를 채워넣는 숫자 퍼즐입니다. 스도쿠는 '숫자는 한 번씩만 쓸 수 있다(數字は獨身に限る)'를 줄인 말. 각 행(Row)과 열(Column) 그리고 각 블록(Block)에 1~9를 한 번씩만 쓸 수 있어서 이런 이름이 붙었습니다. 다들 알고 계실 규칙을 새삼 강조한 건 코딩 과정에서 당연히 이 부분이 기본이기 때문입니다. ..

KindeR |

R로 깔끔하게 머신러닝(랜덤 포레스트) 요리하기(feat. tidymodels)

언제인가부터 머신러닝 또는 기계학습이라는 표현이 유행하기 시작했습니다. 이 블로그와 참 좋은 친구인 위키피디아는 머신러닝을 이렇게 설명합니다. 기계학습(機械學習) 또는 머신러닝(영어: machine learning)은 인공지능의 한 분야로, 컴퓨터가 학습할 수 있도록 하는 알고리즘과 기술을 개발하는 분야를 말한다. 가령, 기계학습을 통해서 수신한 e메일이 스팸인지 아닌지를 구분할 수 있도록 훈련할 수 있다. 기계 학습의 핵심은 표현(representation)과 일반화(generalization)에 있다. 표현이란 데이터의 평가이며, 일반화란 아직 알 수 없는 데이터에 대한 처리이다. 이는 전산 학습 이론 분야이기도 하다. 다양한 기계 학습의 응용이 존재한다. 문자 인식은 이를 이용한 가장 잘 알려진 사..

KindeR |

1
2
3
4

티스토리툴바