Por medio de un análisis de las variables, se graficó el número atómico y el peso atómico de cada elemento del cuadro (formato: CSV).

Los elementos

Un elemento es una sustancia formada por átomos que tienen el mismo número de protones nucleares. En otras palabras, son un tipo de materia constituida por átomos de la misma clase. Por ende, un átomo es aquella sustancia que no puede ser descompuesta mediante una reacción química, en otras más simples. Además,en su forma simple, posee un número determinado de protones en su núcleo, haciéndolo pertenecer a una categoría única clasificada con el número atómico, aun cuando este pueda desplegar distintas masas atómicas.

Peso atómico

Es una cantidad física adimensional, definida como la razón del promedio de las masas de los átomos de un elemento.

Número atómico

Es el número total de protones que tiene cada átomo de dicho elemento. Ádemas, se representa con la letra Z.

Tabla de los elementos (datos)

url="https://raw.githubusercontent.com/ShalymarG/Problema03/main/Elementos%20-%20Hoja%201.csv"
df<-read.csv(url)
head(df)
##        Name At... Symbol         Family MP..K. BP..K. Density..g.cm.3. at..wt.
## 1  hydrogen     1      H       Hydrogen     14     20          899.000     1.0
## 2    helium     2     He      Noble gas      1      4            1.785     4.0
## 3   lithium     3     Li   Alkali Metal    454   1619            0.530     6.9
## 4 beryllium     4     Be Alkaline Earth   1560   2757            1.850     9.0
## 5     boron     5      B          Boron   2365   3931            2.340    10.8
## 6    carbon     6      C         Carbon   3825   5100            2.260    12.0
##   At..Radius..angstroms. First.IP specific.heatcapacity thermal.conductivity
## 1                   0.79    13.60                    NA                 0.18
## 2                   0.49    24.59                    NA                 0.15
## 3                   2.05     5.39                  3.58                85.00
## 4                   1.40     9.32                  1.83               200.00
## 5                   1.17     5.30                  1.03                27.00
## 6                   0.91    11.26                  0.71                   NA
##   electrical.conductivity heat.of.fusion Heat.of.Vaporization
## 1                      NA           0.10                    0
## 2                      NA           0.02                    0
## 3                 1.2e+01           3.00                  147
## 4                 2.5e+01          12.00                  297
## 5                 5.0e-12          23.00                  508
## 6                 7.0e-02             NA                  715
##   Electro..negativity mg.kg.crust    Year
## 1                 2.2     1.4e+03    1766
## 2                  NA     8.0e-03    1895
## 3                 1.0     2.0e+01    1817
## 4                 1.6     2.8e+00    1798
## 5                 2.0     1.0e+01    1808
## 6                 2.6     2.0e+02 ancient

Análisis de los datos

prom<-mean(df$at..wt.)
print(prom)
## [1] 96.48082
desvEst<-sd(df$at..wt.)
print(desvEst)
## [1] 67.89788
varX<-var(df$at..wt.)
print(varX)
## [1] 4610.122
print(sqrt(varX))
## [1] 67.89788

Peso atómico (Variante)

plot(df$at..wt.,df$At...,type="l",col="purple",ylim=c(0,100.0),xlim=c(0,250),xlab="Número Atómico",ylab="Peso Atómico",main="Peso atómico (Variante)",col.lab="black",col.main="black")
legend(0,250,legend=c("Número Atómico","Peso Atómico"),cex=0.100)