Início / coding / Perguntas / 78991845
Accepted
js4032
Asked: 2024-09-17 05:21:10 +0800 CST

geom_segment aparece no lugar errado com uma escala logarítmica

  • 772

Notei um comportamento estranho ao usar geom_segment e scale_y_log10 simultaneamente. O seguinte deve plotar uma seta de (2,1) a (4,1).

ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 100)) +
  geom_segment(x = 2, y = 1, xend = 4, yend = 1,
               arrow = arrow(length = unit(0.5, 'cm')))

Na realidade, ele traça uma seta de (2,10) a (4,10).

saída do gráfico

Depois de fazer uma pequena experimentação, parece que a transformação de log não é aplicada a geom_segment, então para qualquer valor y que você inserir em geom_segment o segmento será realmente plotado em 10^y. Então, tenho duas perguntas:

  1. Por que isso acontece?
  2. Como posso consertar isso? (De preferência algo melhor do que pegar log10() de cada valor y que eu passar.)

2 respostas

  1. Best Answer

    O problema tem a ver com os passos que o ggplot2 toma para pegar dados, transformá-los em estatísticas (se necessário) e então mapear para as escalas. Da ajuda para ?aes_eval: "ggplot2 tem três estágios dos dados dos quais você pode mapear a estética", e o que você está fazendo pula para o último, perdendo o passo de traduzir a entrada para o mapeamento.

    Quando você especifica geom_segment(y = 1...)em um gráfico com scale_y_log10(), o ggplot2 entende que isso significa que os dados pertencem a 10^1. Na terminologia do ggplot2, os dados são tratados como se estivessem no after_scale()passo.

    O que você pretendia, no entanto, era que seus dados fossem mapeados para essa escala, ou seja, você queria que seu y = 1fosse tratado como 10^0. Se você colocá-lo dentro de aes(), ele fará isso, transformando o valor de dados de 1 para ser mapeado para o ponto correspondente na escala.

    Podemos ver que o uso aes(after_scale(y=1...))trará de volta o comportamento não intencional.

    https://search.r-project.org/CRAN/refmans/ggplot2/html/aes_eval.html

    https://www.reddit.com/r/rprogramming/comments/tsspot/how_does_control_aesthetic_evaluation_work/

    ggplot(data.frame(x = rep(1,3), y = rep(1,3)), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 1000)) +

  # raw data will be treated "after_scale"
  geom_segment(x = rep(2,3), y = rep(1,3), xend = rep(4,3), yend = 1:3,
               arrow = arrow(length = unit(0.2, 'cm'))) +

  # data inside  aes(after_scale(...   will be treated "after_scale"
  geom_segment(aes(x = 2, y = 1, xend = 4, yend = after_scale(1:3)),
               color = "blue",
               arrow = arrow(length = unit(0.2, 'cm'))) +

  # but data inside aes() will be mapped to the scale as we want
  geom_segment(aes(x = 2, y = 1, xend = 4, yend = 1:3),
               color = "red",
               arrow = arrow(length = unit(0.2, 'cm')))

    insira a descrição da imagem aqui

    • 2

  2. Você precisa mapear as coordenadas do segmento para posicionar (a aes()coisa).

    Usar: geom_segment(aes(x = 2, y = 1, xend = 4, yend = 1), ...).

    • 1

relate perguntas