Bar Plots - R Base Graphs

  • Pleleminary tasks
  • Basic bar plots
    • Change group names
    • Change color
    • Change main title and axis labels
  • Stacked bar plots
  • Grouped bar plots
  • Related articles
  • See also
  • Infos

Previously, we described the essentials of R programming and provided quick start guides for importing data into R.

Here, we'll describe how to create bar plots in R. The function barplot() can be used to create a bar plot with vertical or horizontal bars.

Basic bar plots

                  # Bar plot of one variable barplot(x) # Horizontal bar plot barplot(x, horiz = TRUE)

Change group names

                    barplot(x, names.arg = c("A", "B", "C"))

Change color

                    # Change border and fill color using one single color barplot(x, col = "white", border = "steelblue") # Change the color of border. #  Use different colors for each group barplot(x, col = "white",         border = c("#999999", "#E69F00", "#56B4E9")) # Change fill color : single color barplot(x, col = "steelblue") # Change fill color: multiple colors barplot(x, col = c("#999999", "#E69F00", "#56B4E9"))

Change main title and axis labels

                    # Change axis titles # Change color (col = "gray") and remove frame barplot(x, main = "Death Rates in Virginia",         xlab = "Age", ylab = "Rate")

Stacked bar plots

                  barplot(VADeaths,          col = c("lightblue", "mistyrose", "lightcyan",                   "lavender", "cornsilk"),         legend = rownames(VADeaths))

Grouped bar plots

                  barplot(VADeaths,          col = c("lightblue", "mistyrose", "lightcyan",                   "lavender", "cornsilk"),         legend = rownames(VADeaths), beside = TRUE)

It's also possible to add legends to a plot using the function legend() as follow. 

                  # Define a set of colors my_colors <- c("lightblue", "mistyrose", "lightcyan",                   "lavender", "cornsilk") # Bar plot barplot(VADeaths, col = my_colors, beside = TRUE) # Add legend legend("topleft", legend = rownames(VADeaths),         fill = my_colors, box.lty = 0, cex = 0.8)

  • box.lty = 0: Remove the box around the legend
  • cex = 0.8: legend text size

Infos

This analysis has been performed using R statistical software (ver. 3.2.4).


Enjoyed this article? I'd be very grateful if you'd help it spread by emailing it to a friend, or sharing it on Twitter, Facebook or Linked In.

Show me some love with the like buttons below... Thank you and please don't forget to share and comment below!!

Avez vous aimé cet article? Je vous serais très reconnaissant si vous aidiez à sa diffusion en l'envoyant par courriel à un ami ou en le partageant sur Twitter, Facebook ou Linked In.

Montrez-moi un peu d'amour avec les like ci-dessous ... Merci et n'oubliez pas, s'il vous plaît, de partager et de commenter ci-dessous!