아래처럼 한번 해보실래요 ? 필요한 패키지 불러오기 library(dplyr) library(ggplot2) HardCRUT5 데이터와 NASA GISS 데이터를 CSV 파일에서 읽어오기 hadcrut5 <- read.csv("path/to/hadcrut5.csv") nasa_giss <- read.csv("path/to/nasa_giss.csv") 데이터를 정제하고 연도별 평균을 계산 # 연도별 평균 계산 hadcrut5_avg <- hadcrut5 %>% group_by(Year) %>% summarise(Global_Mean_Temperature = mean(Temperature)) nasa_giss_avg <- nasa_giss %>% group_by(Year) %>% summarise(Global_Mean_Temperature = mean(Temperature)) 데이터 결합 combined_data <- bind_rows(hadcrut5_avg, nasa_giss_avg) 시각화 ggplot(combined_data, aes(x = Year, y = Global_Mean_Temperature)) + geom_line() + labs(title = "Global Mean Temperature Over Time", x = "Year", y = "Global Mean Temperature (Celsius)")