Karl Wolfschtagg's questions

Tenho alguns dados que estou plotando assim:

g <- ggplot(datapile, aes(x = Re, y = CD))
g <- g + geom_line(data = datapile, linetype = "solid", size = 1)
g <- g + scale_y_continuous(trans='log10', limits = c(0.01, 400), n.breaks = 20)
g <- g + scale_x_continuous(trans='log10', limits = c(0.02, 1e7), n.breaks = 20)
g <- g + ylab(expression(Drag~Coefficient*","~C[D]))
g <- g + xlab(expression(Reynolds~Number*","~frac(rho~V~d, mu)))
g

Parece bom, mas eu gostaria que os números no eixo aparecessem como nesta imagem:

Alguém sabe disso de improviso?

Estou gerando um gráfico e tentando descobrir como suprimir apenas um rótulo de marca de verificação (não a marca, apenas o rótulo).

Aqui está um exemplo de código:

x1 <- seq(0, 100, by = 1)
y1 <- runif(n = 100, min = 1, max = 10)
library(rando)
labe <- r_Letters(nchar = 1, n = 100)

test_dat <- as.data.frame(cbind(x1, y1, labe))
test_dat$x1 <- as.numeric(test_dat$x1)
test_dat$y1 <- as.numeric(test_dat$y1)

library(ggplot2)
library(ggrepel)
g <- ggplot(data = test_dat, aes(x = x1, y = y1))
g <- g + geom_line()
g <- g + geom_point()
g <- g + expand_limits(x = c(-10, 110), y = c(0, 10))
g <- g + scale_x_continuous(breaks = scales::pretty_breaks(n = 25))
g <- g + scale_y_continuous(breaks = scales::pretty_breaks(n = 5))
g <- g + geom_label_repel(data = test_dat, aes(x = x1, y = y1, label = labe), 
                         size = 2.0, color = "blue", box.padding = unit(0.5, "lines"), 
                         point.padding = unit(0, "lines"))
g

No meu conjunto de dados real, quando uso geom_label_repel para rotular meus pontos (um subconjunto dos meus dados reais; fiquei preguiçoso no meu exemplo), precisei estender o intervalo do gráfico (daí, expand_limits). Todas as marcas de escala estão onde eu gostaria, mas a da extrema esquerda (-15 no meu exemplo) não é física e eu gostaria de remover apenas essa.

Posso descobrir como suprimir todas as marcas de seleção e todos os rótulos, mas não é isso que estou procurando. Quero deixar as marcas de seleção como estão, mas apenas remover o rótulo daquela que está mais à esquerda.

Alguma ideia?