# Digitando os dados...
#dados<- c("OP","H","OP","H","OP","T","T","T","T","OP",
#          "T","T","T","T","T","OP","OP","OP","T","H",
#          "OP","T","T","OP","T","T","OP","OP","T","H")

#Inserindo os dados de um arquivo.csv
dados<-read.csv("/home/ricardo/Desktop/aula_descritiva/Aula descritiva/codigos R/sindrome.csv",h=F)
dados

freq<-table(dados)
freq

#Grafico de barras
barplot(freq, col="green", ylab="Número de espécies",
        xlab="Síndrome de regeneração")

# Grafico de pizza
pie(freq)

porcentagem<-round(100*freq/sum(freq), 0)

pie(freq, labels=porcentagem, 
    col=c("red","green","black"))

legend("topright", c("H","OP","T"),
       fill =c("red","green","black"))