r - ggplot2 からグリッド、背景色、および上と右の境界線を削除します

Question

ggplot2 を使用して、すぐ下のプロットを再現したいと思います。近づけることはできますが、上と右の境界線を取り除くことはできません。以下に、Stackoverflow 上または Stackoverflow 経由で見つかったいくつかの提案を含め、ggplot2 を使用したいくつかの試みを紹介します。残念ながら、私はこれらの提案を機能させることができませんでした。

誰かが以下のコードスニペットの 1 つまたは複数を修正できることを願っています。

ご提案ありがとうございます。

# desired plot
a <- seq(1,20)
b <- a^0.25
plot(a,b, bty = "l")


library(ggplot2)

df <- as.data.frame(cbind(a,b))

# 1. ggplot2 default
ggplot(df, aes(x = a, y = b)) + geom_point()

# 2. removes background color
ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black'))

# 3. also removes gridlines
none <- theme_blank()
ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black')) + opts(panel.grid.major = none, panel.grid.minor = none)

# 4. does not remove top and right border
ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black')) + opts(panel.grid.major = none, panel.grid.minor = none) + opts(panel.border = none)

# 5. does not remove top and right border
ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black')) + opts(panel.grid.major = none, panel.grid.minor = none) + opts(axis.line = theme_segment())

# 6. removes x and y axis in addition to top and right border
# http://stackoverflow.com/questions/5458409/remove-top-and-right-border-from-ggplot2
ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black')) + opts(panel.grid.major = none, panel.grid.minor = none) + opts(panel.background=theme_rect(colour=NA))

# 7. returns error when attempting to remove top and right border
# https://groups.google.com/group/ggplot2/browse_thread/thread/f998d113638bf251
#
# Error in el(...) : could not find function "polylineGrob"
#
theme_L_border <- function(colour = "black", size = 1, linetype = 1) { 
   structure( 
     function(x = 0, y = 0, width = 1, height = 1, ...) { 
       polylineGrob( 
         x=c(x+width, x, x), y=c(y,y,y+height), ..., default.units = "npc", 
         gp=gpar(lwd=size, col=colour, lty=linetype), 
       ) 
     }, 
     class = "theme", 
     type = "box", 
     call = match.call() 
   )
}

ggplot(df, aes(x = a, y = b)) + geom_point() + opts(panel.background = theme_rect(fill='white', colour='black')) + opts(panel.grid.major = none, panel.grid.minor = none) + opts( panel.border = theme_L_border())

score 162 · Accepted Answer

編集この答えは無視してください。より良い答えがあります。コメントを参照してください。使用する+ theme_classic()

編集

これはより良いバージョンです。元の投稿で以下に言及されているバグは残っています（私は思います）。ただし、軸線はパネルの下に描画されます。したがって、との両方を削除panel.borderしpanel.backgroundて、軸線を確認します。

library(ggplot2)
a <- seq(1,20)
b <- a^0.25
df <- data.frame(a,b)

ggplot(df, aes(x = a, y = b)) + geom_point() +
  theme_bw() +
  theme(axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank())

ここに画像の説明を入力してください

元の投稿 これは近づいています。axis.liney軸で動作しないというバグがあり（ここを参照）、まだ修正されていないようです。したがって、パネルの境界線を削除した後、を使用してy軸を個別に描画する必要がありますgeom_vline。

library(ggplot2)
library(grid)

a <- seq(1,20)
b <- a^0.25
df <- data.frame(a,b)

p = ggplot(df, aes(x = a, y = b)) + geom_point() +
   scale_y_continuous(expand = c(0,0)) +
   scale_x_continuous(expand = c(0,0)) +
   theme_bw() +
   opts(axis.line = theme_segment(colour = "black"),
        panel.grid.major = theme_blank(),
        panel.grid.minor = theme_blank(),
        panel.border = theme_blank()) +
    geom_vline(xintercept = 0)
p

極値はクリップされますが、 baptisteによるコードを使用してクリップを元に戻すことができます。

gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)

ここに画像の説明を入力してください

またはlimits、パネルの境界を移動するために使用します。

ggplot(df, aes(x = a, y = b)) + geom_point() +
   xlim(0,22) +  ylim(.95, 2.1) +
   scale_x_continuous(expand = c(0,0), limits = c(0,22)) +
   scale_y_continuous(expand = c(0,0), limits = c(.95, 2.2)) +   
   theme_bw() +
   opts(axis.line = theme_segment(colour = "black"),
        panel.grid.major = theme_blank(),
        panel.grid.minor = theme_blank(),
        panel.border = theme_blank()) +
    geom_vline(xintercept = 0)

score 80 · Accepted Answer

ggplot (0.9.2+) の最近の更新により、テーマの構文がオーバーホールされました。最も注目すべきは、opts()が廃止され、に置き換えられたことtheme()です。 Sandy の回答は (12 年 1 月現在) 引き続きグラフを生成しますが、R は一連の警告をスローします。

現在の ggplot 構文を反映した更新されたコードは次のとおりです。

library(ggplot2)
a <- seq(1,20)
b <- a^0.25
df <- as.data.frame(cbind(a,b))

#base ggplot object
p <- ggplot(df, aes(x = a, y = b))

p +
  #plots the points
  geom_point() +

  #theme with white background
  theme_bw() +

  #eliminates background, gridlines, and chart border
  theme(
    plot.background = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank()
  ) +

  #draws x and y axis line
  theme(axis.line = element_line(color = 'black'))

生成:

プロット出力

score 26 · Accepted Answer

代替手段は、 cowplotパッケージにtheme_classic()付属のテーマです(パッケージで自動的に読み込まれます)。に似ていますが、いくつかの微妙な違いがあります。最も重要なことは、デフォルトのラベルサイズが大きいため、結果の図をさらに変更することなく出版物で使用できることです (特に、の代わりにで保存する場合)。また、背景が白ではなく透明になっているので、イラストレーターで図形を編集したい場合などに便利です。最後に、私の意見では、ファセットプロットの方が見栄えがします。theme_cowplot()theme_classic()save_plot()ggsave()

例：

library(cowplot)
a <- seq(1,20)
b <- a^0.25
df <- as.data.frame(cbind(a,b))

p <- ggplot(df, aes(x = a, y = b)) + geom_point()
save_plot('plot.png', p) # alternative to ggsave, with default settings that work well with the theme

plot.pngこのコードによって生成されるファイルは次のようになります。ここに画像の説明を入力

免責事項: 私はパッケージの作成者です。

score 8 · Accepted Answer

アンドリューの回答に従いましたが、私のバージョンの ggplot (v2.1.0) のバグにより、https://stackoverflow.com/a/35833548 に従い、x 軸と y 軸を別々に設定する必要もありました。

それ以外の

theme(axis.line = element_line(color = 'black'))

使った

theme(axis.line.x = element_line(color="black", size = 2),
    axis.line.y = element_line(color="black", size = 2))

score 2 · Accepted Answer

これは非常に簡単な答えです

yourPlot +
  theme(
    panel.border = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(), 
    axis.line = element_line(colour = "black")
    )

それはとても簡単です。出典：この記事の最後

score 2 · Accepted Answer

上記のアンドリューの答えからの単純化は、ハーフボーダーを生成するためのこの重要なテーマにつながります。

theme (panel.border = element_blank(),
       axis.line    = element_line(color='black'))

r - ggplot2 からグリッド、背景色、および上と右の境界線を削除します

7 に答える 7

Related

Reference