Estou tentando montar um gráfico em R para exibir os valores máximos e mínimos de algumas variáveis além de uma linha para marcar o 0 do y, entretanto os pontos do gráfico saem completamente fora de ordem.
Estou utilizando a seguinte tabela:
cultivar <- c("IB0094", "IB0094", "IB0094", "IB0094", "IB0094", "IB0094", "IB0095", "IB0095", "IB0095", "IB0095", "IB0095", "IB0095")
parametro <- c("CSDL", "SDPDV", "PODUR", "THRSH", "SDPRO", "SDLIP", "CSDL", "SDPDV", "PODUR", "THRSH", "SDPRO", "SDLIP")
ValorMaximo <- c(299.96338, 299.96338, 199.76807, 68.15185, 46.39892, 138.90381, 299.96338, 299.96338, 124.18213, 9.63135, 45.08056, 299.96338)
ValorMinimo <- c(-98.95166, -98.7583, -79.51904, -8.8462, -48.96826, -98.95166, -98.95166, -98.95166, -98.95166, -5.17236, -77.87549, -98.95166)
res <- data.frame(cultivar, parametro, ValorMaximo, ValorMinimo)
E o seguinte código:
tbl = melt(res, id.vars =c("cultivar","parametro") , value.name="valor", variable.name="Variable", na.rm=TRUE)
tbl$cultivar = as.factor(tbl$cultivar)
tbl$parametro = as.factor(tbl$parametro)
ggplot(tbl, aes(x=parametro, y=sort(valor, decreasing = T), fill=Variable, group = Variable)) + geom_point(stat="identity", aes(colour = Variable, shape = Variable), size = 5) +
geom_hline(yintercept = 0) + ggtitle("Valores de variacao para os CG's dos cultivares") +
facet_grid(. ~ cultivar) + theme(axis.text.x = element_text(angle = 90, hjust = 1), panel.grid.minor.y = element_blank(), panel.grid.major.y = element_blank()) +
labs(y = "Valor", x = "Coeficiente genetico")
Não consegui inserir o resultado final devido ao tamanho do arquivo. Alguém poderia me ajudar?