R Notebook

LATENCIA ACACIA

library(dplyr)
library(ggplot2)
library(cowplot)
library(viridis)
library(hrbrthemes)

trt <- c("T1","T2","T3")
trt

[1] "T1" "T2" "T3"

germinadas <- c(4,8,1)
germinadas

[1] 4 8 1

anormales <- c(6,9,0)
anormales

[1] 6 9 0

no_germinadas <- c(15,8,24)
no_germinadas

[1] 15  8 24

df <- data.frame(trt,germinadas,anormales,no_germinadas)
df

# Crear conjunto de datos
germinacion <- c(rep("Germinadas normales" , 3) , rep("Germinadas anormales" , 3) , rep("No germinadas" , 3))
germinacion

[1] "Germinadas normales"  "Germinadas normales"  "Germinadas normales" 
[4] "Germinadas anormales" "Germinadas anormales" "Germinadas anormales"
[7] "No germinadas"        "No germinadas"        "No germinadas"       

trt <- rep(c("CONTROL" , "T1" , "T2") , 3)
trt

[1] "CONTROL" "T1"      "T2"      "CONTROL" "T1"      "T2"      "CONTROL"
[8] "T1"      "T2"     

P.GERMINACIÓN <- c(4,16,32,0,24,36,96,60,32)
P.GERMINACIÓN

[1]  4 16 32  0 24 36 96 60 32

datos <- data.frame(germinacion,trt, P.GERMINACIÓN)
datos 

# Gráfica
ggplot(datos, aes(fill=germinacion,y=P.GERMINACIÓN, x=trt)) + 
    geom_bar(position="dodge", stat="identity") +
    scale_fill_viridis(discrete = T, option ="E")+
    ggtitle("PORCENTAJE DE GERMINACIÓN EN 
            SEMILLAS DE ACACIA")+
  xlab("Tratamientos")+
  ylab("Porcentaje de germinación (%)")+
  ylim(c(0,100))