如何在geom_jitter中使用其抖動的相應顏色為xlabs着色？

Question

我試圖用與它們標記的點相同的顏色為 xlab 着色，但我遇到了一些麻煩。

每個抖動都根據指定的變量級別着色，我希望 xlabs 也是如此。

這是我繪制圖形的代碼：

ggplot(coverage_data, aes(x=x_values, y=coverage_data$mean, fill=coverage_data$frecuency))+
  geom_jitter(size=2.5, shape=21, stroke=1.5)+
  scale_fill_manual(name = "frecuency", values =c("deepskyblue4", "gray67", "darkgoldenrod2", "springgreen4", "brown1", "white"))+
  xlab("Id")+
  ylab("max coverage")+
  theme(axis.text.x=element_text(hjust=1, colour = 'black', size = 9))

如果我將顏色（ in theme(axis.text.x(element_text)) ）聲明為向量，則會出現錯誤。 你知道我怎樣才能做到這一點嗎？

Answer 1

傳遞顏色向量會產生警告，但使用ggplot2 3.3.0 （我正在運行的）它確實有效。

由於您沒有共享任何數據，因此我編了一些：

frecuency <- rep(c("A", "B", "C", "D", "E", "F"), 10)
mean <- runif(60, 10, 20)
x_values <- runif(60, 1, 100)

coverage_data <- data.frame(frecuency, mean, x_values, stringsAsFactors = FALSE)

ggplot(coverage_data, aes(x= x_values, y= mean, fill= frecuency))+
  geom_jitter(size=2.5, shape=21, stroke=1.5)+
  scale_fill_manual(name = "frecuency", values =c("deepskyblue4", "gray67", "darkgoldenrod2", "springgreen4", "brown1", "white"))+
  xlab("Id")+
  ylab("max coverage")+
  theme(axis.text.x=element_text(hjust=1, colour = c("black", "blue", "green", "yellow", "red"), size = 9))

警告消息：對element_text()矢量化輸入不受官方支持。 結果可能出乎意料，也可能在 ggplot2 的未來版本中發生變化。

sessionInfo()
R version 3.6.2 (2019-12-12)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)

other attached packages:
[1] ggQC_0.0.31     readxl_1.3.1    forcats_0.5.0  
[4] stringr_1.4.0   dplyr_0.8.3     purrr_0.3.3    
[7] readr_1.3.1     tidyr_1.0.2     tibble_2.1.3   
[10] ggplot2_3.3.0   tidyverse_1.3.0