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

방명록

account_circle
vpn_key
web

security

mode_edit
  • 댓글 수정/삭제
    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")

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

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

    안녕하세요. R로 네트워크 분석 하는 걸 계속 공부중인 대학원생입니다. R관련 포스팅을 보고 문의와 함께 자문을 구해봅니다... 혹시 다음 포스팅 내용으로 https://psycnet.apa.org/doiLanding?doi=10.1037%2Fadb0000379 에서 쓰인 네트워크 분석에 대해 다뤄주실 수 있는지 문의드립니다.... 관련 패키지는 뭘 썼는지 알겠으나 분석 과정을 어떻게 따라가야 할지 막막합니다...

  • 댓글 수정/삭제 문건웅
    2020.04.11 10:34

    안녕하세요? web-r.org를 운영하고 있는 문건웅 입니다. r관련 포스팅 잘 읽고 갑니다. 많은 도움이 되었습니다. 감사합니다.