richarddmorey's questions

Considere o gráfico a seguir:

library(ggplot2)

df = expand.grid(
  x=seq(-1,1,length.out=100),
  y=seq(-1,1,length.out=100)
  )

df$in_circle = with(df, x^2 + y^2 < .5)

ggplot(df, aes(x=x,y=y,z=in_circle)) +
  geom_contour_filled(breaks  = c(-.5,.5,1.5)) +
  scale_fill_manual(
    values = c('white','orange')
  ) +
  theme_minimal()

que se parece com isso:

Observe que a cor branca na legenda não está clara porque é a mesma cor do fundo. Gostaria de colocar bordas ao redor das amostras sem alterar o gráfico. Deveria ficar algo assim:

Como posso conseguir isso?

Encontrei um bug no gganimatepacote que quebra um dos meus gráficos ( https://github.com/thomasp85/gganimate/issues/502 ). Sei como consertar se eu percorrer a função relevante no modo de depuração ( https://github.com/thomasp85/gganimate/issues/502#issuecomment-2395009593 ). Preciso executar esta linha de código:

data <- lapply(data, function(el){
      el[order(el$x, decreasing = TRUE),]
    })

logo após a linha 76 da gganimate:::ggplot_build.gganimfunção ( https://github.com/thomasp85/gganimate/blob/b46d1ff9bfee89c33ca8d6c4fd3fa1074c649027/R/plot-build.R#L76 ). Claro, usar debugsó funciona se eu estiver executando o código interativamente. O que eu gostaria de fazer é corrigir essa função temporariamente para que meu gráfico saia corretamente quando eu estiver executando o código de forma não interativa (por exemplo, com knitr).

Gostaria de obter um gráfico funcional enquanto aguardo uma correção de bug no pacote.

Eu estava pensando algo assim:

bdy = deparse(body(gganimate:::ggplot_build.gganim))
c(
  bdy[1:41],
  "data <- lapply(data, function(el){
      el[order(el$x, decreasing = TRUE),]
    })",
  bdy[42:length(bdy)]
  ) -> bdy 
f <- function(plot){}
body(f) <- as.expression(parse(text=paste0(bdy, collapse="\n")))

rlang::env_unlock(env = asNamespace('gganimate'))
rlang::env_binding_unlock(env = asNamespace('gganimate'))
assignInNamespace("ggplot_build.gganim", f, "gganimate")
rlang::env_binding_lock(env = asNamespace('gganimate'))
rlang::env_lock(asNamespace('gganimate'))

(juntando respostas https://stackoverflow.com/a/38732761/1129889 e https://stackoverflow.com/a/8502385/1129889 ) mas parece não funcionar, porque então não vê as gganimatefunções do pacote:

library(ggplot2)
library(gganimate)
library(ragg)
library(gifski)

dplyr::tibble(
  x = seq(0,.5,length.out=256),
  y = 1-pnorm(qnorm(x)/5)
) -> df

res = 300
w = 7
h = 4
# If this is run in knitr, w and h are in inches, otherwise
# they are in pixels
anim_w = ifelse(interactive(),w*res,w)
anim_h = ifelse(interactive(),h*res,h)


ggplot(df,aes(x=x,y=y)) +
  geom_line() +
  geom_point() +
  coord_cartesian(
    xlim=c(0,.5),ylim=c(.5,1),expand = FALSE
  ) -> gg

anim = gg + transition_reveal(x, range = c(.5,0)) 

## Try to hack the function in place
bdy = deparse(body(gganimate:::ggplot_build.gganim))
c(
  bdy[1:41],
  "data <- lapply(data, function(el){
      el[order(el$x, decreasing = TRUE),]
    })",
  bdy[42:length(bdy)]
  ) -> bdy 
f <- function(plot){}
body(f) <- as.expression(parse(text=paste0(bdy, collapse="\n")))

rlang::env_unlock(env = asNamespace('gganimate'))
rlang::env_binding_unlock(env = asNamespace('gganimate'))
assignInNamespace("ggplot_build.gganim", f, "gganimate")
rlang::env_binding_lock(env = asNamespace('gganimate'))
rlang::env_lock(asNamespace('gganimate'))

anim

produz o erro:

Error in plot_clone(plot) : could not find function "plot_clone"

(Suponho que seja porque plot_cloneé uma função interna para gganimate)

Existe alguma maneira de fazer algo assim (ou realizar a mesma coisa de outra maneira)?

Observação: não quero bifurcar o pacote e inserir esta linha e então instalar minha versão dele (porque só preciso dessa correção temporária para um gráfico, e isso quebrará outras chamadas para a função).