我正在處理希思羅機場下載的氣象局資料的天氣資料子集。該資料集不包含缺失值。
使用 ggplot，我想為希思羅機場的最高溫度 (tmax) 創建一個散點圖，將 2018 年的資料與 2019 年的資料進行對比（例如參見下文）。2018 年和 2019 年都有 12 個資料點。
我已經用下面的方法嘗試過這個，但是它不起作用。這似乎是由于索引造成的，因為在不嘗試使用 aes() 函式中的索引時代碼作業正常。
我怎樣才能讓它作業？
2018Index <- which(HeathrowData$Year == 2018)
2019Index <- which(HeathrowData$Year == 2019)
scatter<-ggplot(HeathrowData, aes(tmax[2018Index], tmax[2019Index]))
scatter geom_point()
scatter geom_point(size = 2) labs(x = "2018", y = "2019"))
uj5u.com熱心網友回復：
由于您的資料是長格式的，您需要進行一些資料整理才能將您的年份值放在單獨的列中，也就是您必須將資料重塑為寬：
使用一些隨機的假資料：
library(dplyr)
library(tidyr)
library(ggplot2)
# Example data
set.seed(123)
HeathrowData <- data.frame(
Year = rep(2017:2019, each = 12),
tmax = runif(36)
)
# Select, Filter, Convert to Wide
HeathrowData <- HeathrowData %>%
select(Year, tmax) %>%
filter(Year %in% c(2018, 2019)) %>%
group_by(Year) %>%
mutate(id = row_number()) %>%
ungroup() %>%
pivot_wider(names_from = Year, values_from = tmax, names_prefix = "y")
ggplot(HeathrowData, aes(y2018, y2019))
geom_point(size = 2)
labs(x = "2018", y = "2019")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/371943.html