How can I add a table to my ggplot2 output?

by

Here’s a basic example of the strategy used by learnr:

require(ggplot2)
df <- data.frame(a = seq(0, 90, 10), b = seq(10, 100, 10))
df.plot <- ggplot(data = df, aes(x = seq(1, 100, 10))) + 
  geom_line(aes(y = a), colour="red") +
  geom_line(aes(y = b), colour="blue") +
  scale_x_continuous(breaks = seq(0,100,10))

# make dummy labels for the table content
df$lab <- month.abb[ceiling((df$a+1)/10)]

df.table <- ggplot(df, aes(x = a, y = 0,
                              label = lab, colour = b)) +
  geom_text(size = 3.5) + 
  theme_minimal() + 
  scale_y_continuous(breaks=NULL)+
  theme(panel.grid.major = element_blank(), legend.position = "none",
       panel.border = element_blank(), axis.text.x =  element_blank(),
       axis.ticks =  element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank()) 

gA <- ggplotGrob(df.plot)
gB <- ggplotGrob(df.table)[6,]
gB$heights <- unit(1,"line")


require(gridExtra)
gAB <- rbind(gA, gB)
grid.newpage()
grid.draw(gAB)

enter image description here

More Related Contents:

  1. How can the facet function in ggplot be used to create a histogram in order to visualize distributions for all variables in a dataset?
  2. Add a common Legend for combined ggplots
  3. Stacked Bar Plot in R
  4. How to save plots that are made in a shiny app
  5. ggplot plots in scripts do not display in Rstudio
  6. How can I remove empty factors from ggplot2 facets?
  7. How to add a ggplot2 subtitle with different size and colour?
  8. How can we make xkcd style graphs?
  9. Error in grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : Polygon edge not found
  10. Plot data in descending order as appears in data frame [duplicate]
  11. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  12. Reproducing lattice dendrogram graph with ggplot2
  13. Inserting a table under the legend in a ggplot2 histogram
  14. World map with ggmap
  15. Changing the line type in the ggplot legend
  16. How to make dodge in geom_bar agree with dodge in geom_errorbar, geom_point
  17. Reasons that ggplot2 legend does not appear [duplicate]
  18. Plot a function with ggplot, equivalent of curve()
  19. set only lower bound of a limit for ggplot
  20. set ggplot plots to have same x-axis width and same space between dot plot rows
  21. different size facets proportional of x axis on ggplot 2 r
  22. ggplot2 plot area margins?
  23. How to deal with “data of class uneval” error from ggplot2?
  24. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  25. stat_contour not able to generate contour lines
  26. Add x and y axis to all facet_wrap
  27. How to change positions of x and y axis in ggplot2
  28. R Plot Filled Longitude-Latitude Grid Cells on Map
  29. When does the argument go inside or outside aes()?
  30. Make a rectangular legend, with rows and columns labeled, in grid

Leave a Comment