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

방명록

account_circle
vpn_key
web

security

mode_edit
  • 댓글 수정/삭제 안녕하세용
    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 신고

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

  • 댓글 수정/삭제 김덕준
    2020.04.25 10:09

    R 네트워크 관련 질문입니다.
    kuduz.tistory.com/1087 와 연관있는 내용입니다.
    만약 fg <- as_tbl_graph(feat) 여기서 공백이 있는 행렬은 공백을 유지한채로 as_tbl_graph 함수를 사용 할 수 없나요?
    예를 들면
    종류 이름 가격
    [1,] 과자 / 새우깡 / 1600원
    [2,] 아이스크림/ / 2000원
    [3,] 과자 / 감자깡/ 1200원
    [4,] 아이스크림 / 투게더 /6000원
    과자 -> 새우깡 ->1600원
    ↘ 감자깡 -> 1200원

    아이스크림 -> 2000원
    ↘ 투게더 -> 6000원
    이런식으로 한 행의 1열 2열 3열을 연결하고 1열을 기준으로 연결하는 네트워크(그래프)를 만들고싶습니다.

    as_tbl_graph 함수를 사용했는데 공백이 있어서 적용이 안됩니다. 공백을 살리고 하는 방법이 궁금합니다.

    조언 부탁드립니다.

    • 수정/삭제 kini
      2020.04.29 23:30 신고

      데이터를 따로 따로 만드시면 되지 않나요?
      [1,] 과자 → 새우깡
      [2,] 새우깡 → 1600원
      이렇게 말입니다.

  • 댓글 수정/삭제 곽재석
    2020.04.18 16:39

    http://sachaepskamp.com/qgraph/examples
    에서 차례대로 안내된 코드를 따라 시각화를 하고 있던 중
    # Significance graph (circular):
    qgraph(Q, graph = "sig", layout = "circular")
    title("Big 5 correlations (p-values)", line = 2.5)
    부분을 입력해서 시각화를 했더니,
    Error in qgraph(Q, graph = "sig", layout = "circular") :
    'graph' argument must be one of 'default', 'cor', 'pcor', 'glasso', 'ggmModSelect', or 'factorial'
    라고 뜨기만 합니다. 오류를 어떻게 하면 해결 할 수 있을까요?

    • 수정/삭제 kini
      2020.04.19 07:41 신고

      Q <- qgraph(cor(big5), minimum = 0.25, cut = 0.4, vsize = 1.5, groups = big5groups,
      legend = TRUE, borders = FALSE)

      이것 자체는 만드신 거죠?

    • 수정/삭제 곽재석
      2020.04.19 16:44

      네!
      Q <- qgraph(cor(big5), minimum = 0.25, cut = 0.4, vsize = 1.5, groups = big5groups,
      legend = TRUE, borders = FALSE)
      하고 난 다음 차례차례 설명된 코드와 그림들을 보며 실행하던 차에

      # Significance graph (circular):
      qgraph(Q, graph = "sig", layout = "circular")
      title("Big 5 correlations (p-values)", line = 2.5)
      를 했더니 저렇게 Error가 떴습니다.

    • 수정/삭제 kini
      2020.04.20 05:45 신고

      https://cran.seoul.go.kr/web/packages/qgraph/qgraph.pdf

      qgraph 패키지를 버전업하면서 graph 항목에 'sig'라는 속성을 더 이상 쓸 수 없게 되어서 생긴 일입니다.

      qgraph(Q, mode='sig', layout = "circular")

      이렇게 쳐보시면 똑같지는 않아도 비슷한 모양이 나올 겁니다.