Creating Boxplot in R

Question

I have a table with data on the sales volumes of some products. I want to build several boxplots for each product. I.e. vertically I have sales volume and horizontally I have days. When building, I do not build boxplots in certain values. What is the reason for this? Here is table:

Day Cottage cheese..pcs. Kefir..pcs. Sour cream..pcs.
1    1          99        103          111
2    2          86        101          114
3    3          92        100          116
4    4          87        112          120
5    5          86        104          111
6    6          88        105          122
7    7          88        106          118

Here is my code:

head(out1)# out1-the table above
boxplot(Day~Cottage cheese..pcs., data = out1)

Here is the result:

Answer 1

In addition to the provided answer, if you desire to vertically have sales volume and horitontally have days (using the out1 data provided by zx8754).

library(tidyr)
library(data.table)
library(ggplot2)

#data from wide to long
dt <- pivot_longer(out1, cols = c("Kefir", "Sour.cream", "Cottage.cheese"), names_to = "Product", values_to = "Value")

#set dt to data.table object
setDT(dt)

#convert day from integer to a factor
dt[, Day := as.factor(Day)]

#ggplot
ggplot(dt, aes(x = Day, y = Value)) + geom_bar(stat = "identity") + facet_wrap(~Product)

facet_wrap provides separate graphs for the three products.

I created a bar chart here since boxplots would be useless in this case (every product has only one value each day)

Answer 2

Try below:

# example data
out1 <- read.table(text = " Day Cottage.cheese Kefir Sour.cream
1    1          99        103          111
2    2          86        101          114
3    3          92        100          116
4    4          87        112          120
5    5          86        104          111
6    6          88        105          122
7    7          88        106          118", header = TRUE)

# reshape wide-to-long
outlong <- stats::reshape(out1, idvar = "Day", v.names = "value",
                          time = "product", times = colnames(out1)[2:4],
                          varying = colnames(out1)[2:4], direction = "long")

# then plot
boxplot(value~product, outlong)