Skip to content

Instantly share code, notes, and snippets.

Ilya Kashnitsky ikashnitsky

Block or report user

Report or block ikashnitsky

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@ikashnitsky
ikashnitsky / dataviz-rules.R
Last active Nov 8, 2019
Simple rules and tricks to improve dataviz communication | slides: https://ikashnitsky.github.io/share/1911-prc20-dataviz/slides.html#/
View dataviz-rules.R
#===============================================================================
# 2019-11-08 PRC dataviz workshop
# Simple rules and tricks to improve dataviz communication
# slides: https://ikashnitsky.github.io/share/1911-prc20-dataviz/slides.html#/
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================
library(tidyverse)
library(magrittr)
View dotplot-plus-manual-legend.R
#===============================================================================
# 2019-07-19-- ikashnitsky.github.io
# Reproduce Figure 2 from http://doi.org/10.1007/s10708-018-9953-5
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================
library(tidyverse)
library(hrbrthemes); import_roboto_condensed()
# the data as tribble
@ikashnitsky
ikashnitsky / tidytuesday-190625-ufo.R
Created Jul 12, 2019
Calendar plot of UFO sightings, 2000--2013
View tidytuesday-190625-ufo.R
#===============================================================================
# 2019-07-12 -- tidytuesday
# Data on UFO sightings ,2019-06-25
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================
# load required packages
library(tidyverse)
library(janitor)
library(sf)
@ikashnitsky
ikashnitsky / get-all-sjr-data.r
Created Sep 22, 2018
Get all SCImago Journal & Country Rank data (script version of sjrdata package)
View get-all-sjr-data.r
################################################################################
#
# bibliometrics 2018-09-22
# SJR data -- load and combine all files -- GIST
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#
################################################################################
library(tidyverse)
library(janitor)
@ikashnitsky
ikashnitsky / rgb-ternary.R
Created Apr 26, 2018
a minimal example of an RGB colorcoded ternary diagram
View rgb-ternary.R
# a function from: Schöley, J., & Willekens, F. (2017). Visualizing compositional data on the Lexis surface. Demographic Research, 36(21), 627–658. https://doi.org/10.4054/DemRes.2017.36.21
TernaryCentroidCoord <- function (k) {
centroids <- matrix(nrow = k^2, ncol = 5,
dimnames = list(NULL, c("j", "i", "p1", "p2", "p3")))
for (j in 1:k) {
for (i in 1:(2*k - 2*j + 1)) {
p1 = (6*k - 6*j - 3*i + 4 + i%%2) / (6*k)
p2 = (6*j - 2 - 2*i%%2) / (6*k)
p3 = (3*i - 2 + i%%2) / (6*k)
centroids[i+(j-1)*(2*k-j+1),] = c(j, i, p1, p2, p3)
@ikashnitsky
ikashnitsky / a-minimal-example.R
Last active Jan 23, 2018
Reproducible example for my SO question on how to fit 2 sf seamlessly -- https://stackoverflow.com/questions/48360446
View a-minimal-example.R
# install dev version of ggplot2
devtools::dev_mode()
devtools::install_github("tidyverse/ggplot2")
library(tidyverse)
library(sf)
library(rmapshaper)
library(ggthemes)
@ikashnitsky
ikashnitsky / data-acquisition-one-two-three.R
Last active Jan 24, 2018
Code for the Data acquisition in R series (posts 1-3) -- https://habrahabr.ru/post/345664/
View data-acquisition-one-two-three.R
################################################################################
#
# ikashnitsky.github.io 2017-12-27
# Data acquisition in R - Parts 1/4, 2/4, 3/4
# For Russian translation at https://habrahabr.ru/post/345664/
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#
################################################################################
# load required packages
View data-acquisition-three.R
################################################################################
#
# ikashnitsky.github.io 2017-12-10
# Data acquisition in R 3/4
# https://ikashnitsky.github.io/2017/data-acquisition-three
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#
################################################################################
View CZ.txt
structure(list(stat_levl = c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L), shape_area = c(0.0653899829698, 1.3762043666,
1.25499783393, 0.93856596625, 0.427473808209, 0.663122706002,
0.396481635382, 0.613580039208, 0.579619503146, 0.841022895036,
0.872238590611, 0.638449668327, 0.489022847964, 0.685501846886
), shape_len = c(1.22710623792, 7.30786673034, 5.79400468308,
4.37316699851, 3.20638532907, 4.88925982656, 3.36453264071, 4.58107671594,
4.02423661604, 4.33880950383, 5.77002769494, 5.08364809113, 3.24035456572,
4.77048859037), id = c("CZ010", "CZ020", "CZ031", "CZ032", "CZ041",
"CZ042", "CZ051", "CZ052", "CZ053", "CZ063", "CZ064", "CZ071",
View snow-for-Sophia.R
################################################################################
#
# ikashnitsky.github.io 2017-12-04
# Generate some snow for Sophia
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#
################################################################################
library(tidyverse)
You can’t perform that action at this time.