안녕하세요!

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

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

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

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

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

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

코드를 살펴볼까요.

엑셀로 그릴 수 있는 것이 아니면 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)

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

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

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

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

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