gpt4 book ai didi

r - 关闭 ggplot 裁剪删除线段

转载 作者:行者123 更新时间:2023-12-04 11:33:23 25 4
gpt4 key购买 nike

我正在尝试在 ggplot 的边缘绘制一些箭头。从我读过的内容来看,你必须关闭情节剪辑才能做到这一点。但是,当我这样做时,它会删除我在图表上的一条线段。

library(ggplot2)
library(ggrepel)
library(grid)

#----------------- Fake data practice --------------------- #

mydata <- data.frame(Labels = letters[1:14],
X_Values = seq(1, 14, 1),
Y_Values = rnorm(14, mean = 0, sd = 1),
Influence = seq(1, 14, 1))


mydata$Influencer <- factor(ifelse(mydata$Influence <= 3, 1, 0))

# --- Get min/max from data and use to set range at -1to1 or -2to2

chartMax <- ifelse(min(mydata$Y_Values) < -1 | max(mydata$Y_Values) > 1, 2, 1)
chartMin <- ifelse(chartMax == 1, -1, -2)

yTitle = "Some Title"
# --- Label setting, if greater than 0 nudge up, else nudge down

mydata$Nudger <- ifelse(mydata$Y_Values >= 0, .1, -.1)


p <- ggplot(mydata, aes(x = X_Values, y = Y_Values, group = Influencer)) +
geom_point(aes(size = Influencer, color = Influencer), shape = 18) +
geom_segment(x = 0, xend = 14, y = 0, yend = 0, color = "red", linetype = "dashed", size = 1.2, alpha = .5) +
geom_text_repel(aes(x = X_Values, y = Y_Values, label = Labels),
box.padding = .4,
point.padding = .2,
nudge_y = .1) +
scale_color_manual(values = c("grey", "blue")) +
scale_size_manual(values = c(4, 6)) +
scale_y_continuous(name = "", limits = c(chartMin, chartMax)) +
scale_x_continuous(name = yTitle,
limits = c(1, 15),
breaks = c(2,13),
labels = c("Lower", "Higher")) +
theme_classic() + theme(plot.margin = unit(c(1,3,1,2), "lines"),
legend.position="none",
axis.ticks.x=element_blank(),
axis.text.x = element_text(face = "bold"),
axis.title = element_text(face = "bold"),
axis.line.x = element_line(color = "blue"
,size = 1
,arrow =
arrow(length = unit(0.5, "cm"),
ends = "both"))) +
annotation_custom(
grob = linesGrob(arrow=arrow(type="open", ends="both", length=unit(0.5, "cm")), gp=gpar(col="blue", lwd=2)),
xmin = -1.4, xmax = -1.4, ymin = chartMin, ymax = chartMax
)

p
# Here it works and you see the red dashed line

# Turn off panel clipping
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.draw(gt)

理想情况下,我希望在页边距中有一个沿 y 轴延伸的蓝色箭头。我想我明白了,但我不能松开沿着图表内部延伸的红色虚线。

最佳答案

我无法解释为什么会发生这种情况(似乎是一个错误,我建议提出一个问题 here ),但我可以确认该问题与 alpha 行有关。如果我们从 geom_segment 中删除 alpha = 0.5 参数,那么 clipping=off 会在不删除行的情况下工作:

enter image description here

关于r - 关闭 ggplot 裁剪删除线段,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47419171/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com