Daniel Lobo's questions

Tenho dois ggplotobjetos como abaixo.

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))

Agora eu gostaria de sobrepor Plot2na Plot1parte central esquerda de Plot1. Saída desejada

Para melhor visibilidade, também desejo ter alguma transparência Plot2para que Plot1não fique completamente mascarado na região de sobreposição.

Existe alguma maneira de fazer isso? Pesquisei informações relevantes na internet, mas todas parecem se referir à adição de camadas. Meu gráfico final será diferente de apenas adicionar camadas.

Quero agrupar a legenda em ggplotvárias partes. Vejamos o exemplo abaixo (retirado de https://stackoverflow.com/a/68608592/15910619 como resposta aceita de @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"))

No entanto, gostaria de alterar o estilo de posição de vários elementos da legenda, conforme demonstrado no instantâneo modificado abaixo

Existe alguma maneira de conseguir esse tipo de agrupamento na lenda ggplot?

Muito obrigado pelo seu tempo e atenção.

Eu tenho abaixoQ-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))

Aqui eu coloquei os limites de x axis and y axiscomo c(-3, 3)manualmente. Se eu tivesse colocado c(-2, 2), já que with c(-3, 3) Q-Q plotnão ocupa a janela de plotagem inteira, então a linha diagonal não seria visível.

Então, eu queria saber se há alguma maneira de colocar esse limite (simétrico) programaticamente, com base apenas nos dados, para que meu gráfico ocupe toda a janela do gráfico, independentemente dos dados, e ainda veja a linha diagonal desenhada corretamente?

Eu tenho abaixoggplot

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)))

Os códigos acima geram o gráfico abaixo

Como você pode ver, há várias linhas de grade horizontais perto de pontos como 20,31 e 0 etc.

Você poderia me ajudar a entender de onde eles vêm e como me livrar deles?