ergebnis <- dbGetQuery(con, "
SELECT a.kategorie, SUM(b.betrag) AS umsatz
FROM bestellung b JOIN artikel a ON a.artikel_id = b.artikel_id
GROUP BY a.kategorie ORDER BY umsatz DESC")
ergebnis kategorie umsatz
1 Elektronik 2400
2 Pneumatik 1968
3 Mechanik 740
sapply(ergebnis, class) kategorie umsatz
"character" "numeric"
roh <- dbGetQuery(con, "SELECT * FROM bestellung LIMIT 2")
sapply(roh, class) bestell_id artikel_id datum menge betrag
"integer" "integer" "character" "integer" "numeric"
roh$datum <- as.Date(roh$datum)
sapply(roh, class)bestell_id artikel_id datum menge betrag
"integer" "integer" "Date" "integer" "numeric"