Je me demandais simplement s’il était possible de supprimer les valeurs d’axe, que ce soit l’axe des x ou l’axe des y, dans un graphe à tracé r.
Je sais que axes = false
va supprimer l’axe entier, mais je voudrais seulement me débarrasser de la numérotation.
Supprimer la numérotation sur l'axe des x ou des y:
plot(1:10, xaxt='n')
plot(1:10, yaxt='n')
Si vous souhaitez également supprimer les étiquettes:
plot(1:10, xaxt='n', ann=FALSE)
plot(1:10, yaxt='n', ann=FALSE)
Pour ce faire, la méthode standard consiste à utiliser axes = FALSE, puis à créer vos propres axes à l’aide de Axis (ou axe). Par exemple,
x <- 1:20
y <- runif(20)
plot(x, y, axes=FALSE, frame.plot=TRUE)
Axis(side=1, labels=FALSE)
Axis(side=2, labels=FALSE)
L'équivalent réseau est
library(lattice)
xyplot(y ~ x, scales=list(alternating=0))
@Richie Cotton a une très bonne réponse ci-dessus. Je peux seulement ajouter que ceci page fournit quelques exemples. Essayez ce qui suit:
x <- 1:20
y <- runif(20)
plot(x,y,xaxt = "n")
axis(side = 1, at = x, labels = FALSE, tck = -0.01)
vous pouvez également mettre des étiquettes à l'intérieur de la parcelle:
plot(spline(sub$day, sub$counts), type ='l', labels = FALSE)
vous recevrez un avertissement. Je pense que cela est dû au fait que les étiquettes sont en fait un paramètre qui est transmis à un sous-programme exécuté par le tracé (axes?). l'avertissement apparaîtra car ce n'était pas directement un paramètre de la fonction de tracé.
Modifiez la couleur de l'axe pour qu'elle corresponde à l'arrière-plan. Si vous modifiez l'arrière-plan de manière dynamique, vous devez mettre à jour simultanément la couleur de l'axe. * L'image partagée montre l'exemple de graphe/tracé en utilisant des données fictives ()
### Main Plotting Function ###
plotXY <- function(time, value){
### Plot Style Settings ###
### default bg is white, set it the same as the axis-colour
background <- "white"
### default col.axis is black, set it the same as the background to match
axis_colour <- "white"
plot_title <- "Graph it!"
xlabel <- "Time"
ylabel <- "Value"
label_colour <- "black"
label_scale <- 2
axis_scale <- 2
symbol_scale <- 2
title_scale <- 2
subtitle_scale <- 2
# point style 16 is a black dot
point <- 16
# p - points, l - line, b - both
plot_type <- "b"
plot(time, value, main=plot_title, cex=symbol_scale, cex.lab=label_scale, cex.axis=axis_scale, cex.main=title_scale, cex.sub=subtitle_scale, xlab=xlabel, ylab=ylabel, col.lab=label_colour, col.axis=axis_colour, bg=background, pch=point, type=plot_type)
}
plotXY(time, value)