r - 如何在 ggplot geom_area 中强制执行堆栈排序

Question

使用 geom_area() 时是否可以强制执行堆栈顺序？ ?我不明白为什么 geom_area(position = "stack")在 1605 年左右的堆栈顺序中产生这种奇怪的波动。

数据框中没有缺失值。

library(ggplot2)

counts <- read.csv("https://gist.githubusercontent.com/mdlincoln/d5e1bf64a897ecb84fd6/raw/34c6d484e699e0c4676bb7b765b1b5d4022054af/counts.csv")

ggplot(counts, aes(x = year, y = artists_strict, fill = factor(nationality))) + geom_area()

Answer 1

您需要订购您的数据。在您的数据中，在 1605 年之前找到的每年的第一个值是“佛兰芒语”，从 1606 年开始，第一个值是“荷兰语”。所以，如果我们这样做:

ggplot(counts[order(counts$nationality),], 
       aes(x = year, y = artists_strict, fill = factor(nationality))) + geom_area()

它导致



如果我们使用随机排序，则进一步说明:

set.seed(123)
ggplot(counts[sample(nrow(counts)),], 
       aes(x = year, y = artists_strict, fill = factor(nationality))) + geom_area()