Tabelle

Per facilitare la costruzione delle tabelle di frequenza, il pacchetto LabRS mette a disposizione due funzioni: `percent()` (vedi) e `tabfreq()` (vedi). Per le tabelle di contingenza, è disponibile la funzione `tabcont()` (vedi).

Documentazione e aiuto

A differenza della funzione ctab() viene prodotto *solo il vettore* delle percentuali:

# carico il pacchetto
library(LabRS)
 
# dati
data(SLID, package = "carData")
 
# creo la tabella tab1
tab1 <- table(SLID$language)
 
# percentuali
percent(tab1)

##   English    French     Other 
## 78.258488  6.804491 14.937021

# con un decimale
percent(tab1, digits = 1)

 
## English  French   Other 
##    78.3     6.8    14.9

La funzione `tabfreq` consente di produrre una tabella di frequenza con:

1. il totale dei casi validi (esclusi i casi mancanti), ovvero la base di calcolo delle percentuali;
2. il numero dei casi con valori mancanti, sotto il totale (la percentuali di casi validi è calcolata sul totale del campione);
3. due decimali per le percentuali.

# tabfreq
tabfreq(SLID$language)

##            N      %
## English 5716  78.26
## French   497   6.80
## Other   1091  14.94
## Totale  7304 100.00
## NA       121   0.02

E' possibile scegliere se avere o no i totali (argomento `totali`) e il numero dei decimali, sempre con `digits`:

tabfreq(SLID$language, digits = 1, totali = FALSE)

##            N    %
## English 5716 78.3
## French   497  6.8
## Other   1091 14.9

Con la funzione tabcont() si ottiene, per default una tabella di contingenza con le frequenze percentuali di colonna, e i totali in valore assoluto (un formato standard):

# tabcont: di colonna, con arrotondamento
tabcont(SLID$language, SLID$sex)

È possibile usare gli argomenti margin (di riga o colonna), digits (numero dei decimali) e totali:

# di riga, senza totali in valore assoluto
tabcont(SLID$language, SLID$sex, 
        margin = 1, digits = 2, totali = FALSE)

##         Female  Male
## English  52.47 47.53
## French   52.72 47.28
## Other    51.70 48.30
## Totale   52.26 47.74

tabelle_labrs.R

 
# carico il pacchetto
library(LabRS)
 
# dati
data(SLID, package = "carData")
 
# creo la tabella tab1
tab1 <- table(SLID$language)
 
# percent
percent(tab1)
 
# con un decimale
percent(tab1, digits = 1)
 
# tabfreq
tabfreq(SLID$language)
tabfreq(SLID$language, digits = 1, totali = FALSE)
 
 
# tabcont: di colonna, con arrotondamento
tabcont(SLID$language, SLID$sex)
 
# di riga, senza totali, 
tabcont(SLID$language, SLID$sex, 
        margin = 2, digits = 2, totali = F)

Tabelle pivot come in Excel.

Home page del progetto

Documentazione e aiuto

pivot_ht.R

# carico il pacchetto
library(pivottabler)
 
# dati
data(SLID, package = "carData")
 
# metodo veloce, formato testo
qpvt(SLID, "language", "sex", "n()")
 
# metodo veloce, formato html
qhpvt(SLID, "language", "sex", "n()")
 
# metodo veloce, formato latex
qlpvt(SLID, "language", "sex", "n()")
 
# da formato testo a dataframe per esportazione
pt <- qpvt(SLID, "language", "sex", "n()")
pt$asDataFrame()