parmentf

Inspired by dannyfritz/commit-message-emoji

See also gitmoji.

Commit type	Emoji
Initial commit	🎉 :tada:
Version tag	🔖 :bookmark:
New feature	✨ :sparkles:
Bugfix	🐛 :bug:

lopspower

Hexadecimal color code for transparency

How to set transparency with hex value ?

For example, you want to set 40% alpha transparence to #000000 (black color), you need to add 66 like this #66000000.

All hex value from 100% to 0% alpha:

baptiste

library(ggplot2)
# dput(ls(pattern = "theme",package:ggplot2))
defaults <- c("theme_bw", "theme_classic", "theme_dark", 
              "theme_grey", "theme_light", "theme_linedraw", 
              "theme_minimal", "theme_void")
library(ggthemes)
# dput(ls(pattern = "theme",package:ggthemes))
addons <- c("theme_base", "theme_calc", "theme_economist", 
            "theme_economist_white", "theme_excel", "theme_few", "theme_fivethirtyeight", 
            "theme_foundation", "theme_gdocs", "theme_hc", "theme_igray", 

maartenzam

Porting Jon Schwabish's World Tile Grid Map to ggplot2.

mertedali

#####################################################
#####################################################
### R Script for Metamodeling and Rule Extraction ###
#####################################################
#####################################################

#############################
### Step I: Load Packages ###
#############################

chichacha

library(tidyverse)
library(lubridate)
library(scales)

df <- tibble(
  date = seq.Date(from=ymd("2019-01-01"),to=ymd("2019-12-31"),by="day"),
  wkdy = wday(date,label=T),
  mo = month(date,label=T),
  mo.num = month(date,label=F),
  day = day(date)

jsta

#' Download files from Zenodo record id
#' 
#' @param record_id record id
#' @param dest_folder destination folder for file downloads
#' @param token API key
#' 
#' @details https://github.com/zenodo/zenodo/issues/1629#issuecomment-435062462
#' 
#' @importFrom httr GET content
#' @importFrom jsonlite fromJSON

fzenoni

# Download earth data first
# https://www.naturalearthdata.com/http//www.naturalearthdata.com/download/110m/physical/ne_110m_land.zip

library(sf)
library(lwgeom)
library(dplyr)
library(ggplot2)
library(mapview)

# Read the data

joshua-feldman

# Load the relevant packages
library(NCmisc)
library(stringr)

# Load the script and parse lines
file_name <- "example_script.R"
file_lines <- readLines(file_name)

# Save the function and package names
functions_list <- list.functions.in.file(file_name)

hadley

# =======================================
# =     Enhancements to data tidying    =
# =          Hadley Wickham             =
# = https://rstd.io/tidyhancements-2019 =
# =======================================

# What is tidy data? ----------------------------------------------------------
# 1. Each column is a variable.
# 2. Each row is an observation.
# 3. Each cell is a value.