1

これは、欠損値を含む積み上げ面/棒グラフを作成する以前の投稿の一種です (実行するスクリプトはすべてそこにあります)。ただし、この投稿では、連続する x 軸にギャップを残すことができるかどうかを尋ねています。1 年にわたる時系列 (月ごと) がありますが、1 つのサンプルでは 1 か月が欠落しており、今月をプロットの完全なギャップとして表示したいと思います。1 月から 8 月 (9 月は欠落) のグラフと 10 月から 12 月のグラフをプロットし、これらを 9 月のギャップとマージするようなものです。

私が試みた唯一のことは、欠落している月をゼロまたは NA として扱い、9 月の面グラフに大幅なドロップを作成するか、それを除外することですが、x 軸はそれぞれ 1 ~ 11 の範囲です (ドロップボックス フォルダーのプロットを参照)。 .

私が取り組んでいるデータ セットは私のドロップボックス フォルダーにあります。名前は r_class.txt で、2 つの異なるプロット (Rplots1 と 2) も見ることができます。

どんなアイデアでも大歓迎です!

4

1 に答える 1

0

シリーズを 2 つの別個のデータ フレームとしてプロットします。

#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
于 2012-10-13T03:05:26.403 に答える