Skip to content

Instantly share code, notes, and snippets.

PopED

traceback

16: stop("Discrete value supplied to continuous scale", call. = FALSE)
15: scales::train_continuous(x, self$range)
14: f(..., self = self)
13: self$range$train(x)
12: f(..., self = self)
11: self$train(df[[aesthetic]])
10: f(..., self = self)
@batpigandme
batpigandme / ggpcol.txt
Created May 15, 2018 18:36
The object being plotted by cellWise
str(ggpcol)
List of 9
$ data :'data.frame': 187 obs. of 5 variables:
..$ rownr : Factor w/ 17 levels "17","16","15",..: 17 16 15 14 13 12 11 10 9 8 ...
.. ..- attr(*, "scores")= num [1:17(1d)] 17 16 15 14 13 12 11 10 9 8 ...
.. .. ..- attr(*, "dimnames")=List of 1
.. .. .. ..$ : chr [1:17] "1" "2" "3" "4" ...
..$ variable : Factor w/ 11 levels "1","2","3","4",..: 1 1 1 1 1 1 1 1 1 1 ...
..$ CatNr : num [1:187] 0 0 0 0 0 0 0 0 0 0 ...
..$ data : num [1:187] 31.5 33.8 16.7 68.5 17.7 ...
@batpigandme
batpigandme / community_mgmt_stuffs.md
Last active May 10, 2018 12:09
📑 Resources and other such stuffs on community management (mostly in the FOSS realm)…

Faves

Blogs

@batpigandme
batpigandme / r-vs-rstudio.md
Last active May 3, 2018 11:18
The difference between R and RStudio…

The difference between R and RStudio, with big ups to Modern Dive.

Does it work for you in the regular R GUI, but not when you're in RStudio?

For disambiguation/a good explanation of the relationship between R and RStudio, check out this chapter of Modern Dive: http://moderndive.com/2-getting-started.html

If you're using RStudio, you're using R — RStudio is just an IDE (Integrated Development Environment) in which you are using the R language. (On of my favourite figures from Modern Dive, below, illustrates the difference nicely). What are R and RStudio? From ModernDive

@batpigandme
batpigandme / github_reactions.R
Created April 10, 2018 12:54
Get reactions for GitHub issue with gh in R.
# https://developer.github.com/v3/reactions/#list-reactions-for-an-issue
github_reactions <- function(owner, repo, number) {
reactions_json <- gh::gh(
"GET /repos/:owner/:repo/issues/:number/reactions",
owner = owner,
repo = repo,
number = number,
.send_headers = c(
Accept = "application/vnd.github.squirrel-girl-preview+json")
)
# 55th col is 54 games
unique(wide_win_pctg[[55]])
#> [1] 0.3148148 0.3518519 0.7222222 0.4259259 0.5925926 0.5370370 0.5000000 0.7592593 0.5185185 0.3333333 0.5555556 0.6296296 0.7037037
#> [14] 0.4814815 0.5740741
# 56th col is 55 games
unique(wide_win_pctg[[56]])
#&gt; [1] 0.3090909 0.3454545 0.7090909 0.4181818 0.6000000 0.5272727 0.4909091 0.7636364 0.5454545 0.3272727 0.5636364 0.6363636
@batpigandme
batpigandme / wl_to_date.csv
Created March 25, 2018 15:54
NBA win-loss to date through 2018-03-24
team_slug date ws_to_date ls_to_date gs_to_date win_pctg team_lab logo_lab logo
nba-chi 2018-03-24 24 49 73 0.3287671232876712 chi CHI http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/CHI.SVG
nba-det 2018-03-24 33 40 73 0.4520547945205479 det DET http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/DET.SVG
nba-lal 2018-03-24 31 39 70 0.44285714285714284 lal LAL http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/LAL.SVG
nba-mem 2018-03-24 19 54 73 0.2602739726027397 mem MEM http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/MEM.SVG
nba-min 2018-03-24 41 32 73 0.5616438356164384 min MIN http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/MIN.SVG
nba-phi 2018-03-24 42 30 72 0.5833333333333334 phi PHI http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/PHI.SVG
nba-hou 2018-03-24 58 14 72 0.8055555555555556 hou HOU http://i.cdn.turner.com/nba/nba/assets/logos/teams/primary/web/HOU.SVG
nba-no 2018-03-24 43 31 74 0.581081081081081 no NOP http://i.
@batpigandme
batpigandme / coordinated.R
Last active March 13, 2018 14:29
coördinator × archer
# fun with Aliza Aufrichtig's coördinator
# https://spotify.github.io/coordinator/
suppressPackageStartupMessages(library(tidyverse))
archness <- read_csv(here::here("coordinator.csv"), col_types = cols(x = col_double(),
y = col_double()))
ggplot(data = archness, aes(x = (-1 * y), y = (-1 * x))) +
geom_point() +
coord_flip() +
@batpigandme
batpigandme / readrex.csv
Last active March 5, 2018 16:04
readrex
ID0 ID
01 1
02 2
03 3

How do I choose a solution?

If your question has been answered, please mark the solution. That way, someone in the future can easily see what worked for you.

If you’re the original poster (OP), there should be a little box at the bottom of replies that you can click to select that response as your “solution.”