用顏色向量突出顯示ggplot2中的前3個-有解無憂

我在下面有一個代碼，我想用選定的顏色為前 3 個上色。提前謝謝了。

    library(ggplot2)
library(dplyr)

df <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                 len = c(4.2, 10, 29.5, 5, 7, 15))

df <- dplyr::mutate(df, top3 = rank(-len) %in% 1:3)


# Basic barplot
p <- ggplot(data = df, aes(x = reorder(dose, -len), y = len))  
  geom_bar(stat = "identity", fill = ifelse(df$top3 == TRUE,  c("blue", "yellow", "green"), "grey50"))   
           #color = ifelse(df$top3 == TRUE,  c("red", "yellow", "green"), "grey50"))  
  coord_flip()
p

uj5u.com熱心網友回復：

你可以這樣做：

df <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                 len = c(4.2, 10, 29.5, 5, 7, 15))

df <- df |> 
  dplyr::arrange(desc(len)) |>
  dplyr::mutate(
    rank = factor(dplyr::row_number(), labels = dose)
  )

fill_colors = c("blue", "yellow", "green")
other_colors = rep("grey50", nrow(df)-length(fill_colors))
my_scale  <- c(fill_colors, other_colors)

withr::with_options(
  list(ggplot2.discrete.fill = my_scale),
  ggplot(data = df, aes(x = reorder(dose, -len), y = len))  
  geom_bar(stat = "identity", aes(fill = rank))  
  scale_fill_discrete()  
  coord_flip()
)

用顏色向量突出顯示 ggplot2 中的前 3 個

uj5u.com熱心網友回復：

您可以在資料框中添加一個額外的顏色等級列，并相應地更改顏色scale_fill_manual：

library(ggplot2)
library(dplyr)

df <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                 len = c(4.2, 10, 29.5, 5, 7, 15))

df <- dplyr::mutate(df, top3 = rank(-len))
df <- dplyr::mutate(df, col_rank = as.character( ifelse(top3 > 3, 4, top3)))

# Basic barplot
p <- ggplot(data = df, aes(x = reorder(dose, -len), y = len, fill = col_rank))  
  geom_bar(stat = "identity")   
  coord_flip()  
  scale_fill_manual(values = c("1" = "blue", "2" = "yellow", "3" = "green", "4" = "grey50"))
p

uj5u.com熱心網友回復：

對其他建議的選項略有改動，代碼更少。我認為您對 if else 陳述句的想法通常是可以的 - 但是，您在 aes 中使用 $ 似乎很危險。我們可以這樣做的原因是頂部行數與顏色向量的長度相匹配（在這種情況下：3）

library(ggplot2)
library(dplyr)
df <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                 len = c(4.2, 10, 29.5, 5, 7, 15))

mycols <- c("blue", "yellow", "green")

df <- df %>%
  arrange(desc(len)) %>%
  mutate(fills = ifelse(row_number() <= length(mycols), mycols, "grey50"))

## swapping x and y makes coord_flip obsolete
## using I in aes is the same as adding "scale_fill_identity" at the end
ggplot(data = df, aes(x = len, y = reorder(dose, -len)))  
  geom_col(aes(fill = I(fills)))

用顏色向量突出顯示 ggplot2 中的前 3 個

^{由reprex 包于 2022-05-30 創建(v2.0.1)}

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/482735.html

標籤：r ggplot2

上一篇：如何在一張圖片中復制具有直方圖和CDF功能的圖片？

下一篇：重新排列堆疊的條形圖圖例標簽而不更改R中的圖（并修復刻度線）