calcolare il numero di cifre in un vettore numerico nel R

Question

Ho un vettore di numerico R:

c(0.9, 0.81) 

e vorrei estrarre il numero di cifre per ogni elemento in questo vettore. Il comando restituirà, in questo caso, 1 e 2 poiché le cifre sono 9 e 81. C'è un modo conveniente per farlo? Inoltre, se il risultato è 1, come posso espandere a due cifre? Ad esempio, mi piacerebbe un vettore tornato a essere

c(0.90, 0.81) 

Answer 1

x <- c(0.9,0.81,32.52,0); 
nchar(sub('^0+','',sub('\\.','',x))); 
## [1] 1 2 4 0 

Questo elimina la virgola decimale, quindi strisce tutto zeri iniziali e infine utilizza la lunghezza della stringa come mezzo indiretto per calcolare il numero di cifre significative. Restituisce naturalmente zero per un input zero, ma è possibile utilizzare un'espressione if per verificare esplicitamente il caso e restituirne uno, se preferisci.

Come akrun menzionato, per la stampa con due cifre dopo la virgola: ('% 2f', v1)

sprintf('%.2f',x); 
## [1] "0.90" "0.81" "32.52" "0.00" 

Answer 2

a contare le cifre dopo la virgola, è possibile utilizzare nchar

sapply(v, nchar) - 2 # -2 for "." and leading 0 
# 1 2