Obtenir le type de tracé R "b"

Question

est-il possible dans ggplot2 d'obtenir le type de tracé "b"? Voir par exemple:

x <- c(1:5) 
y <- x 
plot(x,y,type="b") 

Idéalement, je veux remplacer points par leurs valeurs pour avoir quelque chose de semblable à cet exemple célèbre:

EDIT: Voici quelques exemples de données (je veux tracer chaque "chat" dans une facette avec le type de tracé "b"):

`df <- data.frame(x=rep(1:5,9),y=c(0.02,0.04,0.07,0.09,0.11,0.13,0.16,0.18,0.2,0.22,0.24,0.27,0.29,0.31,0.33,0.36,0.38,0.4,0.42,0.44,0.47,0.49,0.51,0.53,0.56,0.58,0.6,0.62,0.64,0.67,0.69,0.71,0.73,0.76,0.78,0.8,0.82,0.84,0.87,0.89,0.91,0.93,0.96,0.98,1),cat=rep(paste("a",1:9,sep=""),each=5))` 

Cordialement, Musa

Answer 1

Il y a une Grob expérimentale gridExtra pour mettre en œuvre ce dans les graphiques de la grille,

library(gridExtra) 
grid.newpage() ; grid.barbed(pch=5) 

Answer 2

Configurez les axes en dessinant le tracé sans aucun contenu.

plot(x, y, type = "n") 

Utilisez ensuite text pour faire vos points de données.

text(x, y, labels = y) 

Vous pouvez ajouter des segments de ligne avec lines.

lines(x, y, col = "grey80") 

EDIT: Échec total de la mention de ggplot dans la question. Essaye ça.

dfr <- data.frame(x = 1:5, y = 1:5) 
p <- ggplot(dfr, aes(x, y)) + 
    geom_text(aes(x, y, label = y)) + 
    geom_line(col = "grey80") 
p 

AUTRE EDIT: Compte tenu de votre nouvel ensemble de données et demande, voici ce dont vous avez besoin.

ggplot(df, aes(x, y)) + geom_point() + geom_line() + facet_wrap(~cat) 

ENCORE UNE AUTRE ÉDITION: Nous commençons à aborder une vraie question. Comme dans 'comment faites-vous que les lignes n'atteignent pas tout à fait les points'.

La réponse courte est que ce n'est pas une manière standard de le faire dans ggplot2. La bonne façon de le faire serait d'utiliser geom_segment et d'interpoler entre vos points de données. C'est beaucoup d'effort cependant, donc je suggère un fudge plus facile: dessinez de grands cercles blancs autour de vos points. L'inconvénient est que cela rend le quadrillage ridicule, alors vous devrez vous en débarrasser.

ggplot(df, aes(x, y)) + 
    facet_wrap(~cat) + 
    geom_line() + 
    geom_point(size = 5, colour = "white") + 
    geom_point() + 
    opts(panel.background = theme_blank())