ggplot图例与日志

Question

我正在尝试使用值的日志来填充图中的条形，并使用填充图例来显示原始值。

我想要的图例颜色示例：

library(data.table)
df = data.table(date=Sys.Date()+0:7,
                size=c(100,200,50,300,450,70,50,200),
                objective=c(1,2,2,2,5,2,3,1),
                actuals=c(0.8,2.5,2,2.2,4,1.8,15,0.2))
df[,deviation:=actuals/objective-1]
df[,log_deviation:=log(deviation+1)]

ggplot(df,aes(date,size,fill=log_deviation))+geom_bar(stat="identity")+
  scale_fill_gradient2(high = "tomato", low = "blue",mid = "seagreen1",labels = scales::percent)

还有我想要的图例值：

ggplot(df,aes(date,size,fill=deviation))+geom_bar(stat="identity")+
  scale_fill_gradient2(high = "tomato", low = "blue",mid = "seagreen1",labels = scales::percent)

有一种优雅的方法吗？谢谢！

Answer 1

您可以在比例尺中定义转换：

ggplot(df,aes(date,size,fill = deviation))+geom_bar(stat="identity")+
  scale_fill_gradient2(high = "tomato", low = "blue",
    mid = "seagreen1",labels = scales::percent, 
    trans = "log1p")

如果您不喜欢默认间隔，请在刻度中定义breaks。