聰明不如鈍筆
총명불여둔필

방명록

account_circle
vpn_key
web

security

mode_edit
  • 댓글 수정/삭제 고정훈
    2020.08.25 19:57

    R코딩 공부하는 중인데 너무 잘 설명해주셔서 감사해요~!

  • 댓글 수정/삭제
    2020.07.27 18:21

    비밀댓글입니다

    • 수정/삭제 kini
      2020.08.31 21:21 신고

      앗, 이걸 이제야 발견했습니다.
      아래 링크가 도움이 되기를 바랍니다.

      https://www.baseballmusings.com/cgi-bin/LineupAnalysis.py

  • 댓글 수정/삭제 안녕하세용
    2020.07.07 16:08

    dplyr filter 및 data 할당에 대해 공부하다가 궁금한 점이 있어서 문의 드립니다.
    dplyr pakage 사용하여 filter 후에 data 할당에 관한 건데요.
    2017년도 경기수가 144인 팀을 "빙그레"라는 팀으로 고치려고 한다면,
    즉 고치려는 열이 아닌 다른 열을 filter 후 원래 고치려는 열에 data 할당하는 방법이 궁금한데요. 이것도 역시 dplyr 을 사용할 수 있을까요?
    subset을 사용하여 data를 할당하려고 할 때,
    kbo$연도[kbo$연도 == 2017][kbo$경기 == 144] <- "빙그레"
    이와같이 할당시 "number of items to replace is not a multiple of replacement length" 라는 에러가 발생합니다. 할당하려는 열의 수가 맞지 않아서 발생하는것 같은데 제가 알기로 R은 재사용 원칙에 의해서 수가 맞지 않으면 재사용하는걸로 알고 있는데 이런 에러가 발생하는 이유를 혹시 아시면 가르쳐 주시면 감사하겠습니다.
    복잡한 질문 드려서 죄송합니다.

    • 수정/삭제 kini
      2020.07.08 22:11 신고

      아래처럼 써보시면 어떨까요?

      tribble(~ '팀', ~ '연도', ~ '경기수',
      '한화', 2017, 126,
      '한화', 2017, 144,
      '한화', 2018, 144,
      '한화', 2019, 144) %>%
      mutate(팀=ifelse(연도==2017 & 경기수==144, '빙그레', 팀))

  • 댓글 수정/삭제 동백
    2020.06.14 15:20

    감사드립니다. 교수님 강의 보다 훨 쉽게 알려주십니다. 이쪽으로 강의하시면 좋을 것 같아요.. 덕분에 과제 제출했습니다. 그리고 오늘은 편하게 쉬고 있습니다. 거듭 감사드립니다.

  • 댓글 수정/삭제
    2020.06.12 21:03

    비밀댓글입니다

    • 수정/삭제 kini
      2020.06.13 21:23 신고

      group_by(지표연도) %>%
      이 부분을 빼세요
      그리고 모든 시도를 다 표시하고 싶으시면
      filter(지표연도==2009 & 시도 %in% c('서울특별시', '부산광역시','대구광역시','인천광역시',
      '광주광역시','대전광역시','울산광역시','제주특별자치도',
      '경기도', '강원도','충청북도','충청남도','전라북도','전라남도','경상북도','경상남도')) %>%
      이 줄도 필요 없습니다.

  • 댓글 수정/삭제 동백
    2020.06.12 19:02

    고맙습니다. 내일이 마지막 제출일인데 최선을 다해 해보겠습니다. 답변주셔서 감사드립니다. 오늘도 행복한 하루되세요....감사합니다.

  • 댓글 수정/삭제
    2020.06.11 22:24

    비밀댓글입니다

    • 수정/삭제 kini
      2020.06.12 12:11 신고

      아래 코드를 써보시겠어요?

      library(tidyverse)

      antibiotics <- read.csv('항생제사용량_20190924_재등록.csv') %>% as_tibble()

      antibiotics %>%
      filter(지표연도==2013 & 시도=='서울특별시')

      antibiotics %>%
      filter(지표연도==2013 & 시도=='서울특별시') %>%
      group_by(시도) %>%
      summarise(비표준화=mean(비표준화.항생제.사용량),
      표준화=mean(표준화.항생제.사용량))

      antibiotics %>%
      filter(지표연도==2013 & 시도 %in% c('서울특별시', '제주특별자치도')) %>%
      group_by(시도) %>%
      summarise(비표준화=mean(비표준화.항생제.사용량),
      표준화=mean(표준화.항생제.사용량))

  • 댓글 수정/삭제
    2020.06.06 22:24

    비밀댓글입니다

  • 댓글 수정/삭제
    2020.06.03 10:53

    비밀댓글입니다

  • 댓글 수정/삭제
    2020.05.13 18:57

    비밀댓글입니다

    • 수정/삭제 kini
      2020.05.17 20:58 신고

      과제 내용을 조금 더 구체적으로 설명해주실 수 있나요?
      작성 중이신 코드를 보여주시는 게 제일 좋습니다.