Amazing plot: Difference between revisions
Jump to navigation
Jump to search
(Created page with "= New R logo 2/11/2016 = * http://rud.is/b/2016/02/11/plot-the-new-svg-r-logo-with-ggplot2/ * https://www.stat.auckland.ac.nz/~paul/Reports/Rlogo/Rlogo.html <syntaxhighlight l...") |
|||
| (3 intermediate revisions by the same user not shown) | |||
| Line 36: | Line 36: | ||
[[File:XMastree.png|150px]] | [[File:XMastree.png|150px]] | ||
[https://lorentzen.ch/index.php/2021/12/20/x-mas-tree-with-10-lines-of-r-code/ X-Mas Tree with 10 Lines of R Code] | |||
= Plant = | |||
[https://twitter.com/SciPyTip/status/1554290482263592960?s=20&t=AQv_jIEc0_DdoDW5kN_n0A interactive trigonometric plant], [https://t.co/o1qvAg1KzJ Shiny for Python] | |||
= Happy Thanksgiving = | = Happy Thanksgiving = | ||
| Line 71: | Line 76: | ||
= Chaos = | = Chaos = | ||
[https://fronkonstin.com/2019/01/10/rcpp-camaron-de-la-isla-and-the-beauty-of-maths/ Rcpp, Camarón de la Isla and the Beauty of Maths] | [https://fronkonstin.com/2019/01/10/rcpp-camaron-de-la-isla-and-the-beauty-of-maths/ Rcpp, Camarón de la Isla and the Beauty of Maths] | ||
= Mosaic = | |||
[https://rviews.rstudio.com/2020/02/13/photo-mosaics-in-r/ Photo Mosaics in R] | |||
= Analog clock = | |||
[https://tomaztsql.wordpress.com/2021/09/16/little-useless-useful-r-functions-useless-analog-and-digital-clocks/ Useless analog and digital clocks] | |||
Latest revision as of 21:07, 3 August 2022
New R logo 2/11/2016
- http://rud.is/b/2016/02/11/plot-the-new-svg-r-logo-with-ggplot2/
- https://www.stat.auckland.ac.nz/~paul/Reports/Rlogo/Rlogo.html
library(sp)
library(maptools)
library(ggplot2)
library(ggthemes)
# rgeos requires the installation of GEOS from http://trac.osgeo.org/geos/
system("curl http://download.osgeo.org/geos/geos-3.5.0.tar.bz2 | tar jx")
system("cd geos-3.5.0; ./configure; make; sudo make install")
library(rgeos)
r_wkt_gist_file <- "https://gist.githubusercontent.com/hrbrmstr/07d0ccf14c2ff109f55a/raw/db274a39b8f024468f8550d7aeaabb83c576f7ef/rlogo.wkt"
if (!file.exists("rlogo.wkt")) download.file(r_wkt_gist_file, "rlogo.wkt")
rlogo <- readWKT(paste0(readLines("rlogo.wkt", warn=FALSE))) # rgeos
rlogo_shp <- SpatialPolygonsDataFrame(rlogo, data.frame(poly=c("halo", "r"))) # sp
rlogo_poly <- fortify(rlogo_shp, region="poly") # ggplot2
ggplot(rlogo_poly) +
geom_polygon(aes(x=long, y=lat, group=id, fill=id)) +
scale_fill_manual(values=c(halo="#b8babf", r="#1e63b5")) +
coord_equal() +
theme_map() +
theme(legend.position="none")
3D plot
Using persp function to create the following plot. Code in github.
Christmas tree
http://wiekvoet.blogspot.com/2014/12/merry-christmas.html. Code in github.
X-Mas Tree with 10 Lines of R Code
Plant
interactive trigonometric plant, Shiny for Python
Happy Thanksgiving
Happy Valentine's Day
- Geom❤️ 2017
- Happy Valentines day by Nerds 2019
treemap
Voronoi diagram
- https://www.stat.auckland.ac.nz/~paul/Reports/VoronoiTreemap/voronoiTreeMap.html
- http://letstalkdata.com/2014/05/creating-voronoi-diagrams-with-ggplot/
Silent Night
The code in github.
The Travelling Salesman Portrait
https://fronkonstin.com/2018/04/04/the-travelling-salesman-portrait/
Moon phase calendar
https://chichacha.netlify.com/2018/05/26/making-calendar-with-ggplot-moon-phase-calendar/
Calendar heatmap
https://stackoverflow.com/questions/26171068/add-dates-to-calendar-heat-map-r
Chaos
Rcpp, Camarón de la Isla and the Beauty of Maths