最近開始學習ggplots，但我還遠沒有經驗。我這里有一個資料框的負責人來演示資料，我想繪制不同物種在一年中的變化增量。
Category Year Mammals Birds Reptiles Amphibians Fishes Insects Molluscs
3 Endangered (EN) 2019 505 461 565 964 868 571 564
4 Endangered (EN) 2018 482 469 515 903 674 537 546
5 Endangered (EN) 2017 476 461 484 869 676 461 547
6 Endangered (EN) 2016 464 448 421 852 660 408 513
7 Endangered (EN) 2015 481 416 361 810 614 305 503
8 Endangered (EN) 2014 477 419 356 789 587 270 501
Other invertebrates Plants Fungi & protists
3 344 5727 60
4 348 4537 21
5 340 4123 18
6 312 3691 12
7 311 3510 11
8 307 3231 1
所需的產品來自 ggplot，如下所示，每條線代表一個物種（類別有兩個值：瀕危和易危）。我怎樣才能做到這一點？先謝謝了！
uj5u.com熱心網友回復：
您需要將資料集從寬轉換為長。我試圖重現您的問題，所以這是我的代碼：
# Example dataset
df <- data.frame(Category = c("Endangered", "Endangered", "Endangered", "Endangered", "Endangered", "Vulnerable", "Vulnerable", "Vulnerable", "Vulnerable", "Vulnerable"),
Year = c(2019, 2018, 2017, 2016, 2015, 2019, 2018, 2017, 2016, 2015),
Birds = c(123, 430, 550, 666, 444, 111, 272, 363, 466, 787),
Plants = c(123, 450, 550, 666, 444, 211, 222, 353, 466, 707),
Fishes = c(323, 230, 560, 616, 444, 111, 222, 23, 466, 87))
# Transform dataset from wide to longer
df_long <- gather(df, condition, measurement, Birds:Fishes, factor_key=TRUE)
# plot
df_long %>% ggplot(aes(x = Year, y = measurement, color = condition))
geom_line()
facet_wrap(~Category)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/435056.html