Pradeep Eranti peranti

From @CedScherer, https://twitter.com/CedScherer/status/1367097668569346050

[general]

[geo data]

Unnest - unpacking list columns

library(dplyr)
library(tidyr)

# Use this to show list columns
glimpse(starwars)

# Unnest 'films' column, drop other list column
by_film &lt;- unnest(starwars, films)

Want to learn more about R administration at the enterprise level? I recommend these resources:

Online Resources

Upcoming Courses

Code:

library(tidyr)
library(tibble)
df <- data_frame(animal = c("cat", "dog"), toy = c("ball", "stick"), total = c(5, 6))
df

Output:

# A tibble: 2 x 3

Datasets

Code:

library(dplyr)
band_members

Output:

Code:

library(dplyr)
group_by_if(ggplot2::diamonds, is.factor) %>%
  count()

Output:

	# Thanks for article
	library(purrr)
	library(gh)

	repos <- gh("/repos/statnmap/gitlabr/stats/contributors")
	map(repos, "author") %>% map("login")

	map_chr(repos, ~paste0(
	# "[@", # With @ before
	"[",

	library(tidyverse)

	# using expression() for the text formatting:
	ggplot(mtcars,
	aes(disp,
	mpg)) +
	geom_point() +
	# ~ for spaces, and * for no-space between (unquoted) expressions
	ylab(expression(Anthropogenic~SO[4]^{"2-"}~(ngm^-3))) +
	xlab(expression(italic(delta)^13C[ap]"‰")) +

	---
	title: "Presentation Ninja"
	subtitle: "⚔<br/>with xaringan"
	author: "Yihui Xie"
	date: "2016/12/12 (updated: `r Sys.Date()`)"
	output:
	xaringan::moon_reader:
	lib_dir: libs
	css:
	- default

	library(tidycensus)
	library(tmap)
	library(tmaptools)
	library(sf)
	library(tigris)
	library(magick)
	library(tidyverse)
	options(tigris_use_cache = TRUE)

	ctys <- c("Dallas", "Tarrant", "Collin County", "Denton",