web-dev-qa-db-fra.com

étiquettes d'axe rotatif dans R

Dans R, comment créer des étiquettes d'axe des ordonnées (barres) parallèles à l'axe X au lieu d'être parallèles à l'axe Y?

137
Zach

Vous ne savez pas si c'est ce que vous voulez dire, mais essayez de définir las=1. Voici un exemple:

require(grDevices)
tN <- table(Ni <- stats::rpois(100, lambda=5))
r <- barplot(tN, col=Rainbow(20), las=1)

 output

Cela représente le style des étiquettes d'axe. (0 = parallèle, 1 = tout horizontal, 2 = tout perpendiculaire à l'axe, 3 = tout vertical)

155
Shane

Utilisez par(las=1).

Voir ?par:

las
numeric in {0,1,2,3}; the style of axis labels.
0: always parallel to the axis [default],
1: always horizontal,
2: always perpendicular to the axis,
3: always vertical.
84
rcs

Comme Maciej Jończyk l'a mentionné, vous devrez peut-être également augmenter les marges.

par(las=2)
par(mar=c(8,8,1,1)) # adjust as needed
plot(...)
18
fedorn

Vous devez utiliser la fonction theme () comme suit:

ggplot(...)+...+ theme(axis.text.x = element_text(angle=60, hjust=1))
8
MCH

Tout d'abord, créez les données pour le graphique

H <- c(1.964138757, 1.729143013,    1.713273714,    1.706771799,    1.67977205)
M <- c("SP105", "SP30", "SP244", "SP31",    "SP147")

Deuxièmement, donnez le nom d'un fichier graphique

png(file = "Bargraph.jpeg", width = 500, height = 300)

Troisièmement, tracer le graphique à barres

barplot(H,names.arg=M,ylab="Degree ", col= Rainbow(5), las=2, border = 0, cex.lab=1, cex.axis=1, font=1,col.axis="black")
title(xlab="Service Providers", line=4, cex.lab=1)

Enfin, sauvegardez le fichier

dev.off()

Sortie:

 enter image description here

0