Taller 3
Andrés Peraza A.
9/7/2021
library(factoextra)## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBafviz_screeplot(pca, addlabels = TRUE, ylim = c(0, 100))
fviz_pca_ind(pca, geom.ind = c("point"), addEllipses= T,
col.ind = "blue",
axes = c(1, 2),
pointsize = 1.5) 
pca=prcomp(Datos_espectro_0106[,-1])
pca01<-pca$x[,1]
hist(pca01)
grados01<-(acos((cor(Datos_espectro_0106[,-1],pca01)))*180)/pi
hist(grados01)
Kmedias<-kmeans(grados01,5,nstart = 10)
df_grup=data.frame(grados01,Kmedias$cluster)
tapply(df_grup$grados01,df_grup$Kmedias.cluster,length)## 1 2 3 4 5
## 247 50 187 499 517cluster01=df_grup[df_grup$Kmedias.cluster==1,]
dim(cluster01)## [1] 247 2Datos_t=t(Datos_espectro_0106)
lon_onda=colnames(Datos_espectro_0106[,-1])[Kmedias$cluster==1]
range(lon_onda)## [1] "1049.54" "2291.48"Para dos cluster como mi Ășltimo numero de la cedula es 5, lo hago con 4
KmediasB<-kmeans(grados01,4,nstart = 10)
df_grupB=data.frame(grados01,KmediasB$cluster)
KmediasB## K-means clustering with 4 clusters of sizes 51, 859, 341, 249
##
## Cluster means:
## [,1]
## 1 27.793042
## 2 6.975721
## 3 12.167792
## 4 17.990519
##
## Clustering vector:
## 2497.5 2495.01 2492.52 2490.04 2487.56 2485.09 2482.62 2480.16 2477.7 2475.25
## 1 1 1 1 1 1 1 1 1 1
## 2472.8 2470.36 2467.92 2465.48 2463.05 2460.63 2458.21 2455.8 2453.39 2450.98
## 1 1 1 1 1 1 1 1 1 1
## 2448.58 2446.18 2443.79 2441.41 2439.02 2436.65 2434.27 2431.91 2429.54 2427.18
## 1 1 1 1 1 1 1 1 1 1
## 2424.83 2422.48 2420.14 2417.79 2415.46 2413.13 2410.8 2408.48 2406.16 2403.85
## 1 1 1 1 1 1 1 1 1 1
## 2401.54 2399.23 2396.93 2394.64 2392.34 2390.06 2387.77 2385.5 2383.22 2380.95
## 1 1 1 1 1 1 1 1 1 1
## 2378.69 2376.43 2374.17 2371.92 2369.67 2367.42 2365.18 2362.95 2360.72 2358.49
## 1 4 4 4 4 4 4 4 4 4
## 2356.27 2354.05 2351.83 2349.62 2347.42 2345.22 2343.02 2340.82 2338.63 2336.45
## 4 4 4 4 4 4 4 4 4 4
## 2334.27 2332.09 2329.92 2327.75 2325.58 2323.42 2321.26 2319.11 2316.96 2314.81
## 4 4 4 4 4 4 4 4 4 4
## 2312.67 2310.54 2308.4 2306.27 2304.15 2302.03 2299.91 2297.79 2295.68 2293.58
## 4 4 4 4 4 4 4 4 4 4
## 2291.48 2289.38 2287.28 2285.19 2283.11 2281.02 2278.94 2276.87 2274.8 2272.73
## 4 4 4 4 4 4 4 4 3 3
## 2270.66 2268.6 2266.55 2264.49 2262.44 2260.4 2258.36 2256.32 2254.28 2252.25
## 3 3 3 3 3 3 3 3 3 3
## 2250.23 2248.2 2246.18 2244.17 2242.15 2240.14 2238.14 2236.14 2234.14 2232.14
## 3 3 3 3 3 3 3 3 3 3
## 2230.15 2228.16 2226.18 2224.2 2222.22 2220.25 2218.28 2216.31 2214.35 2212.39
## 3 3 3 3 3 3 4 4 4 4
## 2210.43 2208.48 2206.53 2204.59 2202.64 2200.7 2198.77 2196.84 2194.91 2192.98
## 4 4 4 4 4 4 4 4 4 4
## 2191.06 2189.14 2187.23 2185.31 2183.41 2181.5 2179.6 2177.7 2175.81 2173.91
## 4 4 4 4 4 4 4 4 4 4
## 2172.02 2170.14 2168.26 2166.38 2164.5 2162.63 2160.76 2158.89 2157.03 2155.17
## 4 4 4 4 4 4 4 4 4 3
## 2153.32 2151.46 2149.61 2147.77 2145.92 2144.08 2142.25 2140.41 2138.58 2136.75
## 3 3 3 3 3 3 3 3 3 3
## 2134.93 2133.11 2131.29 2129.47 2127.66 2125.85 2124.04 2122.24 2120.44 2118.64
## 3 3 3 3 3 3 3 3 3 3
## 2116.85 2115.06 2113.27 2111.49 2109.7 2107.93 2106.15 2104.38 2102.61 2100.84
## 3 3 3 3 3 3 3 3 3 3
## 2099.08 2097.32 2095.56 2093.8 2092.05 2090.3 2088.55 2086.81 2085.07 2083.33
## 3 3 3 3 3 3 3 3 3 3
## 2081.6 2079.87 2078.14 2076.41 2074.69 2072.97 2071.25 2069.54 2067.82 2066.12
## 3 3 3 3 3 3 3 3 3 3
## 2064.41 2062.71 2061.01 2059.31 2057.61 2055.92 2054.23 2052.55 2050.86 2049.18
## 3 3 3 3 3 3 3 3 3 3
## 2047.5 2045.83 2044.15 2042.48 2040.82 2039.15 2037.49 2035.83 2034.17 2032.52
## 3 3 3 3 3 3 3 3 3 3
## 2030.87 2029.22 2027.58 2025.93 2024.29 2022.65 2021.02 2019.39 2017.76 2016.13
## 3 3 3 3 3 3 3 3 3 3
## 2014.5 2012.88 2011.26 2009.65 2008.03 2006.42 2004.81 2003.21 2001.6 2000
## 3 3 3 3 3 3 3 3 3 3
## 1998.4 1996.81 1995.21 1993.62 1992.03 1990.45 1988.86 1987.28 1985.7 1984.13
## 3 3 3 3 3 3 3 3 3 3
## 1982.55 1980.98 1979.41 1977.85 1976.28 1974.72 1973.16 1971.61 1970.06 1968.5
## 3 3 3 3 3 3 3 3 3 3
## 1966.96 1965.41 1963.86 1962.32 1960.78 1959.25 1957.71 1956.18 1954.65 1953.13
## 3 3 3 3 3 3 3 3 3 3
## 1951.6 1950.08 1948.56 1947.04 1945.53 1944.01 1942.5 1940.99 1939.49 1937.98
## 3 3 3 3 3 3 3 3 3 4
## 1936.48 1934.98 1933.49 1931.99 1930.5 1929.01 1927.53 1926.04 1924.56 1923.08
## 4 4 4 4 4 4 4 4 4 4
## 1921.6 1920.12 1918.65 1917.18 1915.71 1914.24 1912.78 1911.31 1909.85 1908.4
## 4 4 4 4 3 3 3 3 3 3
## 1906.94 1905.49 1904.04 1902.59 1901.14 1899.7 1898.25 1896.81 1895.38 1893.94
## 3 3 3 3 3 3 3 3 3 3
## 1892.51 1891.07 1889.64 1888.22 1886.79 1885.37 1883.95 1882.53 1881.11 1879.7
## 2 2 2 2 2 2 2 2 2 2
## 1878.29 1876.88 1875.47 1874.06 1872.66 1871.26 1869.86 1868.46 1867.06 1865.67
## 2 2 2 2 2 2 2 2 2 2
## 1864.28 1862.89 1861.5 1860.12 1858.74 1857.36 1855.98 1854.6 1853.22 1851.85
## 2 2 2 2 2 2 2 2 2 2
## 1850.48 1849.11 1847.75 1846.38 1845.02 1843.66 1842.3 1840.94 1839.59 1838.24
## 2 2 2 2 2 2 2 2 2 2
## 1836.88 1835.54 1834.19 1832.84 1831.5 1830.16 1828.82 1827.49 1826.15 1824.82
## 2 2 2 2 2 2 2 2 2 2
## 1823.49 1822.16 1820.83 1819.51 1818.18 1816.86 1815.54 1814.22 1812.91 1811.59
## 2 2 2 2 2 2 2 2 2 2
## 1810.28 1808.97 1807.66 1806.36 1805.05 1803.75 1802.45 1801.15 1799.86 1798.56
## 2 2 2 2 2 2 2 2 2 2
## 1797.27 1795.98 1794.69 1793.4 1792.11 1790.83 1789.55 1788.27 1786.99 1785.71
## 2 2 2 2 2 2 2 2 2 2
## 1784.44 1783.17 1781.9 1780.63 1779.36 1778.09 1776.83 1775.57 1774.31 1773.05
## 2 2 2 2 2 2 2 2 2 2
## 1771.79 1770.54 1769.29 1768.03 1766.78 1765.54 1764.29 1763.05 1761.8 1760.56
## 2 2 2 2 2 2 2 2 2 2
## 1759.32 1758.09 1756.85 1755.62 1754.39 1753.16 1751.93 1750.7 1749.48 1748.25
## 2 2 2 2 2 2 2 2 2 2
## 1747.03 1745.81 1744.59 1743.38 1742.16 1740.95 1739.74 1738.53 1737.32 1736.11
## 2 2 2 2 2 2 2 2 2 2
## 1734.91 1733.7 1732.5 1731.3 1730.1 1728.91 1727.71 1726.52 1725.33 1724.14
## 2 2 2 2 2 2 2 2 2 2
## 1722.95 1721.76 1720.58 1719.39 1718.21 1717.03 1715.85 1714.68 1713.5 1712.33
## 2 2 2 2 2 2 2 2 2 2
## 1711.16 1709.99 1708.82 1707.65 1706.48 1705.32 1704.16 1703 1701.84 1700.68
## 2 2 2 2 2 2 2 2 2 2
## 1699.52 1698.37 1697.22 1696.07 1694.92 1693.77 1692.62 1691.47 1690.33 1689.19
## 2 2 2 2 2 2 2 2 2 2
## 1688.05 1686.91 1685.77 1684.64 1683.5 1682.37 1681.24 1680.11 1678.98 1677.85
## 2 2 2 2 2 2 2 2 2 2
## 1676.73 1675.6 1674.48 1673.36 1672.24 1671.12 1670.01 1668.89 1667.78 1666.67
## 2 2 2 2 2 2 2 2 2 2
## 1665.56 1664.45 1663.34 1662.23 1661.13 1660.03 1658.93 1657.82 1656.73 1655.63
## 2 2 2 2 2 2 2 2 2 2
## 1654.53 1653.44 1652.35 1651.25 1650.17 1649.08 1647.99 1646.9 1645.82 1644.74
## 2 2 2 2 2 2 2 2 2 2
## 1643.66 1642.58 1641.5 1640.42 1639.34 1638.27 1637.2 1636.13 1635.06 1633.99
## 2 2 2 2 2 2 2 2 2 2
## 1632.92 1631.85 1630.79 1629.73 1628.66 1627.6 1626.55 1625.49 1624.43 1623.38
## 2 2 2 2 2 2 2 2 2 2
## 1622.32 1621.27 1620.22 1619.17 1618.12 1617.08 1616.03 1614.99 1613.94 1612.9
## 2 2 2 2 2 2 2 2 2 2
## 1611.86 1610.82 1609.79 1608.75 1607.72 1606.68 1605.65 1604.62 1603.59 1602.56
## 2 2 2 2 2 2 2 2 2 2
## 1601.54 1600.51 1599.49 1598.47 1597.44 1596.42 1595.41 1594.39 1593.37 1592.36
## 2 2 2 2 2 2 2 2 2 2
## 1591.34 1590.33 1589.32 1588.31 1587.3 1586.29 1585.29 1584.28 1583.28 1582.28
## 2 2 2 2 2 2 2 2 2 2
## 1581.28 1580.28 1579.28 1578.28 1577.29 1576.29 1575.3 1574.31 1573.32 1572.33
## 2 2 2 2 2 2 2 2 2 2
## 1571.34 1570.35 1569.37 1568.38 1567.4 1566.42 1565.44 1564.46 1563.48 1562.5
## 2 2 2 2 2 2 2 2 2 2
## 1561.52 1560.55 1559.58 1558.6 1557.63 1556.66 1555.69 1554.73 1553.76 1552.8
## 2 2 2 2 2 2 2 2 2 2
## 1551.83 1550.87 1549.91 1548.95 1547.99 1547.03 1546.07 1545.12 1544.16 1543.21
## 2 2 2 2 2 2 2 2 2 2
## 1542.26 1541.31 1540.36 1539.41 1538.46 1537.52 1536.57 1535.63 1534.68 1533.74
## 2 2 2 2 2 2 2 2 2 2
## 1532.8 1531.86 1530.92 1529.99 1529.05 1528.12 1527.18 1526.25 1525.32 1524.39
## 2 2 2 2 2 2 2 2 2 2
## 1523.46 1522.53 1521.61 1520.68 1519.76 1518.83 1517.91 1516.99 1516.07 1515.15
## 2 2 2 2 2 2 2 2 2 2
## 1514.23 1513.32 1512.4 1511.49 1510.57 1509.66 1508.75 1507.84 1506.93 1506.02
## 2 2 2 2 2 2 2 2 2 2
## 1505.12 1504.21 1503.31 1502.4 1501.5 1500.6 1499.7 1498.8 1497.9 1497.01
## 2 2 2 2 2 2 2 2 2 2
## 1496.11 1495.22 1494.32 1493.43 1492.54 1491.65 1490.76 1489.87 1488.98 1488.1
## 2 2 2 2 2 2 2 2 2 2
## 1487.21 1486.33 1485.44 1484.56 1483.68 1482.8 1481.92 1481.04 1480.17 1479.29
## 2 2 2 2 2 2 2 2 2 2
## 1478.42 1477.54 1476.67 1475.8 1474.93 1474.06 1473.19 1472.32 1471.45 1470.59
## 2 2 2 2 2 2 2 2 2 2
## 1469.72 1468.86 1468 1467.14 1466.28 1465.42 1464.56 1463.7 1462.84 1461.99
## 2 2 2 2 2 2 2 2 2 2
## 1461.13 1460.28 1459.43 1458.58 1457.73 1456.88 1456.03 1455.18 1454.33 1453.49
## 2 2 2 2 2 2 2 2 2 2
## 1452.64 1451.8 1450.96 1450.12 1449.28 1448.44 1447.6 1446.76 1445.92 1445.09
## 2 2 2 2 2 2 2 2 2 2
## 1444.25 1443.42 1442.59 1441.75 1440.92 1440.09 1439.26 1438.43 1437.61 1436.78
## 2 2 2 2 2 2 2 2 2 2
## 1435.96 1435.13 1434.31 1433.49 1432.66 1431.84 1431.02 1430.21 1429.39 1428.57
## 2 2 2 2 2 2 2 2 2 2
## 1427.76 1426.94 1426.13 1425.31 1424.5 1423.69 1422.88 1422.07 1421.26 1420.45
## 2 2 2 2 2 2 2 2 2 2
## 1419.65 1418.84 1418.04 1417.23 1416.43 1415.63 1414.83 1414.03 1413.23 1412.43
## 2 2 2 2 2 2 2 2 2 2
## 1411.63 1410.84 1410.04 1409.24 1408.45 1407.66 1406.87 1406.07 1405.28 1404.49
## 2 2 2 2 2 2 2 2 2 2
## 1403.71 1402.92 1402.13 1401.35 1400.56 1399.78 1398.99 1398.21 1397.43 1396.65
## 2 2 2 2 2 2 2 2 2 2
## 1395.87 1395.09 1394.31 1393.53 1392.76 1391.98 1391.21 1390.43 1389.66 1388.89
## 2 2 2 2 2 2 2 2 2 2
## 1388.12 1387.35 1386.58 1385.81 1385.04 1384.27 1383.51 1382.74 1381.98 1381.22
## 2 2 2 2 2 2 2 2 2 2
## 1380.45 1379.69 1378.93 1378.17 1377.41 1376.65 1375.89 1375.14 1374.38 1373.63
## 2 2 2 2 2 2 2 2 2 2
## 1372.87 1372.12 1371.37 1370.61 1369.86 1369.11 1368.36 1367.61 1366.87 1366.12
## 2 2 2 2 2 2 2 2 2 2
## 1365.37 1364.63 1363.88 1363.14 1362.4 1361.66 1360.91 1360.17 1359.43 1358.7
## 2 2 2 2 2 2 2 2 2 2
## 1357.96 1357.22 1356.48 1355.75 1355.01 1354.28 1353.55 1352.81 1352.08 1351.35
## 2 2 2 2 2 2 2 2 2 2
## 1350.62 1349.89 1349.16 1348.44 1347.71 1346.98 1346.26 1345.53 1344.81 1344.09
## 2 2 2 2 2 2 2 2 2 2
## 1343.36 1342.64 1341.92 1341.2 1340.48 1339.76 1339.05 1338.33 1337.61 1336.9
## 2 2 2 2 2 2 2 2 2 2
## 1336.18 1335.47 1334.76 1334.04 1333.33 1332.62 1331.91 1331.2 1330.49 1329.79
## 2 2 2 2 2 2 2 2 2 2
## 1329.08 1328.37 1327.67 1326.96 1326.26 1325.56 1324.85 1324.15 1323.45 1322.75
## 2 2 2 2 2 2 2 2 2 2
## 1322.05 1321.35 1320.66 1319.96 1319.26 1318.57 1317.87 1317.18 1316.48 1315.79
## 2 2 2 2 2 2 2 2 2 2
## 1315.1 1314.41 1313.72 1313.03 1312.34 1311.65 1310.96 1310.27 1309.59 1308.9
## 2 2 2 2 2 2 2 2 2 2
## 1308.22 1307.53 1306.85 1306.17 1305.48 1304.8 1304.12 1303.44 1302.76 1302.08
## 2 2 2 2 2 2 2 2 2 2
## 1301.41 1300.73 1300.05 1299.38 1298.7 1298.03 1297.35 1296.68 1296.01 1295.34
## 2 2 2 2 2 2 2 2 2 2
## 1294.67 1294 1293.33 1292.66 1291.99 1291.32 1290.66 1289.99 1289.32 1288.66
## 2 2 2 2 2 2 2 2 2 2
## 1288 1287.33 1286.67 1286.01 1285.35 1284.69 1284.03 1283.37 1282.71 1282.05
## 2 2 2 2 2 2 2 2 2 2
## 1281.39 1280.74 1280.08 1279.43 1278.77 1278.12 1277.47 1276.81 1276.16 1275.51
## 2 2 2 2 2 2 2 2 2 2
## 1274.86 1274.21 1273.56 1272.91 1272.26 1271.62 1270.97 1270.33 1269.68 1269.04
## 2 2 2 2 2 2 2 2 2 2
## 1268.39 1267.75 1267.11 1266.46 1265.82 1265.18 1264.54 1263.9 1263.26 1262.63
## 2 2 2 2 2 2 2 2 2 2
## 1261.99 1261.35 1260.72 1260.08 1259.45 1258.81 1258.18 1257.55 1256.91 1256.28
## 2 2 2 2 2 2 2 2 2 2
## 1255.65 1255.02 1254.39 1253.76 1253.13 1252.51 1251.88 1251.25 1250.63 1250
## 2 2 2 2 2 2 2 2 2 2
## 1249.38 1248.75 1248.13 1247.5 1246.88 1246.26 1245.64 1245.02 1244.4 1243.78
## 2 2 2 2 2 2 2 2 2 2
## 1243.16 1242.54 1241.93 1241.31 1240.69 1240.08 1239.46 1238.85 1238.24 1237.62
## 2 2 2 2 2 2 2 2 2 2
## 1237.01 1236.4 1235.79 1235.18 1234.57 1233.96 1233.35 1232.74 1232.13 1231.53
## 2 2 2 2 2 2 2 2 2 2
## 1230.92 1230.31 1229.71 1229.11 1228.5 1227.9 1227.3 1226.69 1226.09 1225.49
## 2 2 2 2 2 2 2 2 2 2
## 1224.89 1224.29 1223.69 1223.09 1222.49 1221.9 1221.3 1220.7 1220.11 1219.51
## 2 2 2 2 2 2 2 2 2 2
## 1218.92 1218.32 1217.73 1217.14 1216.55 1215.95 1215.36 1214.77 1214.18 1213.59
## 2 2 2 2 2 2 2 2 2 2
## 1213 1212.42 1211.83 1211.24 1210.65 1210.07 1209.48 1208.9 1208.31 1207.73
## 2 2 2 2 2 2 2 2 2 2
## 1207.15 1206.56 1205.98 1205.4 1204.82 1204.24 1203.66 1203.08 1202.5 1201.92
## 2 2 2 2 2 2 2 2 2 2
## 1201.35 1200.77 1200.19 1199.62 1199.04 1198.47 1197.89 1197.32 1196.74 1196.17
## 2 2 2 2 2 2 2 2 2 2
## 1195.6 1195.03 1194.46 1193.89 1193.32 1192.75 1192.18 1191.61 1191.04 1190.48
## 2 2 2 2 2 2 2 2 2 2
## 1189.91 1189.34 1188.78 1188.21 1187.65 1187.08 1186.52 1185.96 1185.4 1184.83
## 2 2 2 2 2 2 2 2 2 2
## 1184.27 1183.71 1183.15 1182.59 1182.03 1181.47 1180.92 1180.36 1179.8 1179.25
## 2 2 2 2 2 2 2 2 2 2
## 1178.69 1178.13 1177.58 1177.02 1176.47 1175.92 1175.36 1174.81 1174.26 1173.71
## 2 2 2 2 2 2 2 2 2 2
## 1173.16 1172.61 1172.06 1171.51 1170.96 1170.41 1169.86 1169.32 1168.77 1168.22
## 2 2 2 2 2 2 2 2 2 2
## 1167.68 1167.13 1166.59 1166.04 1165.5 1164.96 1164.42 1163.87 1163.33 1162.79
## 2 2 2 2 2 2 2 2 2 2
## 1162.25 1161.71 1161.17 1160.63 1160.09 1159.55 1159.02 1158.48 1157.94 1157.41
## 2 2 2 2 2 2 2 2 2 2
## 1156.87 1156.34 1155.8 1155.27 1154.73 1154.2 1153.67 1153.14 1152.6 1152.07
## 2 2 2 2 2 2 2 2 2 2
## 1151.54 1151.01 1150.48 1149.95 1149.43 1148.9 1148.37 1147.84 1147.32 1146.79
## 2 2 2 2 2 2 2 2 2 3
## 1146.26 1145.74 1145.21 1144.69 1144.16 1143.64 1143.12 1142.6 1142.07 1141.55
## 3 3 3 3 3 3 3 3 3 3
## 1141.03 1140.51 1139.99 1139.47 1138.95 1138.43 1137.92 1137.4 1136.88 1136.36
## 3 3 3 3 3 3 3 3 3 3
## 1135.85 1135.33 1134.82 1134.3 1133.79 1133.27 1132.76 1132.25 1131.73 1131.22
## 3 3 3 3 3 3 3 3 3 3
## 1130.71 1130.2 1129.69 1129.18 1128.67 1128.16 1127.65 1127.14 1126.63 1126.13
## 3 3 3 3 3 3 3 3 3 3
## 1125.62 1125.11 1124.61 1124.1 1123.6 1123.09 1122.59 1122.08 1121.58 1121.08
## 3 3 3 3 3 3 3 3 3 3
## 1120.57 1120.07 1119.57 1119.07 1118.57 1118.07 1117.57 1117.07 1116.57 1116.07
## 3 3 3 3 3 3 3 3 3 3
## 1115.57 1115.08 1114.58 1114.08 1113.59 1113.09 1112.59 1112.1 1111.61 1111.11
## 3 3 3 3 3 3 3 3 3 3
## 1110.62 1110.12 1109.63 1109.14 1108.65 1108.16 1107.67 1107.17 1106.68 1106.19
## 3 3 3 3 3 3 3 3 3 3
## 1105.71 1105.22 1104.73 1104.24 1103.75 1103.27 1102.78 1102.29 1101.81 1101.32
## 3 3 3 3 3 3 3 3 3 3
## 1100.84 1100.35 1099.87 1099.38 1098.9 1098.42 1097.94 1097.45 1096.97 1096.49
## 3 3 3 3 3 3 3 3 3 3
## 1096.01 1095.53 1095.05 1094.57 1094.09 1093.61 1093.14 1092.66 1092.18 1091.7
## 3 3 3 3 3 3 3 3 3 3
## 1091.23 1090.75 1090.27 1089.8 1089.32 1088.85 1088.38 1087.9 1087.43 1086.96
## 3 3 3 3 3 3 3 3 3 3
## 1086.48 1086.01 1085.54 1085.07 1084.6 1084.13 1083.66 1083.19 1082.72 1082.25
## 3 3 3 3 3 3 3 3 3 3
## 1081.78 1081.31 1080.85 1080.38 1079.91 1079.45 1078.98 1078.52 1078.05 1077.59
## 3 3 3 3 3 3 3 3 3 3
## 1077.12 1076.66 1076.19 1075.73 1075.27 1074.81 1074.34 1073.88 1073.42 1072.96
## 3 3 3 3 3 3 3 3 3 3
## 1072.5 1072.04 1071.58 1071.12 1070.66 1070.21 1069.75 1069.29 1068.83 1068.38
## 3 3 3 3 3 3 3 3 3 3
## 1067.92 1067.46 1067.01 1066.55 1066.1 1065.64 1065.19 1064.74 1064.28 1063.83
## 3 3 3 3 3 3 4 4 4 4
## 1063.38 1062.93 1062.47 1062.02 1061.57 1061.12 1060.67 1060.22 1059.77 1059.32
## 4 4 4 4 4 4 4 4 4 4
## 1058.87 1058.43 1057.98 1057.53 1057.08 1056.64 1056.19 1055.74 1055.3 1054.85
## 4 4 4 4 4 4 4 4 4 4
## 1054.41 1053.96 1053.52 1053.07 1052.63 1052.19 1051.75 1051.3 1050.86 1050.42
## 4 4 4 4 4 4 4 4 4 4
## 1049.98 1049.54 1049.1 1048.66 1048.22 1047.78 1047.34 1046.9 1046.46 1046.03
## 4 4 4 4 4 4 4 4 4 4
## 1045.59 1045.15 1044.71 1044.28 1043.84 1043.41 1042.97 1042.54 1042.1 1041.67
## 4 4 4 4 4 4 4 4 4 4
## 1041.23 1040.8 1040.37 1039.93 1039.5 1039.07 1038.64 1038.21 1037.78 1037.34
## 4 4 4 4 4 4 4 4 4 4
## 1036.91 1036.48 1036.05 1035.63 1035.2 1034.77 1034.34 1033.91 1033.48 1033.06
## 4 4 4 4 4 4 4 4 4 4
## 1032.63 1032.2 1031.78 1031.35 1030.93 1030.5 1030.08 1029.65 1029.23 1028.81
## 4 4 4 4 4 4 4 4 4 4
## 1028.38 1027.96 1027.54 1027.12 1026.69 1026.27 1025.85 1025.43 1025.01 1024.59
## 4 4 4 4 4 4 4 4 4 4
## 1024.17 1023.75 1023.33 1022.91 1022.49 1022.08 1021.66 1021.24 1020.82 1020.41
## 4 4 4 4 4 4 4 4 4 4
## 1019.99 1019.58 1019.16 1018.74 1018.33 1017.92 1017.5 1017.09 1016.67 1016.26
## 4 4 4 4 4 4 4 4 4 4
## 1015.85 1015.43 1015.02 1014.61 1014.2 1013.79 1013.38 1012.97 1012.56 1012.15
## 4 4 4 4 4 4 4 4 4 4
## 1011.74 1011.33 1010.92 1010.51 1010.1 1009.69 1009.29 1008.88 1008.47 1008.06
## 4 4 4 4 4 4 4 4 4 4
## 1007.66 1007.25 1006.85 1006.44 1006.04 1005.63 1005.23 1004.82 1004.42 1004.02
## 4 4 4 4 4 4 4 4 4 4
## 1003.61 1003.21 1002.81 1002.41 1002 1001.6 1001.2 1000.8 1000.4 1000
## 4 4 4 4 4 4 4 4 4 4
##
## Within cluster sum of squares by cluster:
## [1] 624.9267 2165.3017 837.4374 848.0696
## (between_SS / total_SS = 90.1 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"La media de los cuatro clusters
tapply(df_grupB$grados01,df_grupB$KmediasB.cluster,mean)## 1 2 3 4
## 27.793042 6.975721 12.167792 17.990519La longitud
tapply(df_grupB$grados01,df_grupB$KmediasB.cluster,length)## 1 2 3 4
## 51 859 341 249clusterB=df_grupB[df_grupB$KmediasB.cluster==1,]
dim(clusterB)## [1] 51 2Datos_t=t(Datos_espectro_0106)
long_onda=colnames(Datos_espectro_0106[,-1])[KmediasB$cluster==1]
range(long_onda)## [1] "2378.69" "2497.5"Las longitude onda reportadas se agrupan en el rango de 1148.37 a 1892.51 nm