PopED
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)
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 ... |
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).
# 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]])
#> [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
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. |
# 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() + |
ID0 | ID | |
---|---|---|
01 | 1 | |
02 | 2 | |
03 | 3 |
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.”