|
|
|
|
|
|
|
|
<span class='kw'>if</span> (<span class='no'>has_ggplot2</span>) { |
|
|
<span class='kw'>if</span> (<span class='no'>has_ggplot2</span>) { |
|
|
<span class='fu'><a href='https://rdrr.io/r/base/library.html'>library</a></span>(<span class='no'>ggplot2</span>) |
|
|
<span class='fu'><a href='https://rdrr.io/r/base/library.html'>library</a></span>(<span class='no'>ggplot2</span>) |
|
|
|
|
|
|
|
|
<span class='no'>plot1</span> <span class='kw'><-</span> <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span>(<span class='no'>iris</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span>(<span class='no'>Petal.Length</span>, <span class='no'>Petal.Width</span>) + |
|
|
|
|
|
|
|
|
<span class='no'>plot1</span> <span class='kw'><-</span> <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span>(<span class='no'>mpg</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span>(<span class='no'>cty</span>, <span class='no'>hwy</span>) + |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/geom_point.html'>geom_point</a></span>() + |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/geom_point.html'>geom_point</a></span>() + |
|
|
<span class='fu'>theme_xaringan_base</span>( |
|
|
<span class='fu'>theme_xaringan_base</span>( |
|
|
<span class='kw'>text_color</span> <span class='kw'>=</span> <span class='st'>"#602f6b"</span>, <span class='co'># imperial</span> |
|
|
<span class='kw'>text_color</span> <span class='kw'>=</span> <span class='st'>"#602f6b"</span>, <span class='co'># imperial</span> |
|
|
|
|
|
|
|
|
<span class='kw'>set_ggplot_defaults</span> <span class='kw'>=</span> <span class='fl'>TRUE</span> |
|
|
<span class='kw'>set_ggplot_defaults</span> <span class='kw'>=</span> <span class='fl'>TRUE</span> |
|
|
) + |
|
|
) + |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/labs.html'>labs</a></span>( |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/labs.html'>labs</a></span>( |
|
|
<span class='kw'>title</span> <span class='kw'>=</span> <span class='st'>"Basic Iris Plot"</span>, |
|
|
|
|
|
|
|
|
<span class='kw'>title</span> <span class='kw'>=</span> <span class='st'>"Fuel Efficiency of Various Cars"</span>, |
|
|
<span class='kw'>subtitle</span> <span class='kw'>=</span> <span class='st'>"+ theme_xaringan_base()"</span>, |
|
|
<span class='kw'>subtitle</span> <span class='kw'>=</span> <span class='st'>"+ theme_xaringan_base()"</span>, |
|
|
<span class='kw'>caption</span> <span class='kw'>=</span> <span class='st'>"xaringanthemer"</span> |
|
|
<span class='kw'>caption</span> <span class='kw'>=</span> <span class='st'>"xaringanthemer"</span> |
|
|
) |
|
|
) |
|
|
|
|
|
|
|
|
<span class='fu'><a href='https://rdrr.io/r/base/print.html'>print</a></span>(<span class='no'>plot1</span>) |
|
|
<span class='fu'><a href='https://rdrr.io/r/base/print.html'>print</a></span>(<span class='no'>plot1</span>) |
|
|
|
|
|
|
|
|
<span class='no'>plot2</span> <span class='kw'><-</span> <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span>(<span class='no'>iris</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span>(<span class='no'>Sepal.Width</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/geom_histogram.html'>geom_histogram</a></span>(<span class='kw'>binwidth</span> <span class='kw'>=</span> <span class='fl'>0.1</span>) + |
|
|
|
|
|
|
|
|
<span class='no'>plot2</span> <span class='kw'><-</span> <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span>(<span class='no'>mpg</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span>(<span class='no'>hwy</span>) + |
|
|
|
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/geom_histogram.html'>geom_histogram</a></span>(<span class='kw'>binwidth</span> <span class='kw'>=</span> <span class='fl'>2</span>) + |
|
|
<span class='fu'>theme_xaringan_base</span>( |
|
|
<span class='fu'>theme_xaringan_base</span>( |
|
|
<span class='kw'>text_color</span> <span class='kw'>=</span> <span class='st'>"#a8a9c8"</span>, <span class='co'># light purple</span> |
|
|
<span class='kw'>text_color</span> <span class='kw'>=</span> <span class='st'>"#a8a9c8"</span>, <span class='co'># light purple</span> |
|
|
<span class='kw'>background_color</span> <span class='kw'>=</span> <span class='st'>"#303163"</span>, <span class='co'># deep slate purple</span> |
|
|
<span class='kw'>background_color</span> <span class='kw'>=</span> <span class='st'>"#303163"</span>, <span class='co'># deep slate purple</span> |
|
|
|
|
|
|
|
|
<span class='kw'>set_ggplot_defaults</span> <span class='kw'>=</span> <span class='fl'>TRUE</span> |
|
|
<span class='kw'>set_ggplot_defaults</span> <span class='kw'>=</span> <span class='fl'>TRUE</span> |
|
|
) + |
|
|
) + |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/labs.html'>labs</a></span>( |
|
|
<span class='fu'><a href='https://ggplot2.tidyverse.org/reference/labs.html'>labs</a></span>( |
|
|
<span class='kw'>title</span> <span class='kw'>=</span> <span class='st'>"Basic Iris Plot"</span>, |
|
|
|
|
|
|
|
|
<span class='kw'>title</span> <span class='kw'>=</span> <span class='st'>"Highway Fuel Efficiency"</span>, |
|
|
<span class='kw'>subtitle</span> <span class='kw'>=</span> <span class='st'>"+ theme_xaringan_base()"</span>, |
|
|
<span class='kw'>subtitle</span> <span class='kw'>=</span> <span class='st'>"+ theme_xaringan_base()"</span>, |
|
|
<span class='kw'>caption</span> <span class='kw'>=</span> <span class='st'>"xaringanthemer"</span> |
|
|
<span class='kw'>caption</span> <span class='kw'>=</span> <span class='st'>"xaringanthemer"</span> |
|
|
) |
|
|
) |