Кластерная гистограмма на R

Question

Я пытаюсь получить кластерную гистограмму на R, показывающую виды видов, распределенных в течение ряда лет. Код я использовал:

Fish<- read.table(header=TRUE, text="Mbio$Date, Mbio$Roach,Mbio$Green.sunfish, 
Mbio$Sucker, Mbio$Rainbow.trout, Mbio$Squawfish, Mbio$Mosquito.fish") 

library(ggplot2) 

ggplot(Fish, aes(factor(Mbio$Date), Mbio$Roach,Mbio$Green.sunfish, Mbio$Sucker, Mbio$Rainbow.trout, Mbio$Squawfish, Mbio$Mosquito.fish)) + geom_bar(stat="identity", position = "dodge") + scale_fill_brewer(palette = "Set1") 

Это дало график так:

Однако это не дает мне график, я хочу: Это необходимо, чтобы показать количество каждого из видов рыб на протяжении всех лет.

Хотелось бы, чтобы это было похоже. Пожалуйста, помогите мне в этом, спасибо.

Answer 1

Создание данных и делает барные участки

column1 <- c(rep("1984", 3), rep("1985", 3), rep("1986", 3)) 
column2 <- gl(3, 1, 9, labels=c("Roach", "Green", "Sucker")) 
column3 <- c(20, 25, 10, 70, 85, 30, 10, 65, 70) 
d <- data.frame(column1=column1, column2=column2, column3=column3) 
require(lattice) 
barchart(column3 ~ column1, groups=column2, d, auto.key = list(columns = 3)) 

Answer 2

column1 <- c(rep("1984", 3), rep("1985", 3), rep("1986", 3)) 
column2 <- gl(3, 1, 9, labels=c("Roach", "Green", "Sucker")) 
column3 <- c(20, 25, 10, 70, 85, 30, 10, 65, 70) 
d <- data.frame(column1=column1, column2=column2, column3=column3) 
require(ggplot2) 
ggplot(d, aes(x=column1, y=column3, fill=column2)) + geom_bar(position="dodge", stat = "identity")