ドキュメントに永続的なggplot2カラーテーマを設定する

3
alex 2020-02-09 03:28.

マークダウンドキュメントに組み込まれているすべてのプロットのカラーパレットを定義したいと思います。本質的に、これはデフォルトの選択を上書きします。

いくつかの非常に古い答えがあります- @ dwwによって提案されたこことここのリンクに感謝します-古いバージョンを解決します(特に、最新のリリースがいくつかのメジャーリリースを先に、現在3.2.xであるときに0.8.2でソリューションを呼び出します)。

テーマを設定して、最も近いユースケースを説明します。汎用テーマの場合、これは簡単です。+ theme_minimal()すべてのプロットに追加するのではなく、代わりにすべてのプロットにわたって持続するテーマを設定できます。

library(ggplot2) 

d <- diamonds[sample(1:nrow(diamonds), 1000), ]

## without theming 
ggplot(d, aes(x=carat, y=price, color=clarity)) + 
  geom_point() + 
  theme_minimal() # must set this theme call for every plot 

## setting theme 
theme_set(theme_minimal())

ggplot(d, aes(x=carat, y=price, color=clarity)) + 
  geom_point()    # plot in theme, for all subsequent plots

全体にカラーパレットを設定するために存在する同様の変更はありますか?たとえば、呼び出しのテーマベースの置換、

ggplot(d, aes(x=carat, y=price, color=clarity)) + 
  geom_point() + 
  scale_color_brewer(palette='Set2') # requesting a global option to set this for all plots

リンクソリューションの古いバージョンに依存しない代わりに、全体でggplot機能をオーバーロード。それは危険なようです。

ggplot <- function(...) ggplot2::ggplot(...) + scale_color_brewer(palette = 'Set1')

1 answers

4
Allan Cameron 2020-02-09 19:58.

ggplot_global内部で使用されているggplot2がエクスポートされていない環境があります。ggplot関数のバインディングを一時的にロック解除し、環境のコンテンツをリストとして返すように変更することで、その構造を確認できます。あなたはこれをこのように非破壊的に行うことができます:

library(ggplot2)

get_ggplot_global <- function()
{
  unlockBinding("theme_set", as.environment("package:ggplot2"))
  backup <- body(theme_set)[[5]]
  body(theme_set)[[5]] <- substitute(return(as.list(ggplot_global)))
  global_list <- theme_set(theme_bw())
  body(theme_set)[[5]] <- backup
  lockBinding("theme_set", as.environment("package:ggplot2"))
  return(global_list)
}

global_list <- get_ggplot_global()
names(global_list)
#> [1] "date_origin"    "element_tree"   "base_to_ggplot" "all_aesthetics"
#> [5] "theme_current"  "time_origin"   

これを調べると、ggplotグローバル環境にと呼ばれるオブジェクトがあることがわかります。そのtheme_currentため、さまざまな線、テキスト、軸要素を色を含めてグローバルに設定できます。

質問の配色について話しているときは、スケールオブジェクトで定義されている色を参照しています。これはggplot_global環境の一部ではなく、デフォルトのスケールオブジェクトがないため、変更することはできません。新しいを作成すると、ggplot()「スケール」用の空のスロットがあります。

したがって、いくつかのオプションがあります。

  1. ggplotを my_ggplot <- function(...) ggplot2::ggplot(...) + scale_color_brewer()
  2. 上記の関数でggplotを上書きします(@Philの提案による)
  3. 標準のggplot構文で追加する独自のテーマオブジェクトを作成します

最良の方法は、ggplotのラッパーを作成することです。ただし、3番目のオプションも非常にクリーンで慣用的です。あなたはこのようにそれを達成することができます:

set_scale <- function(...)
{
  if(!exists("doc_env", where = globalenv()))
    assign("doc_env", new.env(parent = globalenv()), envir = globalenv())
  doc_env$scale <- (ggplot() + eval(substitute(...)))$scales$scales[[1]] } my_scale <- function() if(exists("doc_env", where = globalenv())) return(doc_env$scale)

