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

どうやら、人々はMathematicaとLaTeX でxkcdスタイルのグラフを作成する方法を見つけました。Rでできますか？Ggplot2-ers？geom_xkcdおよび/またはtheme_xkcd？ 私はベースグラフィックで推測します、par（xkcd = TRUE）？どうすればいいのですか？ ggplot2の最初のスタブとして（そして以下でよりエレガントに示します）、ジッター引数を線に追加すると、手描きの見栄えが良くなります。そう - ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) + geom_line(position="jitter", color="red", size=2) + theme_bw() これは良い例になりますが、Axesとフォントは複雑になります。ただし、フォントは解決されたように見えます（下記）。軸を空にして手動で描画するための軸を処理する唯一の方法はありますか？よりエレガントな解決策はありますか？特に、ggplot2では、新しいテーマシステムのelement_lineを変更して、ジッターのような引数を取ることができますか？

697 r  ggplot2  plot 

X軸がラベルの長い因子であるプロットがあります。おそらく理想的な視覚化ではありませんが、今のところは、これらのラベルを回転させて垂直にしたいと思います。以下のコードでこの部分を理解しましたが、ご覧のとおり、ラベルが完全に表示されていません。 data(diamonds) diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut)) q <- qplot(cut,carat,data=diamonds,geom="boxplot") q + opts(axis.text.x=theme_text(angle=-90))

670 r  ggplot2  labels 

y1とy2を同じプロットにプロットします。 x <- seq(-2, 2, 0.05) y1 <- pnorm(x) y2 <- pnorm(x, 1, 1) plot(x, y1, type = "l", col = "red") plot(x, y2, type = "l", col = "green") しかし、私がこのようにすると、それらは一緒に同じプロットにプロットされません。 Matlab hold onではこれを行うことができますが、誰でもRでこれを行う方法を知っていますか？

571 r  plot  ggplot2  r-faq 

私は以下をプロットします： library(ggplot2) carrots <- data.frame(length = rnorm(500000, 10000, 10000)) cukes <- data.frame(length = rnorm(50000, 10000, 20000)) carrots$veg <- 'carrot' cukes$veg <- 'cuke' vegLengths <- rbind(carrots, cukes) ggplot(vegLengths, aes(length, fill = veg)) + geom_density(alpha = 0.2) ここで、範囲全体ではなく、x=-5000からまでの領域のみをプロットしたいとします5000。 どうやってやるの？

358 r  plot  ggplot2 

ggplot2パッケージを使用して2つのプロットを並べて配置したいと思います。つまり、と同等ですpar(mfrow=c(1,2))。 たとえば、次の2つのプロットを同じ縮尺で並べて表示したいとします。 x <- rnorm(100) eps <- rnorm(100,0,.2) qplot(x,3*x+eps) qplot(x,2*x+eps) それらを同じdata.frameに配置する必要がありますか？ qplot(displ, hwy, data=mpg, facets = . ~ year) + geom_smooth()

338 r  visualization  ggplot2 

非常に新しい質問ですが、次のようなデータがあると言います。 test_data <- data.frame( var0 = 100 + c(0, cumsum(runif(49, -20, 20))), var1 = 150 + c(0, cumsum(runif(49, -10, 10))), date = seq(as.Date("2002-01-01"), by="1 month", length.out=100) ) を使用して、x軸に時系列var0とvar1同じグラフの両方をプロットするにはどうすればよいですか？色違いで作るとボーナスポイント、伝説を含めることができます！dateggplot2var0var1 これは非常にシンプルだと思いますが、そこに例を見つけることはできません。

305 r  ggplot2  graph  time-series  r-faq 

Rを使用して単純な線形回帰をプロットします。その画像をPNGまたはJPEGとして保存したいのですが、自動的に実行できますか？（コード経由） 2つの異なる質問があります。1つ目は、既にプロットをモニターで見ているので、そのまま保存したいです。2つ目は、まだプロットを生成していませんが、プロットコードを実行するときに直接ディスクに保存したいです。

304 r  plot  ggplot2  lattice  r-faq 

