{"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"4.0.5"},"kaggle":{"accelerator":"none","dataSources":[{"sourceId":61145,"databundleVersionId":7047669,"sourceType":"competition"}],"dockerImageVersionId":30618,"isInternetEnabled":true,"language":"r","sourceType":"notebook","isGpuEnabled":false}},"nbformat_minor":4,"nbformat":4,"cells":[{"cell_type":"code","source":"# This R environment comes with many helpful analytics packages installed\n# It is defined by the kaggle/rstats Docker image: https://github.com/kaggle/docker-rstats\n# For example, here's a helpful package to load\n\nlibrary(tidyverse) # metapackage of all tidyverse packages\n\nlist.files(path = \"../input\")\n\n","metadata":{"_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","_execution_state":"idle","execution":{"iopub.status.busy":"2023-12-10T14:00:37.375918Z","iopub.execute_input":"2023-12-10T14:00:37.405158Z","iopub.status.idle":"2023-12-10T14:00:38.153180Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"df_stations<-read.csv(\"/kaggle/input/cool-quiet-city-competition/weather_stations.csv\")\ndf_temp<-read.csv(\"/kaggle/input/cool-quiet-city-competition/weather_air-temperature.csv\")\n","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:00:42.089706Z","iopub.execute_input":"2023-12-10T14:00:42.091237Z","iopub.status.idle":"2023-12-10T14:00:45.259436Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"str(df_stations)","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:00:45.791590Z","iopub.execute_input":"2023-12-10T14:00:45.793257Z","iopub.status.idle":"2023-12-10T14:00:45.813919Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"install.packages(\"leaflet\")\nlibrary(leaflet)","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:00:51.264817Z","iopub.execute_input":"2023-12-10T14:00:51.266432Z","iopub.status.idle":"2023-12-10T14:01:01.739773Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"# Create an interactive map\nmap <- leaflet(data = df_stations) %>%\n  addTiles() %>%\n  addMarkers(lng = ~longitude, lat = ~latitude, popup = ~paste(\"Location:\", name))\n\nmap","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:01:01.741918Z","iopub.execute_input":"2023-12-10T14:01:01.742981Z","iopub.status.idle":"2023-12-10T14:01:01.889124Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"df_long <- df_temp %>% pivot_longer(cols = 2:18, \n               names_to = \"id\",\n               values_to = \"temperature\")","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:01:01.891359Z","iopub.execute_input":"2023-12-10T14:01:01.892446Z","iopub.status.idle":"2023-12-10T14:01:02.988386Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"merged_data <- merge(df_long, df_stations, by = \"id\")","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:01:02.991510Z","iopub.execute_input":"2023-12-10T14:01:02.992924Z","iopub.status.idle":"2023-12-10T14:01:29.927646Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"merged_data$Date<-as.Date(merged_data$X.x)\nhead(merged_data)","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:01:29.931253Z","iopub.execute_input":"2023-12-10T14:01:29.932521Z","iopub.status.idle":"2023-12-10T14:01:34.035241Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"options(repr.plot.width = 14, repr.plot.height = 8)\n\nmerged_data %>% filter(id==\"S24\") %>% ggplot(aes(x = Date, y = temperature)) +\n  geom_line()","metadata":{"execution":{"iopub.status.busy":"2023-12-10T13:42:58.678775Z","iopub.execute_input":"2023-12-10T13:42:58.680675Z","iopub.status.idle":"2023-12-10T13:43:00.074456Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"merged_data_2022 <- filter(merged_data, substr(Date, 1, 4) == \"2022\")","metadata":{"execution":{"iopub.status.busy":"2023-12-10T15:06:01.906348Z","iopub.execute_input":"2023-12-10T15:06:01.908702Z","iopub.status.idle":"2023-12-10T15:06:12.667780Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"#merged_data_2022 <- filter(merged_data, Date == \"2022-12-11\")","metadata":{"execution":{"iopub.status.busy":"2023-12-10T14:13:10.890725Z","iopub.execute_input":"2023-12-10T14:13:10.892108Z","iopub.status.idle":"2023-12-10T14:13:11.008848Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"leaflet_map <- leaflet(merged_data_2022) %>%\n  addTiles() %>%\n  addCircleMarkers(\n    lng = ~longitude,\n    lat = ~latitude,\n    color = ~temperature,\n    popup = ~paste(\"Temperature: \", temperature)\n  )","metadata":{"execution":{"iopub.status.busy":"2023-12-10T15:06:22.801080Z","iopub.execute_input":"2023-12-10T15:06:22.802766Z","iopub.status.idle":"2023-12-10T15:06:24.989587Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"leaflet_map","metadata":{"execution":{"iopub.status.busy":"2023-12-10T15:06:53.647201Z","iopub.execute_input":"2023-12-10T15:06:53.648860Z","iopub.status.idle":"2023-12-10T15:07:06.821700Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"","metadata":{},"execution_count":null,"outputs":[]}]}