如何更改GGPLOT GEOM_BAR和Legend Title中的条名？

Question

我有一个数据框架：

id = c("A","B","C","D","E")
C1 = c(T,F,T,F,T)
DAT = tibble(id,C1);DAT
ggplot(DAT,aes(C1,color="lightblue"))+ geom_bar(aes(color="black",fill = "red"))

我想创建一个这样的条形图：

，

但我想将the更改为“ ok”，false forse fors fors“ nock'右边的传奇不是标题，而不是颜色，而是“检查”。我该如何在R中进行？

可选的

如果我与NA有一行，该如何改变？ 例如：

id = c("A","B","C","D","E")
C1 = c(T,F,NA,F,T)
DAT = tibble(id,C1);DAT

Answer 1

像这样？

library(tidyverse)

id <- c("A", "B", "C", "D", "E", "F")
C1 <- c(T, F, T, F, T, NA)
DAT <- tibble(id, C1)
DAT
#> # A tibble: 6 × 2
#>   id    C1   
#>   <chr> <lgl>
#> 1 A     TRUE 
#> 2 B     FALSE
#> 3 C     TRUE 
#> 4 D     FALSE
#> 5 E     TRUE 
#> 6 F     NA

DAT |>
  mutate(C1 = case_when(
    C1 == TRUE ~ "ok",
    C1 == FALSE ~ "not ok",
    TRUE ~ "not declared"
  )) |>
  ggplot(aes(C1, fill = C1)) +
  geom_bar() +
  labs(fill = "Check")

^{由 reprex软件包（v2.0.1）}

Answer 2

要在传说中出现变量，请避免修复颜色，例如fill =“ LightBlue”，而是使用所需的变量，例如fill = c1

id = c("A","B","C","D","E")
C1 = c(T,F,T,F,T)
DAT = tibble(id,C1);DAT
    
ggplot(DAT,aes(C1)) + 
  geom_bar(aes(fill = C1)) +
  scale_x_discrete(labels = c("Not OK", "OK")) +
  scale_fill_manual(labels = c("Not Ok", "OK"), values = c("darkred", "darkblue")) +
  labs(fill = "Anything here")

Answer 3

代替if_else您可以使用case_when允许矢量化多个if_else（）语句，例如

library(tidyverse)

id = c("A","B","C","D","E")
C1 = c(T,F,T,F,T)
DAT = tibble(id,C1)

DAT  %>% 
  mutate(C2 = case_when(C1 == TRUE ~ "OK",
            C1 == FALSE ~ "Not OK")) %>% 
  ggplot(aes(C2, fill = C2)) + 
  geom_bar() +
  labs(fill = "Check")

Answer 4

请参阅此答案：

library(tidyverse)
id = c("A","B","C","D","E")
C1 = c(T,F,T,F,T)
DAT = tibble(id,C1)

ggplot(
  DAT,
  aes(C1,color="lightblue")) + 
  geom_bar(aes(color="black", fill = "red")) +
  scale_x_discrete(
    breaks = c(FALSE, TRUE),
    labels = c("not ok", "ok"))