时间戳

首页 > 解决方案 > R - 叠加条形图

r - R - 叠加条形图

问题描述

我有一个这样的数据框（对不起长代码）

set.seed(23) 
date_list = seq(1:30)
testframe1 = data.frame(Date = date_list)
testframe1$ABC = rnorm(30)

testframe2 = data.frame(Date = date_list)
testframe2$DEF = rnorm(30)

testframe3 = data.frame(Date = date_list)
testframe3$GHI = rnorm(30)

testframe4 = data.frame(Date = date_list)
testframe4$JKL = rnorm(30)

testlist = list(testframe1, testframe2, testframe3, testframe4)
names(testlist) = c("ABC", "DEF", "GHI", "JKL")

library(tidyverse)
testlist = testlist %>% reduce(left_join, by = "Date")

library(reshape2)
testlist <- melt(testlist,id.vars = "Date")

我想创建一个条形图，我尝试了这个，这给了我以下情节：

ggplot(testlist, aes(fill = variable, y = value, x = Date)) + 
  geom_bar(stat="identity")

在此处输入图像描述 但这并不是我真正需要的。我不希望条形加起来，我希望它们叠加。使具有最大值的变量被第二高的变量覆盖，依此类推，直到最小值。

有没有简单的方法来解决这个问题？我只找到堆积条形图的帮助，但这不是我需要的。

标签： rggplot2bar-chart

解决方案

推荐阅读