한국통계분석

한국통계분석
로그인 회원가입
  • 상담하기
  • 상담하기

    고객을 가장 먼저 생각하는 기업, 고객이 먼저 자랑하는 기업이 되겠습니다.

    상담하기

    고객을 가장 먼저 생각하는 기업, 고객이 먼저 자랑하는 기업이 되겠습니다.

    게시글 작성 후 빠른 상담을 위해 문자 주시기 바랍니다!  (HP : 010-5030-9758)


    1. 설문지

    2. 가설(연구문제)와 연구하고 싶은 내용(연구부문) 서술 

    3. 변수명(요인 및 하위요인)   ※요인 : 자기관리,  ※하위요인 : 몸 관리, 대인관리, 훈련관리, 정신관리

    4. 선행논문 

    5. 데이터(있을경우... 의학부문 필수)

    깨끗한 그래프 그려주세요!

    페이지 정보

    profile_image
    작성자 최고관리♡ (118.♡.223.244)
    댓글 댓글 0건   조회Hit 152회   작성일Date 24-08-05 17:05

    본문

    안녕하세요!

    그래프 그려 달라고들 많이 하십니다.

    논문에 제출해야 하니 "매우 보기 좋게요"

    그리는 거야 직업이니 그릴수는 있지만 "매우 보기 좋게" 그릴려니 문제가 있습니다.

    샘플로 제시 해 드리겠습니다.

    시간에 따른 풍속의 시계열 그래프 입니다.

    매우 간단한 그래프 내용입니다.

    코드를 살펴볼까요.

    엑셀로 그릴 수 있는 것이 아니면 R 혹은 Physon으로 그려야합니다.

    그나마 간단한 R로 보여드리겠습니다.

    //////////////////////////////////// R 코드 시작

    # 필요한 패키지 로드
    library(data.table)
    library(ggplot2)
    library(lubridate)

    # .txt 파일 경로
    txt_file_path <- "C:/Rtest/rawdata_sum.txt"

    # .txt 파일을 읽어옵니다
    data <- fread(txt_file_path, header = TRUE, sep = "\t", quote = "", encoding = "UTF-8")

    # 인용 부호와 공백 제거
    data <- data[, lapply(.SD, function(x) gsub('["]', '', x))]
    data <- data[, lapply(.SD, function(x) gsub('[ ]', '', x))]

    # 열 이름 정리
    names(data) <- c("timestamp", "windspeed")

    # 'timestamp' 열을 문자열로 변환 후 날짜 형식으로 변환
    data$timestamp <- ymd_hms(data$timestamp, tz = "UTC")

    # 'windspeed' 열을 숫자 형식으로 변환
    data$windspeed <- as.numeric(gsub("[^0-9.]", "", data$windspeed))

    # 결측값 제거
    data <- na.omit(data)

    # 데이터 확인
    print(head(data))
    print(str(data))

    # 시계열 도표 생성
    time_series_plot <- ggplot(data, aes(x = timestamp, y = windspeed)) +
      geom_line(color = "blue") +
      labs(title = "1-Minute SW Monsoon(May-Oct)
    ",
          x = "Timestamp",
          y = "Windspeed (m/s)") +
      theme_minimal() +
      theme(panel.background = element_rect(fill = "white", color = "black"),
            plot.background = element_rect(fill = "white", color = "black"))

    # 시계열 도표 저장
    ggsave("time_series_plot.png", plot = time_series_plot)

    # 시계열 도표 출력
    print(time_series_plot)

    //////////////////////////////////////// 코드 끝

    코드 작성은 쉽지가 않습니다. 

    매우 간단한 그래프가 이 정도니 어려운 그래프는 머리가 아픕니다.

    데이터 분석 보다 분량도 많습니다.

    두서 없는 글 읽어 주셔서 감사합니다.

    댓글목록

    등록된 댓글이 없습니다.