Рисунок №1:

рисунок №2:

Код: Выделить всё
library(RODBC)
chan <- odbcConnectExcel(file.choose())
d <- sqlFetch(chan, "Лист1")
close(chan)
d3 = tapply(d[,3],d$Вид, mean,na.rm = T)
d4 = tapply(d[,4],d$Вид, mean,na.rm = T)
d5 = tapply(d[,5],d$Вид, mean,na.rm = T)
dd = cbind(d3,d4,d5)
barplot(dd,beside=T,names.arg = names(d[,3:5]),legend = rownames(dd))
Код: Выделить всё
dd = rbind(d3,d4,d5)
barplot(dd,beside=T,names.arg = colnames(dd),legend = names(d[,3:5]))
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя