小编Pie*_*dek的帖子

我试图扭转一个等值线图的颜色.我正在使用传单包和colorNumeric()函数,这里是生成调色板函数的代码:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p)

我想做那样的事情:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p, trans='reverse')

有谁知道怎么做？

我正在使用facet_grid()来绘制每组数据划分的多个图。对于每个图，我想在角落添加 Y 轴的最高值。我尝试了几种黑客方法，但它从未给我带来预期的结果。这个答案对我有部分帮助，但我想要添加的价值会不断变化，因此我不知道如何应用它。

这是一个最小的例子，我想在下图中添加红色数字：

library(ggplot2)

data <- data.frame('group'=rep(c('A','B'),each=4),'hour'=rep(c(1,2,3,4),2),'value'=c(5,4,2,3,6,7,4,5))

ggplot(data,aes(x = hour, y = value)) +
  geom_line() +
  geom_point() +
  theme(aspect.ratio=1) +
  scale_x_continuous(name ="hours", limits=c(1,4)) +
  scale_y_continuous(limits=c(1,10),breaks = seq(1, 10, by = 2))+
  facet_grid( ~ group)

感谢您的帮助！