Início / coding / Perguntas / 77859768
Accepted
MetehanGungor
Asked: 2024-01-22 20:13:15 +0800 CST

ggplot2: adicionando mais linhas em uma cor específica

  • 772

Estou tentando adicionar mais linhas ao meu gráfico de linhas. Como posso garantir que todas as linhas recém-adicionadas estejam esmaecidas?

first4letters <- c(rep("A", 3), rep("B", 3), rep("C", 3), rep("D", 3))
times <- rep(c("time1", "time2", "time3"), 4)
score <- c(5, 10, 2, 3, 4, 7, 11, 2, 9, 4, 6, 11)

df <- data.frame(first4letters, times, score)
df

plot1 <- ggplot(data = df, aes(times, score, group = first4letters)) + 
  geom_line(aes(color = first4letters)) +
  geom_point(aes(color = factor(first4letters)), size = 1) +
  theme_classic()
plot1 + scale_color_manual(values = c("red", "blue", "black", "orange"))

Vou adicionar algumas novas letras. Porém, as linhas que mostram essas letras devem ser cinza. Não consigo adicionar um novo valor à função scale_color_manual() . Porque a própria função determina a ordem das cores.

2 respostas

  1. Best Answer

    Uma opção seria usar um vetor nomeado de cores. Fazendo isso, todas as outras categorias recebem automaticamente na.value=:

    Adicionando mais duas letras aos seus dados de exemplo:

    library(ggplot2)

first4letters <- c(
  rep("A", 3), rep("B", 3),
  rep("C", 3), rep("D", 3),
  rep("E", 3), rep("F", 3)
)
times <- rep(
  c("time1", "time2", "time3"), 6
)
score <- c(
  5, 10, 2, 3, 4, 7, 11, 2, 9, 4,
  6, 11, 3, 8, 9, 10, 12, 3
)

df <- data.frame(first4letters, times, score)

pal_color <- c("red", "blue", "black", "orange")
names(pal_color) <- LETTERS[1:4]

ggplot(data = df, aes(times, score, group = first4letters)) +
  geom_line(aes(color = first4letters)) +
  geom_point(aes(color = factor(first4letters)), size = 1) +
  theme_classic() +
  scale_color_manual(values = pal_color, na.value = "grey80")

    • 1

  2. Mesmo que @stefan já tenha apresentado uma solução e funcione para você, se você não confia scale_color_manuale está interessado em outra abordagem, aqui está uma usando scale_color_identity.

    library(tidyverse)

dat <- tibble(
  grp = c(rep(LETTERS[1:6], each = 3)),
  times = rep(paste("time", 1:3, sep = "_"), 6),
  score = c(
    5, 10, 2, 3, 4, 7, 11, 2, 9, 4,
    6, 11, 3, 8, 9, 10, 12, 3
  )
  )

dat %>% 
  mutate(
    grp_color = case_when(
      grp == "A" ~ "red",
      grp == "B" ~ "blue",
      grp == "C" ~ "black",
      grp == "D" ~ "orange",
      .default = "grey"
    )
  ) %>% 
  ggplot(aes(times, score, color = grp_color)) +
  geom_line(aes(group = grp)) +
  geom_point(size = 1) +
  scale_color_identity() +
  theme_classic()
    • 1

relate perguntas