引入在连续X的间隙轴使用ggplot(introducing a gap in continuous

2019-10-17 07:41发布

这是一个有点积聚对我以前的帖子创建缺失值(所有我运行该脚本可以在那里找到)的堆积面积/条形图。 在这篇文章中,然而,林问,如果可能离开在连续x轴的差距? 我有一个时间系列(一个月按一个月)一年多了,但对于一个样本一个月份失踪,我想这个月显示为情节完整的差距。 几乎像与九月的缝隙绘制了1 - 8月为十月至十二月的图形(SEP是丢失的)和一个和合并这些

我想到了尝试的治疗缺少的每月零或NA的唯一的东西,创造了九月面积图表中的休下降或排除,但与x轴范围从1-11个,分别为(见的Dropbox文件夹图) 。

该数据集进出口工作可以在我找到的Dropbox文件夹和它的命名r_class.txt,你还可以看到两个不同的地块(Rplots1和2)。

任何想法真的可以理解!

Answer 1:

绘制系列作为两个单独的数据帧:

#Load libraries
require(ggplot2)
require(reshape)

#Code copied from your linked post:
wa=read.table('wa_class.txt', sep="", header=F, na.string="0")
names(wa)=c("Class","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
wam=melt(wa)
wam$variablen=as.numeric(wam$variable)

#For readability, split the melted data frame into two separate data frames
wam1 <- wam[wam$variablen %in% 1:6,]
wam2 <- wam[wam$variablen %in% 8:12, ]

ggplot() +
  geom_area(data=wam1, aes(x=variablen, y=value, fill=Class)) +
  geom_area(data=wam2, aes(x=variablen, y=value, fill=Class))
  #and add lineranges, etc., accordingly


文章来源: introducing a gap in continuous x axis using ggplot