これを使用するには、(たとえば)

set_scale(scale_color_brewer(palette = "Set2"))

ドキュメントの開始時。これ+ my_scale()で、プロットごとに実行できます。

d <- diamonds[sample(1:nrow(diamonds), 1000), ]

ggplot(d, aes(x=carat, y=price, color=clarity)) +
  geom_point() +
  my_scale()

Related questions

MORE COOL STUFF

ケイト・ブランシェットは3日間一緒に夫と一緒に寝て、25年経ってもまだ夫と結婚しています

ケイト・ブランシェットは3日間一緒に夫と一緒に寝て、25年経ってもまだ夫と結婚しています

ケイト・ブランシェットは、夫に会ったとき、典型的な交際のアドバイスに逆らいました。

マイケルシーンが非営利の俳優である理由

マイケルシーンが非営利の俳優である理由

マイケルシーンは非営利の俳優ですが、それは正確にはどういう意味ですか?

ホールマークスターのコリンエッグレスフィールドがRomaDramaLiveでスリル満点のファンと出会う![エクスクルーシブ]

ホールマークスターのコリンエッグレスフィールドがRomaDramaLiveでスリル満点のファンと出会う![エクスクルーシブ]

特徴的なスターのコリン・エッグレスフィールドは、RomaDrama Liveでのスリル満点のファンとの出会いについて料理しました!加えて、大会での彼のINSPIREプログラム。

「たどりつけば」をオンラインでストリーミングできない理由

「たどりつけば」をオンラインでストリーミングできない理由

ノーザンエクスポージャーが90年代の最も人気のある番組の1つになった理由を確認するには、Blu-rayまたはDVDプレーヤーをほこりで払う必要があります。

バイオニック読書はあなたをより速く読むことができますか?

バイオニック読書はあなたをより速く読むことができますか?

BionicReadingアプリの人気が爆発的に高まっています。しかし、それは本当にあなたを速読術にすることができますか?

ドミニカのボイリング湖:アクセスは簡単ではありませんが、ハイキングする価値があります

ドミニカのボイリング湖:アクセスは簡単ではありませんが、ハイキングする価値があります

ドミニカのボイリング湖は、世界で2番目に大きいボイリング湖です。そこにたどり着くまでのトレッキングは大変で長いですが、努力する価値は十分にあります。

私たちの水をきれいに保つのを助けるためにあなたの髪を寄付してください

私たちの水をきれいに保つのを助けるためにあなたの髪を寄付してください

サロンからのヘアトリミングや個人的な寄付は、油流出を吸収して環境を保護するのに役立つマットとして再利用できます。

ホワイトハウスの最も記憶に残る結婚式を見てください

ホワイトハウスの最も記憶に残る結婚式を見てください

過去200年以上の間にホワイトハウスで結婚したのはほんの数人です。彼らは誰でしたか、そしてそこで結婚式を獲得するために何が必要ですか?

ジェイ・ブルースはどうやら子供を妊娠することによってメッツから離れて取引されていることを祝った

ジェイ・ブルースはどうやら子供を妊娠することによってメッツから離れて取引されていることを祝った

あなたが一時的に会っていなかったとき。シーズン11-1を開始したチームであるニューヨークメッツは、日曜日の午後にフィラデルフィアで行われた最後の11試合の9試合目を失いました。

スティーブンキングのアウトサイダーはトランプ時代のそれです

スティーブンキングのアウトサイダーはトランプ時代のそれです

スティーブン・キングのアウトサイダーは、多くの点で先祖返りの小説であり、80年代の全盛期から引き裂かれたように見える生き物の特徴であり、おそらくセル以来の彼の最もパルプのような本ですが、今日の恐怖の中で間違いなく設立された作品です。表面上は、形を変えるペニーワイズのような子供たちの殺人者を中心としており、その最も暗い脅威は、封じ込められず、神経質に平凡なものよりも幻想的で打ち負かされません。

スティーブンユニバースは、強烈な内部エピソードのペアで、それ自体のバックストーリーをさりげなく粉砕します

