如何连续改变透明度?
How to continuously vary transparency?
假设我们在 R 中创建一个彩色带:
library(ggplot2)
dev.new(width=6, height=3)
ggplot(data.frame(20,20)) +
geom_rect(aes(xmin=0, xmax=100, ymin=0, ymax=50), fill="blue")
我想沿 y 轴连续改变带的透明度,alpha 值呈正态分布:
dnorm(y - 25) / 12.5) / dnorm(0)
如何实现?谢谢!
您可以根据您想要的函数将其绘制为一堆离散的矩形,其中 alpha 随 y 变化。
library(ggplot2)
# make this bigger for smaller rects/smoother gradient
n_rects <- 51
dat <- data.frame(y=seq(0, 50, length.out = n_rects))
dat$alpha <- dnorm((dat$y - 25) / 12.5) / dnorm(0)
ggplot(dat) +
geom_rect(xmin=0, xmax=100,
aes(ymin=y, ymax=y+1, alpha=alpha), fill="blue")
假设我们在 R 中创建一个彩色带:
library(ggplot2)
dev.new(width=6, height=3)
ggplot(data.frame(20,20)) +
geom_rect(aes(xmin=0, xmax=100, ymin=0, ymax=50), fill="blue")
我想沿 y 轴连续改变带的透明度,alpha 值呈正态分布:
dnorm(y - 25) / 12.5) / dnorm(0)
如何实现?谢谢!
您可以根据您想要的函数将其绘制为一堆离散的矩形,其中 alpha 随 y 变化。
library(ggplot2)
# make this bigger for smaller rects/smoother gradient
n_rects <- 51
dat <- data.frame(y=seq(0, 50, length.out = n_rects))
dat$alpha <- dnorm((dat$y - 25) / 12.5) / dnorm(0)
ggplot(dat) +
geom_rect(xmin=0, xmax=100,
aes(ymin=y, ymax=y+1, alpha=alpha), fill="blue")