R 如何从ggplot2创建的图例中删除百分比细分

我已经绘制了一个图，显示了我的数据的多个方面。

scale\u color\u gradientn

创建的颜色栏令人困惑，因为它显示百分比细分。我能把这些百分比分解去掉，再加上我自己的吗。我尝试过使用

值

和

中断

参数，但没有成功。我想可能是因为大多数值都很小或接近1，所以把

ggplot

弄糊涂了。我在下面添加了一个玩具数据集、代码和图像输出

dput（df）

绘图代码

ggplot(df, aes(x = Gene, y = Log2FC, group=TimeKD)) + 
  geom_point(aes(color = -Adj.P.Value, size = Mean.Count, shape = TimeKD), alpha = 0.5)+
  coord_flip() +
  scale_colour_gradientn(
    colours = grDevices::colorRampPalette(c("black", "cyan", "violet"))(n = 200),
    values = c(0.0, 1.0), 
    #breaks = c(0.0, 0.0001, 0.001, 0.1, 1.0), <- removes legend for some reason
    space = "Lab",
    na.value = "grey50",
    guide = "colourbar",
    aesthetics = "colour"
  )+
  scale_x_discrete(limits = rev)

ggplot（df，aes（x=Gene，y=Log2FC，group=TimeKD））+
几何点（aes（颜色=-Adj.P.值，大小=平均数，形状=时间Kd），α=0.5）+
coord_flip（）+
比例\颜色\梯度n(
颜色=GR设备：：颜色渐变调色板（c（“黑色”、“青色”、“紫色”））（n=200），
值=c（0.0,1.0），
#breaks=c（0.0,0.0001,0.001,0.1,1.0），因为你的
Adj.p.value
是数字，你必须先将它分成几个类别

library(dplyr)
library(ggplot2)

df<- df %>% 
  mutate(Adj.P.Value = cut(Adj.P.Value, breaks = c(0, 0.01, 0.05, 100), labels = c("<0.01", "<0.05", ">0.05")))

ggplot(df, aes(x = Gene, y = Log2FC, group=TimeKD)) + 
  geom_point(aes(color = Adj.P.Value, size = Mean.Count, shape = TimeKD), alpha = 0.5)+
  coord_flip() 

库（dplyr）
图书馆（GG2）
df%
mutate（Adj.P.Value=cut（Adj.P.Value，breaks=c（0,0.01,0.05,100）），labels=c（“您必须将P.Value剪切到类别中，这是使用ggplot2的
cut\u number
功能实现的吗？抱歉，不太确定如何实现。请看我的答案
library(dplyr)
library(ggplot2)

df<- df %>% 
  mutate(Adj.P.Value = cut(Adj.P.Value, breaks = c(0, 0.01, 0.05, 100), labels = c("<0.01", "<0.05", ">0.05")))

ggplot(df, aes(x = Gene, y = Log2FC, group=TimeKD)) + 
  geom_point(aes(color = Adj.P.Value, size = Mean.Count, shape = TimeKD), alpha = 0.5)+
  coord_flip()