d <- data.frame(
  イカ = c(10, 20, 30),
  タコ = c(40, 80, 90),
  マグロ = c(20, 50, 40))


px <- seq(as.POSIXct("2023-01-01"),
          as.POSIXct("2023-03-01"), by = "month")


rownames(d) <- px


library(kableExtra)
kable(d) |> kable_classic("striped", full_width = F)

	イカ|	コ| マグ
2023-01-01	10	40	20
2023-02-01	20	80	50
2023-03-01	30	90	40

write.csv(d, file = "barplot_py.csv", quote = F)

COL <- c(rgb(255,   0, 255,  55, max = 255), 
         rgb(  0,   0, 255,  55, max = 255), 
         rgb(  0, 255,   0,  55, max = 255)) 

m <- as.matrix(d)
i <- 2


barplot(m[i, ], col = COL[2],
        main = rownames(m)[i],
        xlab = "ネタ別注文数",
        ylab = "皿数［単位：百皿］")

barplot(m, col = COL,
        main = "ネタ別注文数",
        xlab = "種類",
        ylab = "皿数［百皿］")


abline(h = seq(0, 300, 50), lty = 2, col = gray(0.5, 0.25))


legend("topleft", fill = COL, legend = rownames(m))

barplot(m, col = COL, beside = T,
        main = "ネタ別注文数",
        xlab = "種類",
        ylab = "皿数［百皿］")


abline(h = seq(0, 100, 20), lty = 2, col = gray(0.5, 0.25))

legend("topleft", fill = COL, legend = rownames(m))