slowkow

library(ggplot2)
library(FField)

# You'll have to play with repulsion, cex.x, and cex.y to get satisfactory results.
plot_text <- function(x, y, label, repulsion = 1, cex.x = 110, cex.y = 40) {
  dat <- data.frame(xpos = x, ypos = y, label = label)
  dat$label <- as.character(dat$label)
  
  # Use the FField package to repel the text labels away from each other.
  dat <- cbind(

cderv

---
title: "Programmatically create a document"
date: "`r Sys.Date()`"
output:
  pagedown::html_paged:
    toc: true
    # change to true for a self-contained document, but it'll be a litte slower for Pandoc to render
    self_contained: false
---

jeroen

library(magick)
library(magrittr)

# Convert to 'ico' format
image_read("https://www.r-project.org/logo/Rlogo.png") %>%
	image_scale("32x32!") %>% # remove the "!" after 32x32 to scale proportionally
	image_write("favicon.ico", format = "ico")


# Favicon can also be png/gif

theHausdorffMetric

require(quantmod)
require(ggplot2)
require(reshape2)
require(plyr)
require(scales)

# Download some Data, e.g. the CBOE VIX 
getSymbols("^VIX",src="yahoo")

# Make a dataframe

tomcardoso

Reusable waffle charts

Basic waffle charts using Mike Bostock's [http://bost.ocks.org/mike/chart/](reusable charts) convention. Waffles are configurable, as you can see below:

var waffle = new WaffleChart()
  .selector(".chart")
  .data(data)
  .useWidth(false)
 .label("Value of producers' sales in 2013, in thousands of dollars")

ikashnitsky

################################################################################
#                                                    
# ikashnitsky.github.io 2017-06-30
# Produce an RGB coded map of pop structures at NUTS-3 level
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#                                                  
################################################################################

# load required packages
library(tidyverse)      # data manipulation and viz

yonicd

#'@title html2tagList
#'@description convert raw html to htmltools tagList
#'@param x character vector of html
#'@examples
#'
#'x<-'<h1>Title</h1>
#'    <h2>Header text</h2>
#'    <p>Text here</p>
#'    <h1>Title</h1>
#'    <h2>Header text</h2>

GuillaumePressiat

library(leaflet)
library(sf)
library(rmapshaper)
library(dplyr, warn.conflicts = FALSE)
library(smoothr)
library(shiny)

u <- httr::GET('https://www.data.gouv.fr/api/1/datasets/5e7e104ace2080d9162b61d8/')
url_search <- httr::content(u)$resources

dpseidel

Default ggplot2 aesthetics by geom.

geom	alpha	angle	colour	family	fill	fontface	height	hjust	lineheight	linetype	shape	size	stroke	vjust	weight	width	xmax	xmin	ymax	ymin
GeomAbline	NA		black							1		0.5
GeomAnnotationMap	NA		NA		grey20					1		0.5
GeomArea	NA		NA		grey20					1		0.5
GeomBar	NA		NA		grey35					1		0.

PaulC91

#' Add custom circle legend to leaflet map
#' 
#' To be used alongside \code{leaflet::addCircleMarkers}
#' 
#' @param map a leaflet map
#' @param title title of the legend
#' @param range vector of numeric values you want to scale the legend to (same vector used with addCircleMarkers)
#' @param scaling_fun the scaling function used with addCircleMarkers to scale circle radii appropriately for leaflet
#' @param color stroke color
#' @param weight stroke width in pixels