R 如何在颜色调色板中增加颜色强度

我在R中使用pheatmap包制作不同种类数据的热图，并使用colorramppalette制作颜色，但颜色非常鲜艳

我想要一些深色的，我怎么做

代码如下：

hmcols<-colorRampPalette(c("white","red"))(256)

pheatmap(
  test,
  color=hmcols,
  cluster_rows=FALSE,
  cluster_cols=FALSE,
  legend=TRUE,
  show_rownames=FALSE,
  show_colnames=FALSE,
  filename="a.png"
)

---

hmcols尝试使用
hcl
并调整亮度步长。例如：

cols <- hcl(0,l=seq(1,100,length=11))
cols
# [1] "#3F0000" "#470016" "#591D2D" "#6F3744" "#87505B" "#A06974" "#BB838D" "#D69DA8"
# [9] "#F1B8C3" "#FFD4DE" "#FFF0FB"
plot(1:11,cex=4,bg=cols,pch=21)

我试过了……例如，我想这样，你可能想读一读，以及关于它是如何工作的。如果当您收到解决问题的答案时，您通过单击小复选标记或向上投票来接受它，则StackOverflow对每个人都更有价值。你完全没有义务这样做，但是如果一个答案确实解决了你的问题，并且通过从未回答的问题堆中删除已回答的问题来帮助保持网站的整洁，那么这是一个“回馈”网站的好方法。如果你需要更多的颜色建议，请询问
require(RColorBrewer)
par(mfrow=c(2,2))

cols <- colorRampPalette( colors = hcl(0,l=seq(1,100,length=11)) )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "HCL Colours")

cols <- colorRampPalette( colors = rev(brewer.pal(9,"Reds")) )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Sequential RColorBrewer palette")

cols <- colorRampPalette( colors = rev(brewer.pal(9,"Reds"))[1:5] )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Truncated sequential\nRColorBrewer palette" )

cols <- colorRampPalette( colors = brewer.pal(9,"RdBu") )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Diverging RColorBrewer palette" )