スティーブンユニバースは、強烈な内部エピソードのペアで、それ自体のバックストーリーをさりげなく粉砕します

スティーブンユニバースビーチシティのエピソードが実行されるたびに、いくつかのクライマックスイベントが発生し、スティーブンユニバースのより広い神話に対する理解の一部が失われます。これはあなたが期待していたことですか?今日のエピソードは両方とも、容赦なくゆっくりと、シーズンの終盤の主要な部分を設定する決定的な結論に向かって進みます。そして、ロナウドは、静かな納屋が倒れているのを発見した夜中にスティーブンを捕まえるためにやって来ます。月に。

ディズニーワールドの旅行のヒントを教えてください

ディズニーワールドの旅行のヒントを教えてください

「光が触れるものはすべて私たちの王国です。」今週のHackYour Cityでは、1つのテーマパークを取り上げます。

Zendaya Wishes Boyfriend Tom Holland Happy Birthday with Cuddly Photo: He 'Makes Me the Happiest'

Zendaya Wishes Boyfriend Tom Holland Happy Birthday with Cuddly Photo: He 'Makes Me the Happiest'

Zendaya shared a sweet photo in honor of boyfriend Tom Holland's 26th birthday Wednesday

小さな女性:脳卒中を患った後に病院から解放されたアトランタのジューシーな赤ちゃん:「まだ癒し」

小さな女性:脳卒中を患った後に病院から解放されたアトランタのジューシーな赤ちゃん:「まだ癒し」

シーレン「Ms.JuicyBaby」ピアソンは、先月脳卒中で入院した後、「もう一度たくさんのことをする方法を学ばなければならない」ため、言語療法を受けていることを明らかにしました。

エマストーンは彼女のクリフサイドマリブビーチハウスを420万ドルでリストアップしています—中を見てください!

エマストーンは彼女のクリフサイドマリブビーチハウスを420万ドルでリストアップしています—中を見てください!

オスカー受賞者の世紀半ばの家には、3つのベッドルーム、2つのバス、オーシャンフロントの景色があります。

ジーニー・メイ・ジェンキンスは、母乳育児の経験の中で、彼女は「本当に、本当に落ち込んでいる」と言います

ジーニー・メイ・ジェンキンスは、母乳育児の経験の中で、彼女は「本当に、本当に落ち込んでいる」と言います

ジーニー・メイ・ジェンキンスは、生後4か月の娘、モナコに母乳育児をしていると語った。

Come diventare Web Developer?

Come diventare Web Developer?

Vorresti diventare web developer e non sai da dove cominciare?! Qui troverai tutte le risposte necessarie, anche io non sapevo che strada intraprendere ma voglio aiutarti a non commettere i miei stessi errori. Cosa imparare? Le competenza essenziali per qualsiasi web developer sono almeno tre.

投資ノート:Bioscout AU$300万シード

投資ノート:Bioscout AU$300万シード

Bioscoutは、農家を運転席に置くという使命を負っています。Artesian(GrainInnovate)やUniseedと並んで、最新のシードラウンドでチームを支援できることをうれしく思います。問題真菌症による重大な作物の損失は、農民にとって試練であることが証明されています。

リトルマーケットリサーチ1| 2022年のクイックグリンプス遠隔医療市場

リトルマーケットリサーチ1| 2022年のクイックグリンプス遠隔医療市場

遠隔医療は、パンデミック後の時代では新しいものではなく、時代遅れの分野でもありません。しかし、業界を詳しく見ると、需要と供給の強力な持続可能性と、米国で絶え間ない革命となる強力な潜在的成長曲線を示しています。

スタートアップ資金調達環境:タイのスタートアップエコシステムの次は何ですか?

スタートアップ資金調達環境:タイのスタートアップエコシステムの次は何ですか?

2021年は、世界的なベンチャーキャピタル(VC)の資金調達にとって記録的な年でした。DealStreetAsiaによると、東南アジアも例外ではなく、この地域では年間で記録的な25の新しいユニコーンが採掘されました。

Language