a <- data.frame(squid = c(10,20,30),octopus = c(40,80,90),tuna = c(20,50,40))
rownames(a) <- paste(1:nrow(a),"月")
library(kableExtra)
kable(a) |> kable_classic("striped",full_width = F)
|
|
squid
|
octopus
|
tuna
|
|
1 月 |
|
10|
|
40|
|
20|
|
|
2 月 |
|
20|
|
80|
|
50|
|
|
3 月 |
|
30|
|
90|
|
40|
|
b <- as.matrix(a)
i <- 2
barplot(b[i,],col='skyblue',main=rownames(b)[i],ylab='百皿')
abline(h = seq(0, 100, 10), lty = 2, col = gray(0.5, 0.25))
barplot(b,col=c(rgb(255,174,66,100,max=255),'lightblue','lightgreen'),
main = '積上',
ylab = '百皿')
abline(h = seq(0, 300, 50), lty = 2, col = gray(0.5, 0.25))
legend("topleft", fill = c(rgb(255,174,66,100,max=255),'lightblue','lightgreen'), legend = rownames(b))
barplot(t(b),col=c(rgb(255,174,66,100,max=255),'lightblue','lightgreen'),
beside = T,
main = '集合',
ylab = '百皿')
abline(h = seq(0, 100, 10), lty = 2, col = gray(0.5, 0.25))
legend("topleft", fill = c(rgb(255,174,66,100,max=255),'lightblue','lightgreen'), legend = colnames(b))
