Hiroaki Yutani yutannihilation

library(ggplot2)

# functions -----------------------------------------------

geom_liquid_area <- function(mapping = NULL, data = NULL, stat = "identity",
                             position = "stack", na.rm = FALSE, show.legend = NA,
                             inherit.aes = TRUE, ...) {
  layer(
    data = data,

library(dplyr, warn.conflicts = FALSE)

df <- tibble(
  f1 = factor(c("a", "a", "a", "b", "b"), levels = c("a", "b", "c")), 
  f2 = factor(c("d", "e", "d", "e", "f"), levels = c("d", "e", "f")), 
  x  = c(1, 1, 1, 2, 2), 
  y  = 1:5
)

Read Parquet files from R

Prerequisite

Install libarrow and libparquet.

git clone https://github.com/apache/arrow/

Apache Arrow東京ミートアップ2018用のメモ

Arrow

JIRA: https://issues.apache.org/jira/browse/ARROW-3204?jql=project%20%3D%20ARROW%20AND%20status%20in%20(Open%2C%20%22In%20Progress%22%2C%20Reopened)%20AND%20component%20%3D%20R
GitHub: https://github.com/apache/arrow/labels/lang-R
vctrsのinteger64サポート: r-lib/vctrs#122
sparklyrのApache Arrow対応: sparklyr/sparklyr#1611 （これはScala側？）

tibble 2.0.0のas_tibble()の変更点

参考

このgistは、以下のブログ記事からas_tibble()の気になる部分だけを抜き出したものです。他の変更点について詳しくは元記事を読んでください。

https://www.tidyverse.org/articles/2018/11/tibble-2.0.0-pre-announce/

library(tidyverse)
library(magick)
#> Linking to ImageMagick 6.9.9.14
#> Enabled features: cairo, freetype, fftw, ghostscript, lcms, pango, rsvg, webp
#> Disabled features: fontconfig, x11


img_file <- tempfile(fileext = ".png")
download.file("https://hoxo-m.com/img/team/makiyama.png", destfile = img_file, mode = "wb")

c.f. tidyverse/ggplot2#2881

library(ggplot2)
library(sf)
#> Linking to GEOS 3.6.1, GDAL 2.2.3, PROJ 4.9.3

nc <- st_read(system.file("gpkg/nc.gpkg", package="sf"), quiet = TRUE)

ggplot() +

	tmp <- file.path(normalizePath(tempdir()), "certs")
	dir.create(tmp)
	download.file("https://curl.haxx.se/ca/cacert.pem", file.path(tmp, "cacert-mozilla.pem"), mode = "wb")

	library(httr)

	proxy_conf <- use_proxy("http://127.0.0.1", port = 8080)

	res <- GET("http://mitm.it/cert/pem", config = proxy_conf)
	writeBin(content(res), file.path(tmp, "cacert-mitm.pem"))

	library(tidyverse)
	library(magick)

	# the speed of involute increases uniformly; in order to make the lengths between
	# steps equal, we need to calculate the square root
	resolution_of_involute <- 10000L
	t <- sqrt(seq(0, resolution_of_involute) / resolution_of_involute)

	coil_turns <- 17L
	max_r <- coil_turns * 2 * pi

	library(tidyverse)
	library(magick)

	steps <- 10000L
	coil_turns <- 3L
	max_r <- coil_turns * 2 * pi

	imgs <- image_graph(300, 300, res = 30)

	rotation <- pi/4