Importar base de datos=0.1358 46
18 M (0.39130435 0.60869565)
10) texture_worst< 25.67 19 4 B (0.78947368 0.21052632) *
11) texture_worst>=25.67 27 3 M (0.11111111 0.88888889) *
3) radius_worst>=16.795 190 11 M (0.05789474 0.94210526) *
```r
library(rpart.plot)
rpart.plot(arbol)
prp(arbol,extra=7,prefix="fracción\n")
library(ggplot2)
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.4.1
## ✔ readr 2.1.2 ✔ forcats 0.5.2
## ✔ purrr 0.3.4
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
ggplot(data=base_de_datos3, mapping = aes(radius_worst, concave.points_worst)) +
geom_point(aes(color = diagnosis)) +
theme_bw()
