d <- data.frame(
  イカ=c(10,20,30),
  タコ=c(40,80,90),
  マグロ=c(20,50,40))
rownames(d) <- paste(1:nrow(d),'月')
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='注文数　[皿]')
abline(h = seq(0, 100, 5), lty = 2, col = gray(0.5, 0.25))

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(t(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 = colnames(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))

barplot(t(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 = colnames(m))