タグ付けされた質問 「ggplot2」

2つのggplotsがあり、これをと水平方向に揃えますgrid.arrange。私はたくさんのフォーラム投稿を調べてきましたが、私が試したものはすべて、更新されて別の名前が付けられたコマンドのようです。 私のデータは次のようになります。 # Data plot 1 axis1 axis2 group1 -0.212201 0.358867 group2 -0.279756 -0.126194 group3 0.186860 -0.203273 group4 0.417117 -0.002592 group1 -0.212201 0.358867 group2 -0.279756 -0.126194 group3 0.186860 -0.203273 group4 0.186860 -0.203273 # Data plot 2 axis1 axis2 group1 0.211826 -0.306214 group2 -0.072626 0.104988 group3 -0.072626 0.104988 group4 -0.072626 0.104988 …

138 r  ggplot2  legend  gridextra 

以下のサンプルのように、周辺ヒストグラムを持つ散布図を作成する方法はありggplot2ますか？Matlabではそれがscatterhist()関数であり、Rと同等のものも存在します。ただし、ggplot2の場合は見ていません。 私は単一のグラフを作成することから始めましたが、それらを適切に配置する方法がわかりません。 require(ggplot2) x<-rnorm(300) y<-rt(300,df=2) xy<-data.frame(x,y) xhist <- qplot(x, geom="histogram") + scale_x_continuous(limits=c(min(x),max(x))) + opts(axis.text.x = theme_blank(), axis.title.x=theme_blank(), axis.ticks = theme_blank(), aspect.ratio = 5/16, axis.text.y = theme_blank(), axis.title.y=theme_blank(), background.colour="white") yhist <- qplot(y, geom="histogram") + coord_flip() + opts(background.fill = "white", background.color ="black") yhist <- yhist + scale_x_continuous(limits=c(min(x),max(x))) + opts(axis.text.x = theme_blank(), axis.title.x=theme_blank(), …

137 r  ggplot2  histogram  scatter-plot 

離散xスケールのggplotを使用して覆い焼き棒グラフを作成しています。x軸はアルファベット順に配置されていますが、y軸の値で並べられるように再配置する必要があります（つまり、最も高い棒が左側に配置されます）。 並べ替えまたは並べ替えを試みましたが、結果としてX軸は並べ替えられましたが、棒は並べ替えられませんでした。 何が悪いのでしょうか？

137 r  ggplot2  r-faq 

を使用して複数のプロットをプロットしggplot2、を使用してそれらを配置しようとしていますgrid.arrange()。私が持っている正確な問題を説明している誰かを見つけることができたので、リンクの問題の説明から引用しました： 私が使用したggsave()後grid.arrange()、すなわち grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) ggsave("sgcirNIR.jpg") グリッドプロットは保存しませんが、最後の個別のggplotを保存します。grid.arrange()を使用して、ggsave()または同様のものを表示して 、実際にプロットを保存する方法はありますか？古い方法を使用する以外 jpeg("sgcirNIR.jpg") grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) dev.off() 同じリンクは以下の解決策を提供します： require(grid) require(gridExtra) p <- arrangeGrob(qplot(1,1), textGrob("test")) grid.draw(p) # interactive device ggsave("saving.pdf", p) # need to specify what to save explicitly ただし、linkから取得した次のコードでggsave()は、grid.arrange()呼び出しの出力を保存する方法を理解できません。 library(ggplot2) library(gridExtra) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] p1 <- qplot(carat, price, data=dsamp, colour=clarity) p2 <- qplot(carat, price, data=dsamp, colour=clarity, …

137 r  ggplot2  gridextra 

ggplot2ボックスプロットの外れ値を無視するにはどうすればよいですか？私は単にそれらを非表示にしたくない（つまり、outlier.size = 0）のではなく、それらを無視して、y軸が1/3パーセンタイルを示すようにスケーリングするようにします。私の外れ値が原因で、「ボックス」が非常に小さくなり、実際には線が小さくなっています。これに対処するためのテクニックはありますか？ 編集 例は次のとおりです。 y = c(.01, .02, .03, .04, .05, .06, .07, .08, .09, .5, -.6) qplot(1, y, geom="boxplot")

132 r  ggplot2 

私はRとggplotを使用していくつかのデータの散布図を描画していますが、y軸の数値がコンピュータースタイルの指数形式、つまり4e + 05、5e + 05などで出力されることを除いて、すべて問題ありません。これは明らかに許容できないので、50万、40万などとして表示するようにします。適切な指数表記を取得することも可能です。 プロットのコードは次のとおりです。 p <- ggplot(valids, aes(x=Test, y=Values)) + geom_point(position="jitter") + facet_grid(. ~ Facet) + scale_y_continuous(name="Fluorescent intensity/arbitrary units") + scale_x_discrete(name="Test repeat") + stat_summary(fun.ymin=median, fun.ymax=median, fun.y=median, geom="crossbar") どんな助けも大歓迎です。

