ggplot2: hanno segni di graduazione più brevi per i segni di graduazione senza etichette

Question

Ho un grafico che utilizza ggplot2 in cui mi piacerebbero molte zecche lungo l'asse x, ma solo alcune delle zecche avranno etichette di graduazione associate ad esse. Tuttavia, mi piacerebbe che i segni di graduazione per coloro che hanno etichette siano più lunghi di quelli che non lo fanno.

Answer 1

theme(axis.ticks.length)

http://docs.ggplot2.org/0.9.2.1/theme.html dovrebbe essere utile.

Modifica Mi dispiace, leggi la tua domanda con più attenzione. Gli etichettati sono quelli standard major.grid? o etichettato in qualche modo personalizzato?

Answer 2

In base di R, è possibile sopprimere l'asse x con l'iniziale plot chiamata (con xaxt='n'), e quindi utilizzare tcl per controllare lunghezza tick (vedi ?par) con due axis(1, ...) chiamate.

plot(1:10, xaxt='n', ylab='', las=1) 
axis(1, at=1:10, tcl=-0.8) 
axis(1, at=seq(0, 11, 0.2), labels=NA) 

Answer 3

Questo è più facile con la grafica di base, ma qui è un tentativo utilizzando ggplot2.

Il metodo è basato su this method, che inserisce etichette vuote nella sequenza di etichette (utilizzando il codice da tale risposta). Una volta che le interruzioni e le etichette sono state posizionate nel ggplot, ho scavato nella struttura del grafico per modificare le lunghezze dei segni di graduazione. (Usare con cura, non sarebbe stato difficile rompere questo.)

library(ggplot2) 
library(grid) 

# Data 
df = data.frame(x = 1:10, y = 1:10) 

# Range of x values 
range = 1:10 

# Major tick marks 
major = 1 

# Minor tick marks 
minor = 0.2 

# Function to insert blank labels 
# Borrowed from https://stackoverflow.com/questions/14490071/adding-minor-tick-marks-to-the-x-axis-in-ggplot2-with-no-labels/14490652#14490652 
insert_minor <- function(major, n_minor) { 
     labs <- c(sapply(major, function(x, y) c(x, rep("", y)), y = round(n_minor))) 
     labs[1:(length(labs) - n_minor)] 
} 

# Getting the 'breaks' and 'labels' for the ggplot 
n_minor = major/minor - 1 
breaks = seq(min(range), max(range), minor) 
labels = insert_minor(seq(min(range), max(range), major), n_minor) 
if(length(breaks) > length(labels)) labels = c(labels, rep("", length(breaks) - length(labels))) 

# The plot 
p <- ggplot(df, aes(x = x, y = y)) + 
    geom_point() + 
    scale_x_continuous(breaks = breaks, labels = labels) + 
    coord_cartesian(xlim = range) + 
    theme_bw() + 
    theme(panel.grid = element_blank(), 
      axis.text.x = element_text(margin = margin(t = 5, unit = "pt"))) 
p 

# Edit the plot: 
# Change the lengths of the major tick marks 

g = ggplotGrob(p) 

# Get the x axis 
xaxis <- g$grobs[[which(g$layout$name == "axis-b")]] 

# Get the tick marks and tick mark labels 
ticks <- xaxis$children[[2]] 

# Get the tick marks 
marks = ticks$grobs[[1]] 

# Edit the y positions of the end points of the tick marks 
# The '6' and the '3' in the code below 
# are the lengths in pts of the major and minor tick marks respectively. 
marks$y = unit.c(unit.c(unit(1, "npc") - unit(6, "pt"), unit(1, "npc"), 
       rep(unit.c(unit(1, "npc") - unit(3, "pt"), unit(1, "npc")), n_minor))) 

# Put the tick marks back into the plot 
ticks$grobs[[1]] = marks 
xaxis$children[[2]] = ticks 
g$grobs[[which(g$layout$name == "axis-b")]] = xaxis 

# Draw the plot 
grid.newpage() 
grid.draw(g)