Boa noite pessoal, gostaria de fazer um gráfico de dispersão com o CMR abaixo, entretanto, gostaria de variar o símbolo no parâmetro pch a cada tratamento e se possível a cor do símbolo. dados<-structure(list(trat = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L), .Label = c("1", "2", "3", "4"), class = "factor"), y = c(11.8807183390169, 12.9694790587891, 13.5719432329935, 14.1495411288071, 13.7188844205091, 13.7085726729894, 14.188188727139, 14.4207062289035, 14.0558767590019, 14.0546150322635, 13.8372107056864, 13.1017273131374, 13.7745678963343, 14.223215897062, 14.341261216336, 13.8407839797003, 11.9323668975876, 13.9694536897252, 15.1330345462558, 14.7502465943722), x = c(5.15285150048511, 5.23088470939349, 6.20787065204823, 6.51270372604554, 6.65529156385608, 6.52655333928202, 6.17338302680638, 5.49968725261633, 5.86263253631495, 6.16181924187809, 6.59939463078051, 4.83421448767032, 4.38760463552042, 5.77272300776806, 5.558880334431, 6.53341974503353, 4.87311768540645, 5.77134033889711, 4.37253448319016, 7.29343464773757)), .Names = c("trat", "y", "x"), row.names = c(NA, -20L), class = "data.frame") Att. Tiago. ################################################################# Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas #################################################################