geom_area多点误差

Question

library(ggplot2)
library(reshape2)
data1 <- seq(1, 300, 3)
data2 <- seq(1, 100, 0.5)
acf1 <- acf(data1, plot = F, lag.max = 25)
acf2 <- acf(data2, plot = F, lag.max = 25)
df<- data.frame(lag = acf1$lag,acf1=acf1$acf,acf2=acf2$acf)
colnames(df)<-c("lag","data1","data2")
data<-melt(df,id="lag")
ggplot(data, aes(x=lag, y=value)) +
geom_area(aes(colour = variable, fill= variable),position="dodge") 

​

​

我想用两种不同的颜色显示这两个Acf值，但我不明白为什么它只显示一种颜色。我该如何解决这个问题？

Answer 1

它实际上在那里，但隐藏在data2块，使用alpha(透明)看到它，我也改变了您的躲闪选项有点像下面。

ggplot(data, aes(x=lag, y=value)) +
  geom_area(aes(colour = variable, fill= variable),position = position_dodge(width = 0.5), alpha = 0.5)

如果您开始更改position_dodge和alpha的宽度，您将以更好的方式看到这些块。

输出

​

​