: Precisione del punto decimale sull'asse

Question

Ho due colonne di dati, X e Y con ciascuna voce con 4 posizioni di dati dopo il decimale in entrambi i vettori.

Quando faccio la trama semplice con plot(x,y) gli assi hanno i dati riportati fino alla precisione punto 2 decimale. Come posso cambiare questo valore con una precisione di 4 decimali, su entrambi gli assi?

Ho aggiunto i dati di esempio di seguito (inputData), che ho tracciato utilizzando plot(inputData).

inputData=structure(list(X = c(33.73521973, 33.622022, 33.63591706, 33.58184488, 
33.73027696, 33.76169838), Y = c(-112.2559051, -112.2396135, 
-112.2345327, -112.2441752, -112.2463008, -112.3298128)), .Names = c("X", 
"Y"), row.names = c(NA, 6L), class = "data.frame") 

Vorrei un esempio riproducibile su questo set di dati sopra, così come parte della risposta suggerita.

> inputData 
     X   Y 
1 33.73522 -112.2559 
2 33.62202 -112.2396 
3 33.63592 -112.2345 
4 33.58184 -112.2442 
5 33.73028 -112.2463 
6 33.76170 -112.3298 

Answer 1

Una possibilità è utilizzare axis per personalizzare le etichette. Ecco una comparazione tra lo stesso grafico usando l'asse predefinito del grafico e usando la funzione axis.

op <- par(mfrow = c(2,1)) 
set.seed(1) 
rr <- rnorm(5) 
plot(rr, 1:5, frame.plot = TRUE) 
plot(rr, 1:5, axes = FALSE, frame.plot = TRUE) 
my.at <- round(rr,4) 
axis(1, at = my.at, labels = my.at)