Como pegar dados da Tabela para calcular %

Não sei como pegar os dados de seleção das tabelas (Tab.Sanhaco e Tab.Melato), para poder calcular e melhorar a análise.

Grato



Segue Código abaixo



dados1 <- read.table("sanhacos.txt", h=T)
list(dados1)
summary(dados1)

summary(dados1)
plot(dados1)

levels(dados1$UA)
cores=c("green4", "red4")

plot(dados1$Sanhaco ~ dados1$Melastomatacea, xlab="Sanhaços", ylab = "Melastomatacea", las=1, pch=16, col=cores[dados1$UA])

SanhaNao <- c(dados1$Sanhaco=="Nao", dados1$Melastomatacea="Nao")

Tab.Sanhaco<-table(dados1$Sanhaco, dados1$Melastomatacea)
Tab.Melato<-table(dados1$Melastomatacea, dados1$Sanhaco)

Tab.Sanhaco
Tab.Melato

barplot(Tab.Sanhaco, beside = T)
barplot(Tab.Melato, beside = T)
boxplot(Tab.Sanhaco, Tab.Melato)

#O gráfico escolhido em uma versão bacana:
cores<-c("light blue", "light gray")
barplot(Tabela.sanhaco, beside=T, ylim=c(0, 50), las=1, xlab="Espécie de Melastomatacea", ylab="Número de árvores", col=cores)
legend("topleft", legend=levels(dados1$Sanhaco), col=cores, pch=15, title="É um Sanhaço?")
box()