Skip to content

Instantly share code, notes, and snippets.

@RCura
Last active June 12, 2018 22:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save RCura/0c4c58f2e2b4fa8e2cd961c73caacb1f to your computer and use it in GitHub Desktop.
Save RCura/0c4c58f2e2b4fa8e2cd961c73caacb1f to your computer and use it in GitHub Desktop.
Connexion à PostgreSQL + histogramme avec ggplot2
# Connexion à la BDD PostgreSQL
library(DBI) # Package générique pour la connexion à des BDD
library("RPostgreSQL") # Package apportant les drivers pour PostgreSQL
driver <- dbDriver("PostgreSQL")
con <- DBI::dbConnect(drv = driver,
host = "ip de la BDD",
port = "port de la BDD",
user = "user de la BDD",
password = "En clair ici, sinon, on peut l'inclure autrement mais c'est plus compliqué",
)
library(dplyr) # Package de manipulation de données
library(dbplyr) # Package permettant d'utiliser dplyr (package précédent) sur des DB
df_distant <- tbl(con, "LaTableQueTuVeuxInterroger")
library(ggplot2) #Package de création de graphiques
ggplot(df_distant) + # On ouvre le graphique sur les données en BDD
geom_histogram(aes(leNomDeLaVariableDontTuVeuxLHistogramme)) # On ajoute une géométrie de type histogramme qui va représenter la variable (sans quote) indiquée dans l'argument aes() (= aesthetics)
dbDisconnect(con) # On ferme la connexion quand on a fini
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment