Come posso sopprimere le linee della griglia verticale in un grafico ggplot2 mantenendo le etichette dell'asse x?

Question

Questo è un seguito da this question, in which I was trying to suppress the vertical gridlines.

La soluzione, come fornita da learnr, consisteva nell'aggiungere scale_x_continuous (pause = NA), ma ciò ha avuto l'effetto collaterale di sopprimere anche le etichette dell'asse x. Sono assolutamente felice di scrivere le etichette di nuovo a mano, ma non mi è chiaro come capire dove dovrebbero andare le etichette.

L'altra opzione è quella di sopprimere tutte le linee della griglia (utilizzando opts (panel.grid.major = theme_blank()) o alcune di esse) e quindi ritrarre solo le griglie orizzontali principali. Di nuovo, il problema qui è come capire quali sono le interruzioni nella trama da fornire a geom_hline().

Quindi, in sostanza, le mie opzioni sono:.

1. reprimere linee verticali e le etichette dell'asse x (utilizzando scale_x_continuous (pause = NA)) e aggiungere le etichette dell'asse x indietro nel
2. Sopprimere tutto Griglie (usando opts (panel.grid.major = theme_blank())) e aggiungendo le griglie orizzontali principali usando geom_hline().

Qui ci sono due opzioni:

library(ggplot2) 

data <- data.frame(x = 1:10, y = c(3,5,2,5,6,2,7,6,5,4)) 

# suppressing vertical gridlines and x-axis labels 
# need to re-draw x-axis labels 
ggplot(data, aes(x, y)) + 
    geom_bar(stat = 'identity') + 
    scale_x_continuous(breaks = NA) + 
    opts(
    panel.grid.major = theme_line(size = 0.5, colour = '#1391FF'), 
    panel.grid.minor = theme_blank(), 
    panel.background = theme_blank(), 
    axis.ticks = theme_blank() 
) 

# suppressing all gridlines 
# need to re-draw horizontal gridlines, probably with geom_hbar() 
ggplot(data, aes(x, y)) + 
    geom_bar(stat = 'identity') + 
    scale_x_continuous(breaks = NA) + 
    opts(
    panel.grid.major = theme_blank(), 
    panel.grid.minor = theme_blank(), 
    panel.background = theme_blank(), 
    axis.ticks = theme_blank() 
) 

Answer 1

come codice nei commenti non visualizza bene, così mi distacco questa come una risposta. Si potrebbe fare qualcosa di simile e aggiungere etichette manualmente con geom_text():

ggplot(data, aes(x, y)) + 
     geom_bar(stat = 'identity') + 
     scale_x_continuous(breaks = NA) + 
     opts(
       panel.grid.major = theme_line(size = 0.5, colour = '#1391FF'), 
       panel.grid.minor = theme_blank(), 
       panel.background = theme_blank(), 
       axis.ticks = theme_blank() 
     )+ 
     geom_text(aes(label = x, y = -.3)) 

Answer 2

Si può fare questo modifica il grob direttamente, tenta:

grid.remove(gPath("panel.grid.minor.x.polyline"),grep=T) 
grid.remove(gPath("panel.grid.major.x.polyline"),grep=T) 

Sarà togliere le linee verticali. Ho solo problemi ad usarlo all'interno di una funzione, perché suppongo che funzioni solo quando viene stampato il ggplot.

Ma, se questo non è il tuo caso e avrai solo bisogno della grafica, che funzionerà.

Answer 3

Bene, ho trovato questa soluzione mentre cercavo su Google per questo problema. Non l'ho ancora provato.

http://wiki.stdout.org/rcookbook/Graphs/Axes%20(ggplot2)/

si deve scorrere verso il basso un po '.

migliore,

Felix

Answer 4

Le risposte di cui sopra non funziona in ggplot2 versione 0.9.2.1 e superiori. Fortunatamente, ora c'è un modo più semplice per farlo, come descritto in risposta a una domanda diversa: https://stackoverflow.com/a/8992102/800044.