0

私のデータ「plot.dat」の一部は

   log2Exp 日
  9.932601 0.0
  4.433500 0.2
  6.623776 1.0
  6.451625 2.0
  8.318600 3.0
  8.170948 5.0
  9.567554 7.0
  9.876911 14.0
 10.680653 28.0

ほとんどのデータは、x 軸の前半 (<= 14 日目) にあります。単純にグラフをプロットする場合

qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line"))

複数のパネルと行があることを考えると、0.2 日目と 1 日目に重大な早期変化を確認するのは非常に困難です。0 日目から 14 日目まで通常どおりグラフをプロットし、x 軸を分割してから、28 日目が外れ値であるかのように 28 日目をプロットする方法はありますか。

4

1 に答える 1

2

1 つの解決策は、以下を使用して対数スケールを使用することscale_x_log10()です。

library(ggplot2)
p1 <-qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line")) + scale_x_log10()

library(gridExtra)

p2 <- qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line"))

grid.arrange(p1,p2)

ここに画像の説明を入力

于 2013-05-28T21:00:15.100 に答える