require(faraway)

## Loading required package: faraway

## Warning: package 'faraway' was built under R version 4.1.2

data(gala)
gala

	Species	Endemics	Area	Elevation	Nearest	Scruz	Adjacent
Baltra	58	23	25.09	346	0.6	0.6	1.84
Bartolome	31	21	1.24	109	0.6	26.3	572.33
Caldwell	3	3	0.21	114	2.8	58.7	0.78
Champion	25	9	0.10	46	1.9	47.4	0.18
Coamano	2	1	0.05	77	1.9	1.9	903.82
Daphne.Major	18	11	0.34	119	8.0	8.0	1.84
Daphne.Minor	24	0	0.08	93	6.0	12.0	0.34
Darwin	10	7	2.33	168	34.1	290.2	2.85
Eden	8	4	0.03	71	0.4	0.4	17.95
Enderby	2	2	0.18	112	2.6	50.2	0.10
Espanola	97	26	58.27	198	1.1	88.3	0.57
Fernandina	93	35	634.49	1494	4.3	95.3	4669.32
Gardner1	58	17	0.57	49	1.1	93.1	58.27
Gardner2	5	4	0.78	227	4.6	62.2	0.21
Genovesa	40	19	17.35	76	47.4	92.2	129.49
Isabela	347	89	4669.32	1707	0.7	28.1	634.49
Marchena	51	23	129.49	343	29.1	85.9	59.56
Onslow	2	2	0.01	25	3.3	45.9	0.10
Pinta	104	37	59.56	777	29.1	119.6	129.49
Pinzon	108	33	17.95	458	10.7	10.7	0.03
Las.Plazas	12	9	0.23	94	0.5	0.6	25.09
Rabida	70	30	4.89	367	4.4	24.4	572.33
SanCristobal	280	65	551.62	716	45.2	66.6	0.57
SanSalvador	237	81	572.33	906	0.2	19.8	4.89
SantaCruz	444	95	903.82	864	0.6	0.0	0.52
SantaFe	62	28	24.08	259	16.5	16.5	0.52
SantaMaria	285	73	170.92	640	2.6	49.2	0.10
Seymour	44	16	1.84	147	0.6	9.6	25.09
Tortuga	16	8	1.24	186	6.8	50.9	17.95
Wolf	21	12	2.85	253	34.1	254.7	2.33

head(gala)

	Species	Endemics	Area	Elevation	Nearest	Scruz	Adjacent
Baltra	58	23	25.09	346	0.6	0.6	1.84
Bartolome	31	21	1.24	109	0.6	26.3	572.33
Caldwell	3	3	0.21	114	2.8	58.7	0.78
Champion	25	9	0.10	46	1.9	47.4	0.18
Coamano	2	1	0.05	77	1.9	1.9	903.82
Daphne.Major	18	11	0.34	119	8.0	8.0	1.84

summary(gala$Species)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.00   13.00   42.00   85.23   96.00  444.00

La base de datos \(gala\) contiene información sobre las 30 islas galapagos y algunas variables como la cantidad de especies de plantas y el area de la isla.

vamos a describir algunas de ellas por ejemplo la variable especies

#Indicadores descriptivos para cuatitativas 
x=mean(gala$Species) #promedio
y=min(gala$Species) #minimo
j=max(gala$Species) #maximo
a=median(gala$Species) #mediana
b=sd(gala$Species) #desviación estandar

data.frame(x, y, j, a, b)

x	y	j	a	b
85.23333	2	444	42	114.6331

se observa que la cantidad promedio de especies (diversidad) en las islas galapagos es de 85, con un valor minimo de 2 y maximo de 444, la mediana de 42 y la variacion \(desviacion estandar\) es de 114

graficamente podemos resumir la variable con histograma de frecuencias:

attach(gala)
hist(Species)

Se observa que la variable Species presenta un comportamiento asimetrico que indica que la mayoria de las islas tiene una diversidad baja (menor a 100 especies) aunque algunas (pocas) logran diversidades altas mayores a 200.