R Markdown
library(dslabs)
library(dplyr)
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## Stars original
stars
## star magnitude temp type
## 1 Sun 4.8 5840 G
## 2 SiriusA 1.4 9620 A
## 3 Canopus -3.1 7400 F
## 4 Arcturus -0.4 4590 K
## 5 AlphaCentauriA 4.3 5840 G
## 6 Vega 0.5 9900 A
## 7 Capella -0.6 5150 G
## 8 Rigel -7.2 12140 B
## 9 ProcyonA 2.6 6580 F
## 10 Betelgeuse -5.7 3200 M
## 11 Achemar -2.4 20500 B
## 12 Hadar -5.3 25500 B
## 13 Altair 2.2 8060 A
## 14 Aldebaran -0.8 4130 K
## 15 Spica -3.4 25500 B
## 16 Antares -5.2 3340 M
## 17 Fomalhaut 2.0 9060 A
## 18 Pollux 1.0 4900 K
## 19 Deneb -7.2 9340 A
## 20 BetaCrucis -4.7 28000 B
## 21 Regulus -0.8 13260 B
## 22 Acrux -4.0 28000 B
## 23 Adhara -5.2 23000 B
## 24 Shaula -3.4 25500 B
## 25 Bellatrix -4.3 23000 B
## 26 Castor 1.2 9620 A
## 27 Gacrux -0.5 3750 M
## 28 BetaCentauri -5.1 25500 B
## 29 AlphaCentauriB 5.8 4730 K
## 30 AlNa'ir -1.1 15550 B
## 31 Miaplacidus -0.6 9300 A
## 32 Elnath -1.6 12400 B
## 33 Alnilam -6.2 26950 B
## 34 Mirfak -4.6 7700 F
## 35 Alnitak -5.9 33600 O
## 36 Dubhe 0.2 4900 K
## 37 Alioth 0.4 9900 A
## 38 Peacock -2.3 20500 B
## 39 KausAustralis -0.3 11000 B
## 40 ThetaScorpii -5.6 7400 F
## 41 Atria -0.1 4590 K
## 42 Alkaid -1.7 20500 B
## 43 AlphaCrucisB -3.3 20500 B
## 44 Avior -2.1 4900 K
## 45 DeltaCanisMajoris -8.0 6100 F
## 46 Alhena 0.0 9900 A
## 47 Menkalinan 0.6 9340 A
## 48 Polaris -4.6 6100 F
## 49 Mirzam -4.8 25500 B
## 50 DeltaVulpeculae 0.6 9900 A
## 51 *ProximaCentauri 15.5 2670 M
## 52 *AlphaCentauriB 5.8 4900 K
## 53 Barnard'sStar 13.2 2800 M
## 54 Wolf359 16.7 2670 M
## 55 HD93735 10.5 3200 M
## 56 *L726-8 15.5 2670 M
## 57 *UVCeti 16.0 2670 M
## 58 *SiriusA 1.4 9620 A
## 59 *SiriusB 11.2 14800 DA
## 60 Ross154 13.1 2800 M
## 61 Ross248 14.8 2670 M
## 62 EpsilonEridani 6.1 4590 K
## 63 Ross128 13.5 2800 M
## 64 L789-6 14.5 2670 M
## 65 *GXAndromedae 10.4 3340 M
## 66 *GQAndromedae 13.4 2670 M
## 67 EpsilonIndi 7.0 4130 K
## 68 *61CygniA 7.6 4130 K
## 69 *61CygniB 8.4 3870 K
## 70 *Struve2398A 11.2 3070 M
## 71 *Struve2398B 11.9 2940 M
## 72 TauCeti 5.7 5150 G
## 73 *ProcyonA 2.6 6600 F
## 74 *ProcyonB 13.0 9700 DF
## 75 Lacaille9352 9.6 3340 M
## 76 G51-I5 17.0 2500 M
## 77 YZCeti 14.1 2670 M
## 78 BD+051668 11.9 2800 M
## 79 Lacaille8760 8.7 3340 K
## 80 KapteynsStar 10.9 3480 M
## 81 *Kruger60A 11.9 2940 M
## 82 *Kruger60B 13.3 2670 M
## 83 BD-124523 12.1 2940 M
## 84 Ross614A 13.1 2800 M
## 85 Wolf424A 15.0 2670 M
## 86 vanMaanen'sStar 14.2 13000 DB
## 87 TZArietis 14.0 2800 M
## 88 HD225213 10.3 3200 M
## 89 Altair 2.2 8060 A
## 90 ADLeonis 11.0 2940 M
## 91 *40EridaniA 6.0 4900 K
## 92 *40EridaniB 11.1 10000 DA
## 93 *40EridaniC 12.8 2940 M
## 94 *70OphiuchiA 5.8 4950 K
## 95 *70OphiuchiB 7.5 3870 K
## 96 EVLacertae 11.7 2800 M
## Stars Resumen
summary(stars)
## star magnitude temp type
## Altair : 2 Min. :-8.000 Min. : 2500 Length:96
## *40EridaniA: 1 1st Qu.:-1.800 1st Qu.: 3168 Class :character
## *40EridaniB: 1 Median : 2.400 Median : 5050 Mode :character
## *40EridaniC: 1 Mean : 4.257 Mean : 8752
## *61CygniA : 1 3rd Qu.:11.325 3rd Qu.: 9900
## *61CygniB : 1 Max. :17.000 Max. :33600
## (Other) :89
Estrellas más calientes
HottestStars <- stars %>% select(star, temp) %>% arrange(desc(temp))
HottestStars
## star temp
## 1 Alnitak 33600
## 2 BetaCrucis 28000
## 3 Acrux 28000
## 4 Alnilam 26950
## 5 Hadar 25500
## 6 Spica 25500
## 7 Shaula 25500
## 8 BetaCentauri 25500
## 9 Mirzam 25500
## 10 Adhara 23000
## 11 Bellatrix 23000
## 12 Achemar 20500
## 13 Peacock 20500
## 14 Alkaid 20500
## 15 AlphaCrucisB 20500
## 16 AlNa'ir 15550
## 17 *SiriusB 14800
## 18 Regulus 13260
## 19 vanMaanen'sStar 13000
## 20 Elnath 12400
## 21 Rigel 12140
## 22 KausAustralis 11000
## 23 *40EridaniB 10000
## 24 Vega 9900
## 25 Alioth 9900
## 26 Alhena 9900
## 27 DeltaVulpeculae 9900
## 28 *ProcyonB 9700
## 29 SiriusA 9620
## 30 Castor 9620
## 31 *SiriusA 9620
## 32 Deneb 9340
## 33 Menkalinan 9340
## 34 Miaplacidus 9300
## 35 Fomalhaut 9060
## 36 Altair 8060
## 37 Altair 8060
## 38 Mirfak 7700
## 39 Canopus 7400
## 40 ThetaScorpii 7400
## 41 *ProcyonA 6600
## 42 ProcyonA 6580
## 43 DeltaCanisMajoris 6100
## 44 Polaris 6100
## 45 Sun 5840
## 46 AlphaCentauriA 5840
## 47 Capella 5150
## 48 TauCeti 5150
## 49 *70OphiuchiA 4950
## 50 Pollux 4900
## 51 Dubhe 4900
## 52 Avior 4900
## 53 *AlphaCentauriB 4900
## 54 *40EridaniA 4900
## 55 AlphaCentauriB 4730
## 56 Arcturus 4590
## 57 Atria 4590
## 58 EpsilonEridani 4590
## 59 Aldebaran 4130
## 60 EpsilonIndi 4130
## 61 *61CygniA 4130
## 62 *61CygniB 3870
## 63 *70OphiuchiB 3870
## 64 Gacrux 3750
## 65 KapteynsStar 3480
## 66 Antares 3340
## 67 *GXAndromedae 3340
## 68 Lacaille9352 3340
## 69 Lacaille8760 3340
## 70 Betelgeuse 3200
## 71 HD93735 3200
## 72 HD225213 3200
## 73 *Struve2398A 3070
## 74 *Struve2398B 2940
## 75 *Kruger60A 2940
## 76 BD-124523 2940
## 77 ADLeonis 2940
## 78 *40EridaniC 2940
## 79 Barnard'sStar 2800
## 80 Ross154 2800
## 81 Ross128 2800
## 82 BD+051668 2800
## 83 Ross614A 2800
## 84 TZArietis 2800
## 85 EVLacertae 2800
## 86 *ProximaCentauri 2670
## 87 Wolf359 2670
## 88 *L726-8 2670
## 89 *UVCeti 2670
## 90 Ross248 2670
## 91 L789-6 2670
## 92 *GQAndromedae 2670
## 93 YZCeti 2670
## 94 *Kruger60B 2670
## 95 Wolf424A 2670
## 96 G51-I5 2500
print(paste("La etrella más caliente es", HottestStars$star %>% head(1), "con", HottestStars$temp %>% head(1), "Kelvin"))
## [1] "La etrella más caliente es Alnitak con 33600 Kelvin"
HottestStars %>% select(star,temp) %>% summarise(temp_min = min(temp))
## temp_min
## 1 2500
Tamaño de las estrella y temperatura G/O
## Estrellas tipo G (como el Sol) con la tipo O (más calientes y brillantes)
stars %>% select(star, magnitude ,temp, type) %>% filter(type == 'G' | type== 'O') %>% arrange(desc(temp))
## star magnitude temp type
## 1 Alnitak -5.9 33600 O
## 2 Sun 4.8 5840 G
## 3 AlphaCentauriA 4.3 5840 G
## 4 Capella -0.6 5150 G
## 5 TauCeti 5.7 5150 G
## Estrellas tipo M son más comunes que las tipo O
stars %>% select(star, temp, type) %>% filter(type == 'M' | type== 'O') %>% arrange(desc(temp)) %>% count(type)
## type n
## 1 M 32
## 2 O 1