- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试绘制具有正值和负值的 map 。
就像在此示例图中,所有正值都应为红色,负值应为蓝色,零应为白色,这与带有离散颜色的示例图
以下是我正在使用的代码:
library (rasterVis)
ras1 <- raster(nrow=10,ncol=10)
set.seed(1)
ras1[] <- rchisq(df=10,n=10*10)
ras2=ras1*(-1)/2
s <- stack(ras1,ras2)
levelplot(s,par.settings=RdBuTheme())
最佳答案
我写了a gist来做到这一点。它接受由trellis
生成的rasterVis::levelplot
对象和一个色带,并绘制颜色分散在零附近的对象。
使用s
,您可以像这样使用它:
devtools::source_gist('306e4b7e69c87b1826db')
p <- levelplot(s)
diverge0(p, ramp='RdBu')
ramp
应该是
RColorBrewer
调色板的名称,要插值的颜色矢量或
colorRampPalette
。
diverge0 <- function(p, ramp) {
# p: a trellis object resulting from rasterVis::levelplot
# ramp: the name of an RColorBrewer palette (as character), a character
# vector of colour names to interpolate, or a colorRampPalette.
require(RColorBrewer)
require(rasterVis)
if(length(ramp)==1 && is.character(ramp) && ramp %in%
row.names(brewer.pal.info)) {
ramp <- suppressWarnings(colorRampPalette(brewer.pal(11, ramp)))
} else if(length(ramp) > 1 && is.character(ramp) && all(ramp %in% colors())) {
ramp <- colorRampPalette(ramp)
} else if(!is.function(ramp))
stop('ramp should be either the name of a RColorBrewer palette, ',
'a vector of colours to be interpolated, or a colorRampPalette.')
rng <- range(p$legend[[1]]$args$key$at)
s <- seq(-max(abs(rng)), max(abs(rng)), len=1001)
i <- findInterval(rng[which.min(abs(rng))], s)
zlim <- switch(which.min(abs(rng)), `1`=i:(1000+1), `2`=1:(i+1))
p$legend[[1]]$args$key$at <- s[zlim]
p$par.settings$regions$col <- ramp(1000)[zlim[-length(zlim)]]
p
}
levelplot(s,par.settings=RdBuTheme(), at=seq(-max(abs(cellStats(s, range))), max(abs(cellStats(s, range))), len=100))
),则过程会简单得多。
关于r - 绘制栅格,使色带偏差在零附近,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33750235/
我在 iPhone 上遇到了 openGL 问题,我确信一定有一个简单的解决方案! 当我加载纹理并显示它时,我得到了很多我认为所谓的“色带”,其中颜色,特别是渐变上的颜色,似乎会自动“优化”。 只是为
Android Activity 或 OpenGl 中出现 strip 图像的可能解决方案是什么。 请看下面的答案。 希望对你有帮助 最佳答案 色带已解决 ooooooooooyyyyyyyeaaaa
我有一个 working 'css ribbon tag' 但是,HTML 非常丑陋:
我想创建像这张图片(图片的红色部分)一样的丝带效果: 当我尝试创建带边框的箭头效果时,对象的形状完全被破坏了: HTML代码: Kategorija 到目前为止的 CSS 代码(没有尝试创建箭头):
在应用于正在进行的应用程序之前,我正在试验一些奇特的 CSS 效果,我遇到了 Ribbons . 就其本身而言,它工作得很好,但我不会按照生成器的建议使用固定元素,所以我在主框中添加了一个图像 但是,
我正在尝试使用 ggplot2 绘制热图,并且我想调整颜色栏的大小并增加字体。 这是代码的相关部分: g <- ggplot(data=melt.m) g2 <- g+geom_rect(aes(xm
一段时间以来,我一直在使用 this创建 Angular 丝带,到目前为止它一直运行良好: body { margin: 10% } img { border-radius: 0.5vw; }
我尝试创建 MS 功能区按钮图标表单代码。我创建了 32 bpp 的 CImage。 CImage img; img.Create(size, size, 32, CImage::createAlph
我有一个很大的表格,需要将单元格的背景更改为 1 到 6 个色带,就像矩形堆叠在一起(其他信息将出现在单元格内)。虽然这个例子是一个表格,但我猜这适用于任何 DIV。我希望能够(通过动态 javasc
我正在尝试反转这个朝阳可视化的色带。它使用带有标签等的 sunburst 可缩放图表。通常情况下,您只需反转它们正在使用的范围内的值,但我不太明白它是如何在设置中获取这些值的。 这是我使用的配色方案
我是一名优秀的程序员,十分优秀!