Mohan's questions

O MWE abaixo produz um gráfico como este:

Os rótulos das linhas, X, Y, Z, se sobrepõem ao lado direito do gráfico de barras de forma feia. Gostaria que fossem movidos mais para a direita, deixando uma pequena margem entre o gráfico e a tabela. A documentação de matplotlib.pyplot.table não possui nenhuma locopção que permita isso. O bboxargumento pode permitir, mas parece que seria necessário tentar e errar com diferentes caixas delimitadoras para que isso funcionasse.

Existe uma maneira de deixar isso mais claro?

import matplotlib.pyplot as plt
import seaborn as sns

plt.figure(figsize=(9, 5), dpi=300)
ax = sns.barplot(
    x = range(1, 3),
    y = [15,30],
    legend=False,
)
plt.table(cellText=['A','B','C'], rowLabels=['X','Y','Z'], colWidths=[0.15], loc='right')
plt.show()

Quando adiciono um rótulo de texto vertical a um seaborngráfico de barras, os rótulos são deslocados para a esquerda do centro, assim:

Como posso deslocar os rótulos um pouco para a direita para que fiquem bem centralizados?

MWE:

import matplotlib.pyplot as plt
import seaborn as sns

percentages = [8.46950845e+00, 1.58712232e+01, 2.13963086e+01, 2.33865318e+01, 2.04539820e+01, 1.41358888e+01, 7.79622697e+00, 3.49245775e+00, 1.28729140e+00, 3.91327891e-01, 9.80073446e-02, 2.02461563e-02, 3.46222120e-03, 4.92413036e-04, 5.82500571e-05, 5.70562340e-06, 4.59952409e-07, 3.05322729e-08, 1.57123083e-09, 4.80936609e-11]

plt.figure(figsize=(9, 5), dpi=100)
ax = sns.barplot(
    x = range(1, len(percentages) + 1),
    y = percentages,
    legend=False,
    hue = range(1, len(percentages) + 1),
    palette="GnBu_d"
)
plt.text(0, percentages[0]/2, "Additive", ha="center", va="center", rotation=90, fontsize=10, weight="bold")
plt.text(1, percentages[1]/2, "Additive x Additive", ha="center", va="center", rotation=90, weight="bold")
plt.show()

Quero carregar uma imagem (PNG/JPEG) no RStudio e depois exibi-la. Mas quando executo

plot(load.image("solidblack.png"), ann = FALSE, axes = FALSE, mar = c(0,0,0,0))

Eu obtenho margens muito substanciais em torno da minha imagem, apesar do marargumento de plot:

Como posso consertar isso?

Tenho alguns ggplots que ajustei para garantir que as anotações se encaixem bem dentro dos limites do gráfico. Por exemplo:

Agora eu quero colocar duas dessas imagens lado a lado. Eu tentei fazer isso com grid.arrange e patchwork, mas o layout do gráfico muda, presumivelmente porque ele está sendo encaixado em um espaço menor:

Tudo fica mais apertado, os pontos ficam mais próximos, o que dificulta a leitura, e as caixas de anotação ficam fora do gráfico.

O que eu quero fazer é expandir a tela exatamente o suficiente para que cada gráfico pareça exatamente como era quando plotado sozinho (ou seja, quando plotado usando o tamanho de tela padrão). Presumivelmente, precisaria ser um pouco mais do que o dobro da largura, para permitir o preenchimento. Como eu conseguiria isso?

Código de exemplo:

library(ggplot2)
library(ggtext)
library(tidyverse)
library(patchwork)

N <- 10000
rho = 0.5
  
mu <- c(0, 0)
sigma <- matrix(c(1,   rho,
                  rho, 1   ), 
                nrow = 2, ncol = 2, byrow = TRUE)
            
vs = MASS::mvrnorm(N, mu, sigma)
df = tibble(rMZall = vs[,1], rDZall = vs[,2], n_twin_pairs = runif(N, 5000, 50000))

plot <- function(min_twin_pairs) {
  ggplot(data=df |> filter(n_twin_pairs > min_twin_pairs), aes(rMZall, rDZall)) + 
    ggtitle(sprintf("Studies with > %d twin pairs", min_twin_pairs)) + 
    theme(legend.position="none") +
    # Bounds
    scale_x_continuous(name = "rMZ", limits = c(-0.05, 1.1), breaks = seq(0,1,0.25)) +
    scale_y_continuous(name = "rDZ", limits = c(-0.05, 1), breaks = seq(0,1,0.25)) +
    coord_fixed() +
    # Scatterplot
    stat_density2d(aes(fill=..level.., alpha=..level..), geom='polygon', colour='black', linewidth = 0.1) + 
    scale_fill_continuous(low="green", high="red") +
    geom_point(aes(size = sqrt(n_twin_pairs))) +
    scale_size_continuous(range = c(0, 1)) + 
    # AE and AD lines
    geom_abline(intercept = 0, slope = .5) +
    annotate(geom = "richtext", x = 1, y = .5, label = "AE model", angle = 26.6) + 
    geom_abline(intercept = 0, slope = .25) +
    annotate(geom = "richtext", x = 1, y = .25, label = "AD model", angle = 14.0) 
}

plot1000 = plot(min_twin_pairs = 1000)
plot4000 = plot(min_twin_pairs = 4000)

plot1000
plot4000

plot1000 + plot4000

Eu tenho um vetor xe uma função f. Preciso gerar a matriz cuja primeira coluna é v, segunda coluna é f(v), e assim por diante até a coluna final f^k(v). Em uma linguagem funcional eu poderia usar uma operação de desdobramento . Dei uma olhada no purrrcheatsheet, mas não consigo encontrar nenhum análogo.

Se você precisar de um exemplo concreto, pegue v = c(1:100)e f = function(x){return (2*x)}- mas por favor não explore o fato de que f^k tem uma bela forma fechada neste caso.

MWE:

library(metR)

heat_palette = c("darkred", "red", "yellow", "#00A600", "darkgreen")

heatmap_of_percentage <- function(percent) {
  # display <- sprintf("%2f%%", {{percent}})  
  # ^^ If I uncomment this, I get a bug
  c(
    geom_raster(aes(fill = {{percent}})),
    geom_contour(aes(z = {{percent}}), color = "black"),
    geom_text_contour(aes(z = {{percent}}), color = "black", stroke = 0.2),
    scale_fill_gradientn(limits = c(0, 100), colours = heat_palette)
  )
}
  
df <- expand.grid(x = 1:100, y = 1:100)
df$Z <- df$x * df$y / 100

ggplot(df, aes(x = x, y = y)) + 
  heatmap_of_percentage(percent = Z)

produz

Gostaria de modificar isso para que os contornos sejam rotulados como 10%, 30%, etc. Como posso fazer isso, apenas modificando heatmap_of_percentage(ou seja, não adicionando uma coluna extra no código de chamada)?