代码之家 › 专栏 › 技术社区 › Xia.Song

一个GG图中有多个ACF图。

time-series ggplot2 r

Xia.Song · 技术社区 · 7 年前

我用下面的代码在R中绘制了两个acf,如何在ggplot中生成相同的图,我尝试使用geom ou区域,但我不能得到相同的图。

data1 <- seq(1, 3000, 3)
data2 <- seq(1, 1000, 0.5)
acf(data2, plot = T, lag.max = 300,col=2,ylim=c(0,1))
par(new=TRUE)
acf(data1, plot = T, lag.max = 300,col=1,ylim=c(0,1))

1 回复 | 直到 7 年前

PKumar 7 年前

你可以尝试下面的方法,

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")

G面积图

ggplot(data=data[data$variable=="data2",], aes(x = lag, y = value, 
             fill = variable)) + geom_area(position = "dodge") +
  geom_area(data=data[data$variable=="data1",],
           aes(x = lag, y = value, fill=variable), position = "dodge")

带条形图

ggplot(data=data[data$variable=="data2",], aes(x = lag, y = value, 
                                               fill = variable)) + geom_col(position = "dodge") +
  geom_col(data=data[data$variable=="data1",],
            aes(x = lag, y = value, fill=variable), position = "dodge")

下面是两种方法的图表

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

4 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

4 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

4 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

5 月前

JBurns · ggplot2 x轴,其中许多天中的每一天都有许多小时。有没有办法将x轴上的日期跨越当天的小时?

5 月前

Jaken · 使用scale_*_steps进行合并时避免重新缩放

5 月前

a_todd12 · ggplot相关矩阵中的颜色完美相关图块

5 月前

a_todd12 · 修复使用带有ggplot的ifelse颜色填充时的图例

5 月前

Victoria Johnson · 如何删除R ggplot中的重复图例

5 月前

mmoore · 创建具有重叠特征的ggplot2地图并配置图例

5 月前