我有这个数据集：
structure(list(CAMPAMENTO = c("Futura Esperanza", "Futura Esperanza",
"Futura Esperanza", "Futura Esperanza", "Futura Esperanza", "Nuevo Amanecer",
"Nuevo Amanecer", "Nuevo Amanecer", "Nuevo Amanecer", "Nuevo Amanecer",
"Nuevo Amanecer", "Laderas de Angelmó", "Laderas de Angelmó",
"Laderas de Angelmó", "Laderas de Angelmó", "Laderas de Angelmó",
"Laderas de Angelmó", "Laderas de Angelmó", "Pelluhuin 1",
"Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1",
"Pelluhuin 1", "Pelluhuin 2", "Pelluhuin 2", "Pelluhuin 2", "Pelluhuin 2",
"Pelluhuin 2", "Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas",
"Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas",
"Mediaguas"), …