最大の棒がy軸に最も近く、最短の棒が最も遠い棒グラフを作成しようとしています。これは私が持っているテーブルのようなものです Name Position 1 James Goalkeeper 2 Frank Goalkeeper 3 Jean Defense 4 Steve Defense 5 John Defense 6 Tim Striker だからポジションに応じてプレイヤー数を示す棒グラフを作ろうとしています p <- ggplot(theTable, aes(x = Position)) + geom_bar(binwidth = 1) しかし、グラフは最初にゴールキーパーバー、次にディフェンス、最後にストライカーバーを示しています。ディフェンスバーがy軸に最も近く、ゴールキーパーが1つ、最後にストライカーが1つになるように、グラフを並べ替えます。ありがとう

301 r  ggplot2  r-faq 

以下のようなプロットがあります。次のコマンドで作成されました： library(ggplot2) df <- data.frame(cond = factor(rep(c("A", "B"), each = 200)), rating = c(rnorm(200), rnorm(200, mean=.8))) ggplot(df, aes(x=rating, fill=cond)) + geom_density(alpha = .3) + xlab("NEW RATING TITLE") + ylab("NEW DENSITY TITLE") 次に、凡例のタイトルをcondからNEW LEGEND TITLEに変更します。 だから私がやったことは、次の行を追加して上記のコードの最後を追加することです： +labs(colour="NEW LEGEND TITLE") しかし、それは機能しません。それを行う正しい方法は何ですか？

300 r  plot  ggplot2 

こんにちは、この単純なコード（および今朝のすべてのスクリプト）は、ggplot2で中心から外れたタイトルを付け始めました Ubuntu version: 16.04 R studio version: Version 0.99.896 R version: 3.3.2 GGPLOT2 version: 2.2.0 今朝、上記を新たにインストールしてこれを修正しようとしました... dat <- data.frame( time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")), total_bill = c(14.89, 17.23) ) # Add title, narrower bars, fill color, and change axis labels ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) + geom_bar(colour="black", fill="#DD8888", width=.8, stat="identity") + guides(fill=FALSE) …

256 r  ggplot2 

1つのレイヤーの凡例を維持し（滑らか）、もう1つのレイヤーの凡例（ポイント）を削除しようとしています。とで伝説を止めようguides(colour = FALSE)としましたgeom_point(aes(color = vs), show.legend = FALSE)。 編集：この質問とその回答は人気があるため、再現可能な例が順番に表示されます： library(ggplot2) ggplot(data = mtcars, aes(x = mpg, y = disp, group = gear)) + geom_point(aes(color = vs)) + geom_point(aes(shape = factor(cyl))) + geom_line(aes(linetype = factor(gear))) + geom_smooth(aes(fill = factor(gear), color = gear)) + theme_bw()

250 r  ggplot2  legend 

カウントを示す棒グラフとレートを示す折れ線グラフをすべて1つのグラフにプロットする必要があります。両方を別々に行うことができますが、それらを一緒にすると、最初のレイヤー（つまりgeom_bar）のスケールが2番目のレイヤーと重なりますレイヤー（つまり、geom_line）。 の軸をgeom_line右に移動できますか？

231 r  ggplot2  r-faq 

次のggplotコマンドを使用しました。 ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10) + scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2)) + facet_grid(hospital ~ .) + theme(panel.background = theme_blank()) 生産する 私は変更したいファセット（のような短いものに、しかし、ラベルをHosp 1、Hosp 2彼らは今、長すぎると見た目が窮屈ので、グラフの高さを高くする（...）オプションではありません、それはにあまりにも多くのスペースを取るだろうドキュメント）。facet_gridのヘルプページを見ましたが、その方法がわかりません。

231 r  ggplot2  symbols  facet  plotmath 

に回帰直線方程式とR ^ 2を追加する方法を知りたいggplotです。私のコードは： library(ggplot2) df <- data.frame(x = c(1:100)) df$y <- 2 + 3 * df$x + rnorm(100, sd = 40) p <- ggplot(data = df, aes(x = x, y = y)) + geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) + geom_point() p どんな助けも高く評価されます。

228 r  ggplot2  linear-regression  r-faq 

複数の凡例を含むggplotがあるとします。 mov <- subset(movies, length != "") (p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) + geom_point() ) 次のように、すべての凡例の表示をオフにできます。 (p1 <- p0 + theme(legend.position = "none")) （この質問に従って）を渡すshow_guide = FALSEと、形状の凡例がオフになります。geom_point (p2 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) + geom_point(show_guide = FALSE) ) しかし、代わりに色の凡例をオフにしたい場合はどうなりますか？show_guideどの凡例にその動作を適用するかを伝える方法がないようです。そしてshow_guide、スケールや美学についての議論はありません。 (p3 …

221 r  ggplot2