I would like to draw a boxplot of a dataframe, with the x axis of the dataframe I will be drawing having the specific names of the various boxplots to be drawn. Here is the dataset

This is in fact just a subset of a very long table. After calling the excel table to R, I used ggplot to call the table. This code framework was used: ggplot(data, aes (x)) geom_boxplot() and sometimes ggplot(data) geom_boxplot(aes(x)) where x is a vector in the dataframe (a column in this case).

So the first time this is the R code I used: ggplot(Census.Data, aes(x = White_British, Low_Occupancy, Unemployed, Qualification)) geom_boxplot()

What I get is the White_British data column is plotted on the X-axis while that of Low_Occupancy gets plotted on the y-axis, like in the figure below:

Same case happens when the aes(x) is put in the geom_boxplot() argument but thats not the big issue. Trying to be a bit clever, I call my columns [| White_British | Low_Occupancy | Unemployed | Qualification |] into an object named censusgroups, thinking if I put the object name in the aes(x) and specify the call to these columns with x = to denote they will go to the x-axis, that will have sorted my problem. Not so clever. censusgroups <- Census.Data [, 2:5]

ggplot(Census.Data) geom_boxplot(aes(x = censusgroups)) -- returns a blank white page on the plot tab in R studio

ggplot(Census.Data) geom_boxplot(aes(x = Census.Data [, 2:5])) -- still returns a blank page

To cut long story short since some other explorations also resulted in errors, I used the default boxplot function of R Studio.

gach <-boxplot(x= Census.Data[, 2:5], xlab = 'Data Groups', ylab = 'Percentages', col = topo.colors(4, 0.6, rev = F))

And had the result below. In fact, this is the kind of result I would like to get using ggplot features, since I prefer ggplot to the default due to its superior graphic features.

I would like to know how to write the code to create the boxplot as above, using ggplot.

CodePudding user response：

You can try melting the data using reshape2 library. Here's how you can do this:

library(reshape2)
ggplot(melt(df), aes(x = variable, y = value))   
  geom_boxplot()

The output will look like this:

CodePudding user response：

Try pivoting your data first:

data <- 
    data %>%
    tidyr::pivot_longer(cols = White_British:Qualification, names_to = "Data Groups", values_to = "Percentages")
col = topo.colors(4, 0.6, rev = F)

ggplot(data, aes(x = `Data Groups`, y = Percentages, fill = `Data Groups`))   
    geom_boxplot()  
    scale_fill_manual(values = col)  
    theme(legend.position = "none")