R ggplot viridis 改变颜色渐变答案

【问题标题】：R ggplot viridis change the color gradientR ggplot viridis 改变颜色渐变
【发布时间】：2020-11-27 17:08:32
【问题描述】：

您好，我正在使用 R ggplot 绘制散点图以使用 virdis 进行着色，我想拆分颜色图例以在当前图例具有 1000,2000,3000,4000 的范围之间获得更多对比度在此拆分之间以获取当前我的更多颜色代码如下

library(dplyr)
library(ggplot2)
library("viridis")

df <- tibble(gene   = sample.int(5000),aceth  = rnorm(5000),acvitd = rnorm(5000))
df$log_mean=log(df$gene)
p=ggplot(df, aes(aceth, acvitd))+
  geom_point(aes(color =gene)) +
  theme(legend.position = "top")+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"))

p=p+ theme(legend.position = "top") +
     scale_color_viridis(option = "A",
     name = "mean",
     guide = guide_colourbar(direction = "horizontal",
     barheight = unit(4, units = "mm"),
     barwidth = unit(100, units = "mm"),
     draw.ulim = F,
     title.hjust = 0.5,
     label.hjust = 0.5, title.position = "top"))

我希望我的图表是什么样子的

谁能推荐我

【问题讨论】：

标签： r ggplot2 viridis

【解决方案1】：

也许您正在寻找 scale_colour_vridis_b 来分类您的颜色？

df <- tibble(gene   = sample.int(5000),aceth  = rnorm(5000),acvitd = rnorm(5000))
df$log_mean=log(df$gene)
p=ggplot(df, aes(aceth, acvitd))+
  geom_point(aes(color = - (aceth + acvitd))) +
  theme(legend.position = "top")+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"))

p+ theme(legend.position = "top") +
     scale_colour_viridis_b(option = "A", values = 0:10 /10, breaks = 0:5 - 2.5)

【讨论】：

是的，完全一样，请您解释一下这个值和中断是如何工作的。