I have this data:
我有这个数据:
data <- structure(list(Cod.projeto = c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L
), Nome.projeto = c("ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS",
"ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS",
"ESCOLAS INFANTIS"), Secretarua = c("SMED", "SMED", "SMED", "SMED",
"SMED", "SMED", "SMED", "SMED"), Comp = structure(c(1L, 2L, 1L,
2L, 1L, 2L, 1L, 2L), .Label = c("28/02/2013", "01/03/2013"), class = c("ordered",
"factor")), Estado = c("Criadas", "Criadas", "Providas", "Providas",
"Criadas", "Criadas", "Providas", "Providas"), Categoria = c("A/G",
"A/G", "A/G", "A/G", "B", "B", "B", "B"), Vagas = c(67, 67, 63,
63, 124, 124, 73, 72)), .Names = c("Cod.projeto", "Nome.projeto",
"Secretarua", "Comp", "Estado", "Categoria", "Vagas"), row.names = c(NA,
-8L), class = "data.frame")
data <- structure
