Início / coding / Perguntas / 79409501
Accepted
user21390049
Asked: 2025-02-04 01:04:50 +0800 CST

plotando 3 eixos em R

  • 772

Eu tenho um quadro de dados como este:

df <- (category=c('a',   'b', 'c',  'd','e'),
         value1=c(1.02,-0.34,2.31, 1.15,0.68), 
         value2=c(-1.14,2.19,0.56, 3.12,1.17), 
         value3=c(    0,0.19,3.18,-1.14,2.12))

Gostaria de perguntar se há alguma maneira possível de plotar um gráfico com o valor 1 no eixo x, e os valores 2 e 3 no eixo y (um na esquerda e o outro na direita). Espero poder receber alguma ajuda com isso. Muito obrigado!

1 respostas

  1. Best Answer

    Você quer dizer assim?

    fora

    library(ggplot2)
    
df <- data.frame(
  category = c('a', 'b', 'c', 'd', 'e'),
  value1 = c(1.02, -0.34, 2.31,  1.15, 0.68),
  value2 = c(-1.14, 2.19, 0.56,  3.12, 1.17),
  value3 = c(0,     0.19, 3.18, -1.14, 2.12)
)

scale_factor <- diff(range(df$value2)) / diff(range(df$value3))

ggplot(df, aes(x = value1)) +
  geom_line(aes(y = value2, color = "Value 2")) +
  geom_line(aes(y = value3 * scale_factor, color = "Value 3")) +
  scale_y_continuous(
    name = "Value 2",
    sec.axis = sec_axis(~./scale_factor, name = "Value 3")
  ) +
  scale_color_manual(values = c("Value 2" = "blue", "Value 3" = "red")) +
  labs(x = "Value 1", color = "Variables") +
  theme_minimal()

    com rótulos em vez de linhas

    fora

    # Create the plot with labels instead of lines
ggplot(df, aes(x = value1)) +
  geom_text(aes(y = value2, label = category, color = "Value 2"), size = 4) +
  geom_text(aes(y = value3 * scale_factor, label = category, color = "Value 3"), size = 4) +
  scale_y_continuous(
    name = "Value 2",
    sec.axis = sec_axis(~./scale_factor, name = "Value 3")
  ) +
  scale_color_manual(values = c("Value 2" = "blue", "Value 3" = "red")) +
  labs(x = "Value 1", color = "Variables") +
  theme_minimal()
    • 2

relate perguntas