nueva variable

En esta oportunidad vamos a importar el archivo elementos

library(readxl)
elementos<-read_excel("C:\\Users\\MINEDUCYT\\Desktop\\masa de elementos.xlsx")
elementos

# A tibble: 6 × 3
  elemento   masa volumen
  <chr>     <dbl>   <dbl>
1 hidrogeno     9     100
2 helio        18     100
3 litio        53     100
4 potasio      86     100
5 neon         90     100
6 sodio        97     100

ahora vamos a hacer otra variable que nos de la densidad del elemento

elementos$densidad<-elementos$masa/elementos$volumen
elementos$densidad

[1] 0.09 0.18 0.53 0.86 0.90 0.97

limites<-c(0,0.4,0.6,5)

categoria <- cut(elementos$densidad, 
                   breaks = limites, 
                   labels = c("Baja", "Media", "Alta"), 
                   include.lowest = TRUE)
 categoria

[1] Baja  Baja  Media Alta  Alta  Alta 
Levels: Baja Media Alta

 pie(table(categoria))