我有ggplot如下两个对象。
library(ggplot2)
set.seed(1)
dat1 = data.frame(x = rnorm(1000), y = rnorm(1000))
dat2 = data.frame(x = rt(5000, 2))
Plot1 = ggplot(data = dat1, aes(x = x, y = y)) + geom_point()
Plot2 = ggplot(dat2) + geom_histogram(aes(x = x))
现在我想在 的左中部分Plot2叠加。所需的输出Plot1Plot1
为了获得更好的可见性，我还希望具有一定的透明度，Plot2以便Plot1在重叠区域不会完全被掩盖。
有什么方法可以实现吗？我在网上搜索了相关信息，但似乎都提到了添加图层。我的最终绘图结果与单纯添加图层的结果不同。
我想将图例分成ggplot多个部分。请考虑以下示例（摘自https://stackoverflow.com/a/68608592/15910619，已接受 @stefan 的答案）
library(ggplot2)
library(ggnewscale)
diamonds$cut = factor(diamonds$cut, levels=c("Fair","Good", "Very Good",
"Premium","Ideal"))
labels <- levels(diamonds$cut)
labels <- setNames(labels, labels)
labels["Fair"] <- "Very Good"
labels["Good"] <- "Premium"
colors <- hcl(seq(15, 325, length.out = 5), 100, 65)
colors <- setNames(colors, levels(diamonds$cut))
ggplot() +
geom_bar(data = diamonds, aes(color, fill = cut)) +
scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[1:2],
breaks = names(colors)[1:2], name = "First Group:",
guide = guide_legend(title.position = "left", order = 1)) +
new_scale_fill() +
geom_bar(data = diamonds, aes(color, fill = cut)) +
scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[3:5],
breaks = names(colors)[3:5], name = "Second Group:",
guide = guide_legend(title.position = "left", order = 0)) +
theme(legend.position = "bottom",
legend.direction = "horizontal",
legend.key = element_rect(fill = "white"))
但是我想改变图例中各个元素的位置样式，如下面的修改后的快照所示
有没有什么方法可以实现图例中的这种分组ggplot？
非常感谢您的时间和关注。
我有以下Q-Q plot
library(ggplot2)
ggplot(data.frame('Val' =
c(-0.6434733395, -0.0000935279, -1.2176148541, -0.4817091973, 1.1364799871, -0.8810002309, -0.8383323744, -0.7285213185, 1.6299068100, 1.0358721646, -1.5631088786, -0.6265271885,-1.1331727142, -0.7129360871,
1.6266852445, -0.3328868518, -0.9638501136, 0.1088177257, -0.6034307366, -0.3342069674, 0.0932110885, 0.1088177257, 1.9742990366, 0.6584310789, 0.7201386429, 0.9314809258, 1.1455416757)), aes(sample = Val)) +
stat_qq() + stat_qq_line() + scale_x_continuous(limits = c(-3, 3)) + scale_y_continuous(limits = c(-3, 3))
x axis and y axis这里我手动设置了 的界限c(-3, 3)。如果我设置了c(-2, 2)，由于c(-3, 3) Q-Q plot不占据整个绘图窗口，所以对角线将不可见。
所以我想知道是否有任何方法可以以编程方式设置这样的限制（对称），仅基于数据，以便我的绘图可以占据整个绘图窗口而不管数据如何，并且仍然可以看到正确绘制的对角线？
我有以下ggplot
library(ggplot2)
ggplot (structure(list(Group1 = c('A','B', 'B','A', 'B','B', 'A', 'B', 'B'), Val = c(40.707, -22.513, -3.501, -12.884, -19.668,
-5.976, -16.721, -15.838, -5.59)), row.names = c(NA, -9L), class = "data.frame"), aes (x = Group1, y = Val)) +
geom_line () +
scale_y_continuous (breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54) ,
sec.axis = sec_axis(~.,
breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54)))
上述代码生成以下图
如您所见，20.31 和 0 等点附近有多条水平网格线。
您能否帮助我们了解它们来自哪里以及如何摆脱它们？