R 按原木比例缩放填充绿色色条

R 按原木比例缩放填充绿色色条,r,ggplot2,R,Ggplot2,我希望这不是一个重复,但我不能搜索互联网太久。我真的很想产生一个热图,但有一个对数规模的色条。我不一定要将值转换为log,而是更改颜色栏,使其从0、0.01、0.1、1、10、100运行。我包括了一个reprex,它展示了我正在使用的数据示例,下面是我希望重述的一篇论文中的一个数字 图书馆管理员 my_data这里有一种使用scales::pseudo_log_trans的方法,它允许我们绘制0,但转换为超过1的日志缩放 my_breaks <- c(0, 0.01, 0.1, 1, 10

我希望这不是一个重复,但我不能搜索互联网太久。我真的很想产生一个热图,但有一个对数规模的色条。我不一定要将值转换为log,而是更改颜色栏,使其从0、0.01、0.1、1、10、100运行。我包括了一个reprex,它展示了我正在使用的数据示例,下面是我希望重述的一篇论文中的一个数字

图书馆管理员 my_data这里有一种使用scales::pseudo_log_trans的方法,它允许我们绘制0,但转换为超过1的日志缩放

my_breaks <- c(0, 0.01, 0.1, 1, 10, 100)

ggplot(data = my_data, aes(x = sample_name,
                           y = sample_genus,
                           fill = sample_abundance)) +
  geom_tile() +
  scale_fill_viridis_c(breaks = my_breaks, labels = my_breaks, 
                       trans = scales::pseudo_log_trans(sigma = 0.001))
这里有一种使用scales::pseudo_log_trans的方法,它允许我们绘制0,但转换为超过1的日志缩放

my_breaks <- c(0, 0.01, 0.1, 1, 10, 100)

ggplot(data = my_data, aes(x = sample_name,
                           y = sample_genus,
                           fill = sample_abundance)) +
  geom_tile() +
  scale_fill_viridis_c(breaks = my_breaks, labels = my_breaks, 
                       trans = scales::pseudo_log_trans(sigma = 0.001))