131 r  ggplot2 

でフォントサイズを大きくする方法はありggplot2ますか？私は、私のようなものを指定する必要があると思うlegend.key.width = unit(2, "line")でtheme機能を、それは伝説のキーではなく、フォントサイズを調整するために使用されます。ありがとう！

128 r  ggplot2 

データリンク： 使用されるデータ 私のコード： ccfsisims <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_ConsIndex.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE) ccfsirsts <- as.data.frame(ccfsisims) ccfsirsts[6:24] <- sapply(ccfsirsts[6:24],as.numeric) ccfsirsts <- droplevels(ccfsirsts) ccfsirsts <- transform(ccfsirsts,sres=factor(sres,levels=unique(sres))) library(ggplot2) #------------------------------------------------------------------------------------------ #### Plot of food security index for Morocco and Turkey by sector #------------------------------------------------------------------------------------------ #_Code_Begin... datamortur <- melt(ccfsirsts[ccfsirsts$region %in% c("TUR","MAR"), ]) # Selecting …

127 r  ggplot2  line-plot 

私はRを初めて使用し、3つのヒストグラムを同じグラフにプロットしようとしています。すべてうまくいきましたが、私の問題は、2つのヒストグラムが重なっているところが見えないことです。 密度プロットを作成すると、完璧に見えます。各曲線は黒い枠線で囲まれており、曲線が重なると色が異なって見えます。 1番目の画像のヒストグラムで同様のことが達成できるかどうか誰かに教えてもらえますか？これは私が使用しているコードです： lowf0 <-read.csv (....) mediumf0 <-read.csv (....) highf0 <-read.csv(....) lowf0$utt<-'low f0' mediumf0$utt<-'medium f0' highf0$utt<-'high f0' histogram<-rbind(lowf0,mediumf0,highf0) ggplot(histogram, aes(f0, fill = utt)) + geom_histogram(alpha = 0.2)

124 r  ggplot2 

このコードによって生成された凡例から文字「a」を削除するにはどうすればよいですか？を削除するgeom_textと、凡例に「a」の文字が表示されません。でも守りたいgeom_text。 ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + geom_point() + geom_text(aes(label = Species))

124 r  ggplot2  aesthetics 

ggplot2グラフィックスをRから透明な背景のPNGファイルに出力する必要があります。基本的なRグラフィックスではすべて問題ありませんが、ggplot2では透明度がありません。 d <- rnorm(100) #generating random data #this returns transparent png png('tr_tst1.png',width=300,height=300,units="px",bg = "transparent") boxplot(d) dev.off() df <- data.frame(y=d,x=1) p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) p <- p + opts( panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank() panel.grid.minor = theme_blank(), panel.grid.major = theme_blank() ) #returns white …

123 r  graphics  transparency  ggplot2 

ドキュメントとStackOverflowを調べて何時間も費やしましたが、問題が解決するような解決策はないようです。使用するggplotと、データフレームにあるのに、凡例に正しいテキストが表示されません。私が試してみましたscale_colour_manual、scale_fill_manualのために異なる値でlabels=などc("T999", "T888")", "cols"。 これが私のコードです： T999 <- runif(10, 100, 200) T888 <- runif(10, 200, 300) TY <- runif(10, 20, 30) df <- data.frame(T999, T888, TY) ggplot(data = df, aes(x=T999, y=TY, pointtype="T999")) + geom_point(size = 15, colour = "darkblue") + geom_point(data = df, aes(x=T888, y=TY), colour = 'red', size = 10 ) …

120 r  text  ggplot2  label 

ggplot2の凡例項目間の間隔を変更する方法はありますか？私は現在持っています legend.position ="top" 水平方向の凡例が自動的に作成されます。しかし、アイテムの間隔は非常に接近しているので、どうすればそれらをより遠くに離すのかと思います。

120 r  ggplot2  legend 

ggplotに回帰直線を追加しようとしています。最初はアブラインで試しましたが、うまくいきませんでした。それから私はこれを試しました... data = data.frame(x.plot=rep(seq(1,5),10),y.plot=rnorm(50)) ggplot(data,aes(x.plot,y.plot))+stat_summary(fun.data=mean_cl_normal) + geom_smooth(method='lm',formula=data$y.plot~data$x.plot) しかし、それも機能していません。

120 r  ggplot2  regression  linear-regression 

このグラフのxラベルとyラベルを変更するにはどうすればよいですか？ library(Sleuth2) library(ggplot2) discharge<-ex1221new$Discharge area<-ex1221new$Area nitrogen<-ex1221new$NO3 p <- ggplot(ex1221new, aes(discharge, area), main="Point") p + geom_point(aes(size= nitrogen)) + scale_area() + opts(title = expression("Weighted Scatterplot of Watershed Area vs. Discharge and Nitrogen Levels (PPM)"), subtitle="n=41")

119 r  label  ggplot2