如何在geom_jitter中用相应的抖动颜色给xlabs上色？

Question

我正在尝试给xlabs涂上与它们所标示的点相同的颜色，但我遇到了一些麻烦。

每个抖动的颜色取决于指定的变量级别，我希望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))

如果我将颜色(在主题(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