Início / coding / Perguntas / 79485052
Accepted
Salvador
Asked: 2025-03-05 06:52:57 +0800 CST

Como plotar geom_bar sem mostrar várias linhas

  • 772

Estou tentando fazer um gráfico de barras, no entanto, está imprimindo várias linhas em cada barra. Entendo que talvez eu tenha que agregar, mas se eu fizer isso, preciso manter as colunas originais porque preciso preencher algumas delas. Pergunta: Como posso me livrar das linhas horizontais em cada barra? Exemplo abaixo:

x <- structure(list(SampleDate = structure(c(19738, 19744, 19744, 
19746, 19746, 19747, 19749, 19753, 19754, 19758, 19758, 19758, 
19758, 19758, 19759, 19759, 19759, 19760, 19761, 19761, 19762, 
19763, 19765, 19765, 19766, 19766, 19766, 19767, 19767, 19767, 
19770, 19770, 19771, 19771), class = "Date"), Survey = c("early", 
"late", "late", "late", "late", "late", "early", "late", "late", 
"late", "late", "late", "late", "late", "late", "early", "early", 
"early", "early", "early", "late", "late", "late", "late", "late", 
"late", "late", "late", "early", "early", "early", "early", "early", 
"early"), LifeStage = c("Adult", "Adult", "Adult", "Adult", "Adult", 
"Adult", "Adult", "Adult", "Adult", "Adult", "Juvenile", "Adult", 
"Adult", "Adult", "Adult", "Adult", "Adult", "unkLifeStage", 
"Juvenile", "unkLifeStage", "Adult", "Adult", "Adult", "unkLifeStage", 
"Adult", "unkLifeStage", "Adult", "unkLifeStage", "unkLifeStage", 
"Adult", "unkLifeStage", "Juvenile", "unkLifeStage", "Juvenile"
), numb_fish = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), year = c(2024, 
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024
), month = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)), row.names = c(NA, 
-34L), class = c("tbl_df", "tbl", "data.frame"))
x
x$SampleDate <- as.Date(x$SampleDate,"%m/%d/%Y")
x <- x |> mutate(month = floor_date(SampleDate, "month"))

ggplot(x, aes(x = month, y = numb_fish, fill = LifeStage)) +
  geom_bar(stat = "identity", color = 'black') +
  labs(title = "Monthly Data",
       y = "Total") + 
  scale_x_date(date_breaks = "1 month", date_labels = "%b-%y")

Abaixo está o gráfico que estou recebendo. Preciso me livrar dessas linhas irritantes.

insira a descrição da imagem aqui

2 respostas

    1. Basta remover/excluir a estética 'cor'

    2. isso será como abaixo;

       ggplot(data = x) +
   geom_bar(
     mapping = aes(x = month, y = numb_fish, fill = LifeStage), stat = "identity") +
   labs(title = "Monthly Data",y = "Total") + 
   scale_x_date(date_breaks = "1 month", date_labels = "%b -%y")
    • 0
  2. Best Answer

    O seu numb_fishé tudo 1, então podemos count(.)... mas caso esse número possa ser outra coisa, vamos resumir para obter algo mais útil:

    library(dplyr)
summarize(x, .by = c(month, LifeStage), n = sum(numb_fish)) |>
  ggplot(aes(month, n, fill = LifeStage)) +
  geom_bar(stat = "identity", color = "black") +
  labs(title = "Monthly Data", y = "Total") +
  scale_x_date(date_breaks = "1 month", date_labels = "%b-%y")

    insira a descrição da imagem aqui

    • 0

relate perguntas