- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我无法将存储在变量中的 POSIXct 作为 geom_rect 的 xmin/xmax 传递。我试图构建一个独立的示例,而不会轻视我正在尝试做的事情......
这个想法是采用一个 ggplot2 绘图对象,其 x 是一个 POSIXt,并在特定时间范围内“放大”。缩放位于顶部 80%,整个系列位于底部 20%,并带有指示哪个部分在顶部缩放。
我的问题是我似乎无法将 xmin/xmax 传递给 geom_rect - 我尝试过的每件事(除了手动组装绘图而不是函数)都给了我一个不同的错误。我尝试过使用 aes()、aes_string()、作为参数而不是美学传递、只传递字符串等。
下面的例子告诉我:
Error in eval(expr, envir, enclos) : object 'lims' not found
library(ggplot2)
subplot <- function(x, y) viewport(layout.pos.col=x, layout.pos.row=y)
vplayout <- function(x, y) {
grid.newpage()
pushViewport(viewport(layout=grid.layout(y,x)))
}
anm_zoom <- function(limits, p) {
lims <- as.POSIXct(limits)
limlab <- paste(lims, collapse=" to ")
top <- p + scale_x_datetime(limlab, limits=lims, expand=c(0,0))
bottom <- p;
bottom <- bottom + opts(title="")
bottom <- bottom + opts(legend.position="none")
bottom <- bottom + opts(axis.title.y=theme_blank())
bottom <- bottom + scale_x_datetime("", expand=c(0,0))
bottom <- bottom + geom_rect(aes(xmin=lims[1], xmax=lims[2]),
ymin=-Inf, ymax=Inf, fill="grey80", alpha=0.01)
## Render the plots
vplayout(1,5)
print(top, vp=subplot(1,c(1,2,3,4)))
print(bottom, vp=subplot(1,5))
}
pdate <- seq.POSIXt(from=as.POSIXct("2010-09-09 00:00"),
to=as.POSIXct("2010-09-10 23:59"), by="2 mins")
var1 <- rnorm(length(pdate))
var2 <- rnorm(length(pdate))
df1 <- data.frame(pdate, var1, var2)
dm <- melt(df1, id="pdate")
p <- ggplot(dm) + aes(x=pdate, y=value) + stat_summary(fun.y="sum", geom="line")
anm_zoom(c("2010-09-09 12:15", "2010-09-09 12:30"), p)
最佳答案
嗯,我想你需要一个新的 aes
有点像aes
的函数(因为它不尝试解析它的参数)有点像 aes_string
(因为它立即在本地环境中评估其参数):
aes_now <- function(...) {
structure(list(...), class = "uneval")
}
bottom <- bottom + geom_rect(aes_now(xmin=lims[1], xmax=lims[2]),
ymin=-Inf, ymax=Inf, fill="grey80", alpha=0.01)
关于r - 如何从变量传递 ggplot2 美学?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3737619/
我无法将存储在变量中的 POSIXct 作为 geom_rect 的 xmin/xmax 传递。我试图构建一个独立的示例,而不会轻视我正在尝试做的事情...... 这个想法是采用一个 ggplot2
我想动态修改/创建美感,而无需重新创建geom层。以下是我的代码。 library("ggplot2") dat 3)) 这里我必须修改geom_point以添加美感。这个想法是始终绘制点并动态修改颜
我想更改一组 ggplot 的点和线的默认颜色。 当然,我可以定义一种颜色,然后在每个绘图中显式调用它: my_colour <- "firebrick" ggplot(cars, aes(speed
假设我有两个 ggplot 美学: a.1 c(a.1,a.2) $v.1 [1] 1 $v.2 [1] 2 $v.3 [1] 3 aes对象是“未计算的表达式”和 c()函数按预期工作,具体取决于
我想使用具有 2 美学的包 ggpubr 的 ggline。等效项在 geom_line 中完美运行,但在 ggline 中无效。假设我有这个数据集 data % mutate(a = x^2,
我有以下数据集 map(.x = list(small = 3, medium = 10, large = 100) , .f = ~ sample(rnorm(1000), .x, r
Scatterplot<-ggplot( diamonds[sample(nrow(diamonds), 1000), ], aes(carat, price, colour=cl
我是一名优秀的程序员,十分优秀!