Início / coding / Perguntas / 79300225
Accepted
Ben
Asked: 2024-12-22 06:48:31 +0800 CST

Como exibir rótulos de tempo no eixo X corretamente no R ggplot

  • 772

Eu tento plotar os dados com R ggplot, mas o rótulo de tempo não pode ser exibido no eixo x corretamente. Qualquer conselho será muito apreciado.

Veja como são os dados de exemplo:

structure(list(activity = c("Running", "Running", "Running", 
"Running", "Running", "Running", "Running", "Running", "Running", 
"Running"), time = structure(c(-2209064400, -2209064100, -2209063800, 
-2209063500, -2209063200, -2209062900, -2209062600, -2209062300, 
-2209062000, -2209061700), tzone = "UTC", class = c("POSIXct", 
"POSIXt")), level = c(0.0450582956975968, 0.049786810752437, 
0.049786810752437, 0.0409378662803991, 0.0373264654807176, 0.0373264654807176, 
0.0518442650051548, 0.0471157499503146, 0.0527766243609182, 0.0615719801782924
)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"
))

Os dados podem ser visualizados corretamente no Excel.

insira a descrição da imagem aqui

Mas não consigo plotar os mesmos dados corretamente em R. Os rótulos de tempo não são apresentados adequadamente e o formato dos dados também parece errado.

insira a descrição da imagem aqui

Aqui estão os códigos R que eu uso:

ggplot(df2, aes(x = time, y = activity)) + geom_density_ridges2()

1 respostas

  1. Best Answer

    Você precisa usar scale_x_datetime, com o argumento date_labels = "%I:%M %p"para obter o mesmo formato de saída do Excel.

    No entanto, geom_density_ridgesa função está errada aqui. Você está representando graficamente o levelde cada um activityno Excel, não a densidade de medições no eixo x, e é por isso que as formas estão erradas.

    Usando uma aproximação do seu conjunto de dados, conforme mostrado na pergunta, com a mesma estrutura básica e nomes, podemos reproduzir seus gráficos do Excel em R da seguinte maneira:

    library(tidyverse)

df %>%
  mutate(activity = factor(activity, c("Walking", "Running"))) %>%
  ggplot(aes(time, level, color = activity)) + 
  geom_line(linewidth = 1) + 
  facet_wrap(activity ~ ., ncol = 1, scales = "free") +
  scale_x_datetime(date_breaks = "1 hour",
                   date_labels = "%I:%M %p") +
  scale_colour_manual(NULL, values = c("deepskyblue4", "orangered")) +
  labs(x = NULL) +
  theme_bw(16) +
  theme(panel.grid.major.x = element_blank(),
        panel.grid.minor = element_blank(),
        axis.text.x = element_text(hjust = 1, angle = 45),
        strip.background = element_blank(),
        strip.text = element_text(size = 20, face = "bold"))

    insira a descrição da imagem aqui

    • 2

relate perguntas